diff options
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 4f6e201..56c7e61 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); |