diff options
Diffstat (limited to 'src/ghdldrv/ghdlcomp.adb')
| -rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 6be97c6ca..0a1b7bac1 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -432,7 +432,8 @@ package body Ghdlcomp is Next_Unit := Get_Chain (Unit); if Errorout.Nbr_Errors = 0 - or else Cmd.Flag_Force_Analysis + or else (Cmd.Flag_Force_Analysis + and then Get_Library_Unit (Unit) /= Null_Iir) then Set_Chain (Unit, Null_Iir); Libraries.Add_Design_Unit_Into_Library (Unit); |