diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-20 07:57:49 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-21 06:08:42 +0100 |
| commit | 23e70671cc68dea9def3bd22f2a173c4581464ae (patch) | |
| tree | 760595c49a0c5570ed4437842027f18ffc4a6ceb /src/vhdl/sem_names.adb | |
| parent | 3b5fe48263e0a8cc065e7a06cdcd892694062b28 (diff) | |
| download | ghdl-23e70671cc68dea9def3bd22f2a173c4581464ae.tar.gz ghdl-23e70671cc68dea9def3bd22f2a173c4581464ae.tar.bz2 ghdl-23e70671cc68dea9def3bd22f2a173c4581464ae.zip | |
Analysis: tolerate more parse errors.
Diffstat (limited to 'src/vhdl/sem_names.adb')
| -rw-r--r-- | src/vhdl/sem_names.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb index f64e1209d..b6470914d 100644 --- a/src/vhdl/sem_names.adb +++ b/src/vhdl/sem_names.adb @@ -889,6 +889,13 @@ package body Sem_Names is Atype : Iir; Res : Iir; begin + if Name = Null_Iir then + pragma Assert (Flags.Flag_Force_Analysis); + Res := Create_Error_Type (Null_Iir); + Set_Type (Res, Res); + return Res; + end if; + -- The name must not have been analyzed. pragma Assert (Get_Type (Name) = Null_Iir); |