diff options
| author | Pascal Obry <obry@adacore.com> | 2006-10-31 18:47:20 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2006-10-31 18:47:20 +0100 |
| commit | 18f2228492d64fae05e14707919e62b6a8f535b5 (patch) | |
| tree | 55ea2708d17acf16323af0332d2a2f211874f3cb /gcc/ada/s-crtl.ads | |
| parent | d1fa78e300ffbcc515c6d644d664f8a58c6f23c3 (diff) | |
| download | gcc-18f2228492d64fae05e14707919e62b6a8f535b5.zip gcc-18f2228492d64fae05e14707919e62b6a8f535b5.tar.gz gcc-18f2228492d64fae05e14707919e62b6a8f535b5.tar.bz2 | |
adaint.c (__gnat_get_libraries_from_registry): Call explicitly the ASCII version of the registry API.
2006-10-31 Pascal Obry <obry@adacore.com>
Eric Botcazou <ebotcazou@adacore.com>
Vincent Celier <celier@adacore.com>
* adaint.c (__gnat_get_libraries_from_registry): Call explicitly the
ASCII version of the registry API. This is needed as the GNAT runtime
is now UNICODE by default.
Include version.h.
(get_gcc_version): Do not hardcode the return value.
(__gnat_file_time_name): On Windows properly set the default returned
value to -1 which corresponds to Invalid_Time.
(__gnat_fopen): New routine. A simple wrapper on all plateforms
except on Windows where it does conversion for unicode support.
(__gnat_freopen): Idem.
(__gnat_locate_exec_on_path): If environment variable PATH does not
exist, return a NULL pointer
* adaint.h: (__gnat_fopen): Declare.
(__gnat_freopen): Likewise.
* mingw32.h (_tfreopen): Define this macro here for older MingW
version.
Activate the unicode support on platforms using a MingW runtime
version 3.9 or newer.
* s-crtl.ads (fopen): Is now an import to the wrapper __gnat_freopen.
This is needed for proper unicode support on Windows.
(freopen): Idem.
From-SVN: r118240
Diffstat (limited to 'gcc/ada/s-crtl.ads')
| -rw-r--r-- | gcc/ada/s-crtl.ads | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/ada/s-crtl.ads b/gcc/ada/s-crtl.ads index 7ce99bc..5397776 100644 --- a/gcc/ada/s-crtl.ads +++ b/gcc/ada/s-crtl.ads @@ -85,7 +85,7 @@ package System.CRTL is pragma Import (C, fgets, "fgets"); function fopen (filename : chars; Mode : chars) return FILEs; - pragma Import (C, fopen, "fopen"); + pragma Import (C, fopen, "__gnat_fopen"); function fputc (C : int; stream : FILEs) return int; pragma Import (C, fputc, "fputc"); @@ -101,7 +101,7 @@ package System.CRTL is mode : chars; stream : FILEs) return FILEs; - pragma Import (C, freopen, "freopen"); + pragma Import (C, freopen, "__gnat_freopen"); function fseek (stream : FILEs; |