adaint.c (__gnat_get_libraries_from_registry): Cast value to LPBYTE.

	* adaint.c (__gnat_get_libraries_from_registry): Cast value
        to LPBYTE.
	(__gnat_portable_spawn): Remove const.

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

From-SVN: r89323

gcc/ada/ChangeLog

+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.

gcc/ada/adaint.c

@@ -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);

gcc/ada/mingw32.h

@@ -49,6 +49,8 @@
 
 #define OLD_MINGW (!(STD_MINGW))
 
+#ifndef MAXPATHLEN
 #define MAXPATHLEN MAX_PATH
+#endif
 
 #endif /* _MINGW32_H */