OSDN Git Service

* adaint.c (__gnat_get_libraries_from_registry): Cast value
authoraaronwl <aaronwl@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Oct 2004 08:05:09 +0000 (08:05 +0000)
committeraaronwl <aaronwl@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 20 Oct 2004 08:05:09 +0000 (08:05 +0000)
        to LPBYTE.
(__gnat_portable_spawn): Remove const.

* mingw32.h (MAXPATHLEN): Check for previous definition.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@89323 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/ada/ChangeLog
gcc/ada/adaint.c
gcc/ada/mingw32.h

index 237336d..ecca58d 100644 (file)
@@ -1,3 +1,11 @@
+2004-10-10  Aaron W. LaFramboise  <aaronavay62@aaronwl.com>
+
+       * adaint.c (__gnat_get_libraries_from_registry): Cast value
+       to LPBYTE.
+       (__gnat_portable_spawn): Remove const.
+
+       * mingw32.h (MAXPATHLEN): Check for previous definition.
+
 2004-10-17  Matthias Klose  <doko@debian.org>
 
        * gnatvsn.ads: Set gnat library version to 4.0.
index a07f008..69b25e2 100644 (file)
@@ -1348,7 +1348,7 @@ __gnat_get_libraries_from_registry (void)
     {
       value_size = name_size = 256;
       res = RegEnumValue (reg_key, index, name, &name_size, 0,
-                          &type, value, &value_size);
+                          &type, (LPBYTE)value, &value_size);
 
       if (res == ERROR_SUCCESS && type == REG_SZ)
         {
@@ -1551,7 +1551,7 @@ __gnat_portable_spawn (char *args[])
 
 #if defined (MSDOS) || defined (_WIN32)
   /* args[0] must be quotes as it could contain a full pathname with spaces */
-  const char *args_0 = args[0];
+  char *args_0 = args[0];
   args[0] = (char *)xmalloc (strlen (args_0) + 3);
   strcpy (args[0], "\"");
   strcat (args[0], args_0);
index 5febcdf..7fe531c 100644 (file)
@@ -49,6 +49,8 @@
 
 #define OLD_MINGW (!(STD_MINGW))
 
+#ifndef MAXPATHLEN
 #define MAXPATHLEN MAX_PATH
+#endif
 
 #endif /* _MINGW32_H */