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

adaint.c (__MINGW32__ section): Include ctype.h and define a fallback ISALPHA if IN_RTS.

Browse Source 
* adaint.c (__MINGW32__ section): Include ctype.h and define
	a fallback ISALPHA if IN_RTS.
	(__gnat_is_absolute_path): Use ISALPHA instead of isalpha.

From-SVN: r137924
This commit is contained in:
Olivier Hainque 2008-07-17 14:37:58 +00:00 committed by Olivier Hainque
parent a7a46bb2d9
commit dd7ac7164d
2 changed files with 15 additions and 1 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 @@
2008-07-17 Olivier Hainque <hainque@adacore.com>
* adaint.c (__MINGW32__ section): Include ctype.h and define
a fallback ISALPHA if IN_RTS.
(__gnat_is_absolute_path): Use ISALPHA instead of isalpha.
2008-07-17 Olivier Hainque <hainque@adacore.com>
* utils.c (create_var_decl_1): Relax expectations on the PUBLIC_FLAG

10
gcc/ada/adaint.c
View File

@ -85,7 +85,15 @@
#include "mingw32.h"
#include <sys/utime.h>
/* For isalpha-like tests in the compiler, we're expected to resort to
safe-ctype.h/ISALPHA. This isn't available for the runtime library
build, so we fallback on ctype.h/isalpha there. */
#ifdef IN_RTS
#include <ctype.h>
#define ISALPHA isalpha
#endif
#elif defined (__Lynx__)
@ -1642,7 +1650,7 @@ __gnat_is_absolute_path (char *name, int length)
return (length != 0) &&
(*name == '/' || *name == DIR_SEPARATOR
#if defined (__EMX__) || defined (MSDOS) || defined (WINNT)
|| (length > 1 && isalpha (name[0]) && name[1] == ':')
|| (length > 1 && ISALPHA (name[0]) && name[1] == ':')
#endif
);
#endif