mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-29 06:14:03 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR ada/10110 ([mipsel-linux]ada bootstrap error)

Browse Source 
* Makefile.in: Disable build of gnatpa. PR ada/10110.
	* cstreams.c (__gnat_full_name): Minor improvements and clean up
	of previous change.

From-SVN: r72800
This commit is contained in:
Arnaud Charlet 2003-10-22 17:13:11 +02:00 committed by Arnaud Charlet
parent a354c7d675
commit 698a5e7987
2 changed files with 15 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/ada/ChangeLog
View File

@ -1,3 +1,9 @@
2003-10-22 Arnaud Charlet <charlet@act-europe.fr>
* Makefile.in: Disable build of gnatpa. PR ada/10110.
* cstreams.c (__gnat_full_name): Minor improvements and clean up
of previous change.
2003-10-22 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE> 2003-10-22 Rainer Orth <ro@TechFak.Uni-Bielefeld.DE>
* tracebak.c (MAX): Avoid redefinition warning. * tracebak.c (MAX): Avoid redefinition warning.

24
gcc/ada/cstreams.c
View File

@ -140,37 +140,35 @@ int __gnat_constant_seek_end = SEEK_END;
int __gnat_constant_seek_set = SEEK_SET; int __gnat_constant_seek_set = SEEK_SET;
FILE * FILE *
__gnat_constant_stderr () __gnat_constant_stderr (void)
{ {
return stderr; return stderr;
} }
FILE * FILE *
__gnat_constant_stdin () __gnat_constant_stdin (void)
{ {
return stdin; return stdin;
} }
FILE * FILE *
__gnat_constant_stdout () __gnat_constant_stdout (void)
{ {
return stdout; return stdout;
} }
char * char *
__gnat_full_name (nam, buffer) __gnat_full_name (char *nam, char *buffer)
char *nam;
char *buffer;
{ {
#if defined(__EMX__) || defined (__MINGW32__) #if defined(__EMX__) || defined (__MINGW32__)
char *p;
/* If this is a device file return it as is; under Windows NT and /* If this is a device file return it as is; under Windows NT and
OS/2 a device file end with ":". */ OS/2 a device file end with ":". */
if (nam[strlen (nam) - 1] == ':') if (nam[strlen (nam) - 1] == ':')
strcpy (buffer, nam); strcpy (buffer, nam);
else else
{ {
char *p;
_fullpath (buffer, nam, __gnat_max_path_len); _fullpath (buffer, nam, __gnat_max_path_len);
for (p = buffer; *p; p++) for (p = buffer; *p; p++)
@ -189,7 +187,6 @@ __gnat_full_name (nam, buffer)
getcwd approach instead. */ getcwd approach instead. */
realpath (nam, buffer); realpath (nam, buffer);
return buffer;
#elif defined (VMS) #elif defined (VMS)
strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len); strncpy (buffer, __gnat_to_canonical_file_spec (nam), __gnat_max_path_len);
@ -207,14 +204,11 @@ __gnat_full_name (nam, buffer)
strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len); strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
} }
return buffer;
#else #else
char *p;
if (nam[0] != '/') if (nam[0] != '/')
{ {
p = getcwd (buffer, __gnat_max_path_len); char *p = getcwd (buffer, __gnat_max_path_len);
if (p == 0) if (p == 0)
{ {
buffer[0] = '\0'; buffer[0] = '\0';
@ -230,7 +224,7 @@ __gnat_full_name (nam, buffer)
} }
else else
strcpy (buffer, nam); strcpy (buffer, nam);
#endif
return buffer; return buffer;
#endif
} }