From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Fri, 19 Oct 2001 19:55:36 +0000 (+0000)
Subject: Fix gross win32 build issues
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a0ae667081b123207d4d0f2b6e6b7a5597859a57;p=p5sagit%2Fp5-mst-13.2.git

Fix gross win32 build issues

p4raw-id: //depot/perlio@12511
---

diff --git a/makedef.pl b/makedef.pl
index 61107ff..68fbd3e 100644
--- a/makedef.pl
+++ b/makedef.pl
@@ -200,6 +200,9 @@ sub emit_symbols {
     }
 }
 
+unless ($PLATFORM eq 'vms') {
+    skip_symbols [qw(PL_my_inv_rand_max)];
+}
 
 if ($PLATFORM eq 'win32') {
     skip_symbols [qw(
diff --git a/sv.c b/sv.c
index 3afbd56..8ddbfa9 100644
--- a/sv.c
+++ b/sv.c
@@ -9625,7 +9625,7 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
      * their pointers copied. */
 
     IV i;
-    CLONE_PARAMS* param = (CLONE_PARAMS*) MALLOC(SIZEOF(CLONE_PARAMS));
+    CLONE_PARAMS* param = (CLONE_PARAMS*) malloc(sizeof(CLONE_PARAMS));
 
     PerlInterpreter *my_perl = (PerlInterpreter*)(*ipM->pMalloc)(ipM, sizeof(PerlInterpreter));
     PERL_SET_THX(my_perl);
@@ -10335,3 +10335,4 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 }
 
 #endif /* USE_ITHREADS */
+