mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-01-27 17:54:16 +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>
* 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;
FILE *
__gnat_constant_stderr ()
__gnat_constant_stderr (void)
{
return stderr;
}
FILE *
__gnat_constant_stdin ()
__gnat_constant_stdin (void)
{
return stdin;
}
FILE *
__gnat_constant_stdout ()
__gnat_constant_stdout (void)
{
return stdout;
}
char *
__gnat_full_name (nam, buffer)
char *nam;
char *buffer;
__gnat_full_name (char *nam, char *buffer)
{
#if defined(__EMX__) || defined (__MINGW32__)
char *p;
/* 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] == ':')
strcpy (buffer, nam);
else
{
char *p;
_fullpath (buffer, nam, __gnat_max_path_len);
for (p = buffer; *p; p++)
@ -189,7 +187,6 @@ __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);
@ -207,14 +204,11 @@ __gnat_full_name (nam, buffer)
strncpy (buffer, __gnat_to_host_file_spec (buffer), __gnat_max_path_len);
}
return buffer;
#else
char *p;
if (nam[0] != '/')
{
p = getcwd (buffer, __gnat_max_path_len);
char *p = getcwd (buffer, __gnat_max_path_len);
if (p == 0)
{
buffer[0] = '\0';
@ -230,7 +224,7 @@ __gnat_full_name (nam, buffer)
}
else
strcpy (buffer, nam);
#endif
return buffer;
#endif
}