diff options
| author | gingold | 2008-01-15 05:53:39 +0000 |
|---|---|---|
| committer | gingold | 2008-01-15 05:53:39 +0000 |
| commit | eb4d862a6b8ac3991dac9a8bc2fb0b9d9830e951 (patch) | |
| tree | 3944b708fedbc9f955f09f947cd4377c286a9127 /translate/grt/grt-files.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-files.adb')
| -rw-r--r-- | translate/grt/grt-files.adb | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/translate/grt/grt-files.adb b/translate/grt/grt-files.adb index 9037fce..6da675d 100644 --- a/translate/grt/grt-files.adb +++ b/translate/grt/grt-files.adb @@ -1,5 +1,5 @@ -- GHDL Run Time (GRT) - VHDL files subprograms. --- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold +-- Copyright (C) 2002, 2003, 2004, 2005, 2006, 2007 Tristan Gingold -- -- GHDL is free software; you can redistribute it and/or modify it under -- the terms of the GNU General Public License as published by the Free @@ -247,7 +247,7 @@ package body Grt.Files is if Res /= Open_Ok then Error_C ("open: cannot open text file "); - Error_E (String (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1))); + Error_E_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); end if; end Ghdl_Text_File_Open; @@ -262,7 +262,7 @@ package body Grt.Files is if Res /= Open_Ok then Error_C ("open: cannot open file "); - Error_E (String (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1))); + Error_E_Std (Str.Base (0 .. Str.Bounds.Dim_1.Length - 1)); end if; end Ghdl_File_Open; |