diff options
| author | ro <ro@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-22 11:34:08 +0000 |
|---|---|---|
| committer | ro <ro@138bc75d-0d04-0410-961f-82ee72b054a4> | 2003-10-22 11:34:08 +0000 |
| commit | 418d5594b6fe4a8989f87b2819b1c7a0a3f15da8 (patch) | |
| tree | 15356489fa1f74b9b8263ca9e7e94c4357f48b28 /gcc/ada/cstreams.c | |
| parent | 5b0b91f56834a97f7b1794b0adad348766939db2 (diff) | |
| download | gcc-418d5594b6fe4a8989f87b2819b1c7a0a3f15da8.tar.gz | |
* tracebak.c (MAX): Avoid redefinition warning.
* init.c [sgi] (__gnat_error_handler): Remove i, unused.
Change msg to const char *.
(__gnat_install_handler): Remove ss, unused.
[sun && __SVR4 && !__vxworks] (__gnat_error_handler): Change msg
to const char *.
* cstreams.c (__gnat_full_name): Declare p only when used.
(__gnat_full_name) [sgi] Return buffer.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@72794 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/cstreams.c')
| -rw-r--r-- | gcc/ada/cstreams.c | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/gcc/ada/cstreams.c b/gcc/ada/cstreams.c index 0e85c09dba5..755b6b57ea2 100644 --- a/gcc/ada/cstreams.c +++ b/gcc/ada/cstreams.c @@ -162,9 +162,9 @@ __gnat_full_name (nam, buffer) char *nam; char *buffer; { +#if defined(__EMX__) || defined (__MINGW32__) char *p; -#if defined(__EMX__) || defined (__MINGW32__) /* If this is a device file return it as is; under Windows NT and OS/2 a device file end with ":". */ if (nam[strlen (nam) - 1] == ':') @@ -189,6 +189,7 @@ __gnat_full_name (nam, buffer) getcwd approach instead. */ realpath (nam, buffer); + return buffer; #elif defined (VMS) strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len); @@ -209,6 +210,8 @@ __gnat_full_name (nam, buffer) return buffer; #else + char *p; + if (nam[0] != '/') { p = getcwd (buffer, __gnat_max_path_len); |