projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0af71db
)
Fix gross win32 build issues
author
Nick Ing-Simmons
<nik@tiuk.ti.com>
Fri, 19 Oct 2001 19:55:36 +0000
(19:55 +0000)
committer
Nick Ing-Simmons
<nik@tiuk.ti.com>
Fri, 19 Oct 2001 19:55:36 +0000
(19:55 +0000)
p4raw-id: //depot/perlio@12511
makedef.pl
patch
|
blob
|
history
sv.c
patch
|
blob
|
history
diff --git
a/makedef.pl
b/makedef.pl
index
61107ff
..
68fbd3e
100644
(file)
--- 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
(file)
--- 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 */
+