diff options
Diffstat (limited to 'translate/grt/grt-files.adb')
| -rw-r--r-- | translate/grt/grt-files.adb | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/translate/grt/grt-files.adb b/translate/grt/grt-files.adb index a1ce0ce..422775b 100644 --- a/translate/grt/grt-files.adb +++ b/translate/grt/grt-files.adb @@ -243,7 +243,8 @@ package body Grt.Files is if Res /= Open_Ok then Error_C ("open: cannot open text file "); - Error_E_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); + Error_C_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); + Error_E; end if; end Ghdl_Text_File_Open; @@ -258,7 +259,8 @@ package body Grt.Files is if Res /= Open_Ok then Error_C ("open: cannot open file "); - Error_E_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); + Error_C_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); + Error_E; end if; end Ghdl_File_Open; |