diff options
Diffstat (limited to 'src/ghdldrv')
| -rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index 0a1b7bac1..1a6aea6d6 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -449,7 +449,12 @@ package body Ghdlcomp is raise Compilation_Error; end if; - Free_Iir (Design_File); + if New_Design_File = Design_File then + pragma Assert (Flags.Flag_Force_Analysis); + null; + else + Free_Iir (Design_File); + end if; -- Do late analysis checks. if New_Design_File /= Null_Iir then |