From: Steve Hay <SteveHay@planit.com>
Date: Fri, 1 Jul 2005 07:44:50 +0000 (+0000)
Subject: Silence some cast warnings from bcc32 on Win32
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a51a97d86a8e028ada154e7e70624ca9fe055d4c;p=p5sagit%2Fp5-mst-13.2.git

Silence some cast warnings from bcc32 on Win32

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

diff --git a/win32/win32.c b/win32/win32.c
index 43c2d0b..7423b0b 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -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