diff options
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); |