diff options
| author | Tristan Gingold | 2014-07-17 20:34:57 +0200 |
|---|---|---|
| committer | Tristan Gingold | 2014-07-17 20:34:57 +0200 |
| commit | caba1d1b21d9756ede50f40d53fbc816d3b84320 (patch) | |
| tree | ee0b8459472a8e7aba4ab7465bc46c74be56cd33 /sem_stmts.adb | |
| parent | 1bc00453a725214de4964add2b7f8423d1a5d2da (diff) | |
| download | ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.tar.gz ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.tar.bz2 ghdl-caba1d1b21d9756ede50f40d53fbc816d3b84320.zip | |
vhdl 2008: visibility, more implicit subprograms, alias...
Use Type_Definition in type_declarator.
Diffstat (limited to 'sem_stmts.adb')
| -rw-r--r-- | sem_stmts.adb | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/sem_stmts.adb b/sem_stmts.adb index 8067abb..30ea99c 100644 --- a/sem_stmts.adb +++ b/sem_stmts.adb @@ -711,6 +711,12 @@ package body Sem_Stmts is Set_Expression (Stmt, Expr); Target_Type := Get_Type (Expr); + -- An aggregate cannot be analyzed without a type. + -- FIXME: partially analyze the aggregate ? + if Target_Type = Null_Iir then + return; + end if; + -- FIXME: check elements are identified at most once. else Target_Type := Null_Iir; |