diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 20:51:05 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 20:51:05 +0200 |
commit | b729316b6d152123f505741452cf16a028c036bd (patch) | |
tree | fd484a8e3b30ce9128084dd4a9ea1b3d2f78b2da /translate/ortho_front.adb | |
parent | b3530fbe93168d99c0409240d4a6e7cfaea4b728 (diff) | |
download | ghdl-b729316b6d152123f505741452cf16a028c036bd.tar.gz ghdl-b729316b6d152123f505741452cf16a028c036bd.tar.bz2 ghdl-b729316b6d152123f505741452cf16a028c036bd.zip |
Fix ticket14: build vars for anonymous subtype in array type indexes.
Diffstat (limited to 'translate/ortho_front.adb')
-rw-r--r-- | translate/ortho_front.adb | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/translate/ortho_front.adb b/translate/ortho_front.adb index 4f6e201b5..56c7e61dd 100644 --- a/translate/ortho_front.adb +++ b/translate/ortho_front.adb @@ -430,8 +430,7 @@ package body Ortho_Front is -- Error_Msg_Option ("cannot open file '" & Filename.all & "'"); -- return False; when Compilation_Error - | Parse_Error - | Elaboration_Error => + | Parse_Error => if Flag_Expect_Failure then -- Very brutal... GNAT.OS_Lib.OS_Exit (0); |