------- Comment #4 from christian dot joensson at gmail dot com  2009-07-01 
07:02 -------
(In reply to comment #2)
> Might be safer to rename to GNAT_FOPEN or something like that? FOPEN is likely
> to be taken on more than one platform.

Which line are you suggesting I test change? I initially thought you meant to
just change line no. 58 into reading

Index: gcc/ada/adaint.h
===================================================================
--- gcc/ada/adaint.h    (revision 149128)
+++ gcc/ada/adaint.h    (working copy)
@@ -55,7 +55,7 @@
 #define LSTAT lstat64
 #define STRUCT_STAT struct stat64
 #else
-#define FOPEN fopen
+#define GNAT_FOPEN fopen
 #define STAT stat
 #define FSTAT fstat
 #define LSTAT lstat

but that just got me into this error:

gcc -c  -g -fkeep-inline-functions -DIN_GCC   -W -Wall -Wwrite-strings
-Wcast-qual -Wstrict-prototypes -Wmissing-prototypes 
-Wmissing-format-attribute -Wold-style-definition -fno-common -Wno-error
-DHAVE_CONFIG_H -I. -Iada -I../../gcc/gcc -I../../gcc/gcc/ada
-I../../gcc/gcc/../include -I../../gcc/gcc/../libcpp/include -Iyes/include  
-I../../gcc/gcc/../libdecnumber -I../../gcc/gcc/../libdecnumber/dpd
-I../libdecnumber    ../../gcc/gcc/ada/adaint.c -o ada/adaint.o
../../gcc/gcc/ada/adaint.c: In function `__gnat_fopen':
../../gcc/gcc/ada/adaint.c:778: error: called object is not a function
../../gcc/gcc/ada/adaint.c: In function `__gnat_to_canonical_file_list_next':
../../gcc/gcc/ada/adaint.c:3247: warning: cast discards qualifiers from pointer
target type
make[3]: *** [ada/adaint.o] Error 1
make[3]: Leaving directory `/usr/local/src/trunk/objdir/gcc'
make[2]: *** [all-stage1-gcc] Error 2
make[2]: Leaving directory `/usr/local/src/trunk/objdir'
make[1]: *** [stage1-bubble] Error 2
make[1]: Leaving directory `/usr/local/src/trunk/objdir'
make: *** [all] Error 2


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40578

Reply via email to