diff options
author | Tristan Gingold <tgingold@free.fr> | 2018-12-23 21:00:42 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2018-12-23 21:00:42 +0100 |
commit | 317b196ae4552f23e31accd6e10a11e2903f9b31 (patch) | |
tree | 15451958243f0a1ae4102a593374b3998c7dcc27 /src/libraries.adb | |
parent | feb198c93bd936b20d5b3d878080ec4cdf7e480b (diff) | |
download | ghdl-317b196ae4552f23e31accd6e10a11e2903f9b31.tar.gz ghdl-317b196ae4552f23e31accd6e10a11e2903f9b31.tar.bz2 ghdl-317b196ae4552f23e31accd6e10a11e2903f9b31.zip |
parse/sem: be more tolerant of parse errors.
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 243256059..dd70b615a 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -1056,6 +1056,11 @@ package body Libraries is end if; end; + if Unit_Id = Null_Identifier then + pragma Assert (Flags.Flag_Force_Analysis); + return; + end if; + -- Try to find a design unit with the same name in the work library. Id := Get_Hash_Id_For_Unit (Unit); Design_Unit := Unit_Hash_Table (Id); |