This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Silence some cast warnings from bcc32 on Win32
authorSteve Hay <SteveHay@planit.com>
Fri, 1 Jul 2005 07:44:50 +0000 (07:44 +0000)
committerSteve Hay <SteveHay@planit.com>
Fri, 1 Jul 2005 07:44:50 +0000 (07:44 +0000)
See the thread starting here for arguments:
http://www.xray.mpe.mpg.de/mailing-lists/perl5-porters/2005-06/msg00994.html

p4raw-id: //depot/perl@25033

win32/win32.c

index 43c2d0b..7423b0b 100644 (file)
@@ -4064,9 +4064,17 @@ win32_execv(const char *cmdname, const char *const *argv)
     /* if this is a pseudo-forked child, we just want to spawn
      * the new program, and return */
     if (w32_pseudo_id)
+#  ifdef __BORLANDC__
        return spawnv(P_WAIT, cmdname, (char *const *)argv);
+#  else
+       return spawnv(P_WAIT, cmdname, argv);
+#  endif
 #endif
+#ifdef __BORLANDC__
     return execv(cmdname, (char *const *)argv);
+#else
+    return execv(cmdname, argv);
+#endif
 }
 
 DllExport int
@@ -4086,7 +4094,11 @@ win32_execvp(const char *cmdname, const char *const *argv)
            return status;
     }
 #endif
+#ifdef __BORLANDC__
     return execvp(cmdname, (char *const *)argv);
+#else
+    return execvp(cmdname, argv);
+#endif
 }
 
 DllExport void