diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-01-15 05:53:39 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-01-15 05:53:39 +0000 |
commit | eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951 (patch) | |
tree | 3944b708fedbc9f955f09f947cd4377c286a9127 /translate/grt/grt-errors.adb | |
parent | 861828b455955858709dfda217af0188cfdef799 (diff) | |
download | ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.tar.gz ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.tar.bz2 ghdl-eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951.zip |
synchronize: add support for MacOSX, fix bogus type conversion
Diffstat (limited to 'translate/grt/grt-errors.adb')
-rw-r--r-- | translate/grt/grt-errors.adb | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/translate/grt/grt-errors.adb b/translate/grt/grt-errors.adb index 4a6aca83c..627316119 100644 --- a/translate/grt/grt-errors.adb +++ b/translate/grt/grt-errors.adb @@ -125,6 +125,16 @@ package body Grt.Errors is Newline_Err; end Report_E; + procedure Report_E (Str : Std_String_Ptr) + is + subtype Ada_Str is String (1 .. Natural (Str.Bounds.Dim_1.Length)); + begin + if Ada_Str'Length > 0 then + Put_Err (Ada_Str (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1))); + end if; + Newline_Err; + end Report_E; + procedure Error_H is begin Put_Err (Progname); @@ -193,6 +203,13 @@ package body Grt.Errors is Fatal_Error; end Error_E; + procedure Error_E_Std (Str : Std_String_Uncons) + is + subtype Str_Subtype is String (1 .. Str'Length); + begin + Error_E (Str_Subtype (Str)); + end Error_E_Std; + procedure Error (Str : String) is begin Error_H; |