Change 33299 by [EMAIL PROTECTED] on 2008/02/13 12:19:17
Drat. #33298 doesn't fix it: need this too.
And even then I now get an assertion from win32.c line 628. Sigh...
Affected files ...
... //depot/perl/embed.fnc#585 edit
... //depot/perl/proto.h#920 edit
Differences ...
==== //depot/perl/embed.fnc#585 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#584~33298~ 2008-02-13 04:05:49.000000000 -0800
+++ perl/embed.fnc 2008-02-13 04:19:17.000000000 -0800
@@ -67,12 +67,17 @@
Anod |PerlInterpreter*|perl_clone|NN PerlInterpreter *proto_perl|UV flags
# if defined(PERL_IMPLICIT_SYS)
Ano |PerlInterpreter*|perl_clone_using \
- |NN PerlInterpreter *proto_perl|UV flags \
- |NN struct IPerlMem* m|NN struct IPerlMem* ms \
- |NN struct IPerlMem* mp|NN struct IPerlEnv* e \
- |NN struct IPerlStdIO* io|NN struct IPerlLIO*
lio \
- |NN struct IPerlDir* d|NN struct IPerlSock* s \
- |NN struct IPerlProc* p
+ |NN PerlInterpreter *proto_perl \
+ |UV flags \
+ |NN struct IPerlMem* ipM \
+ |NN struct IPerlMem* ipMS \
+ |NN struct IPerlMem* ipMP \
+ |NN struct IPerlEnv* ipE \
+ |NN struct IPerlStdIO* ipStd \
+ |NN struct IPerlLIO* ipLIO \
+ |NN struct IPerlDir* ipD \
+ |NN struct IPerlSock* ipS \
+ |NN struct IPerlProc* ipP
# endif
#endif
==== //depot/perl/proto.h#920 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#919~33298~ 2008-02-13 04:05:49.000000000 -0800
+++ perl/proto.h 2008-02-13 04:19:17.000000000 -0800
@@ -69,7 +69,7 @@
assert(proto_perl)
# if defined(PERL_IMPLICIT_SYS)
-PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *proto_perl,
UV flags, struct IPerlMem* m, struct IPerlMem* ms, struct IPerlMem* mp, struct
IPerlEnv* e, struct IPerlStdIO* io, struct IPerlLIO* lio, struct IPerlDir* d,
struct IPerlSock* s, struct IPerlProc* p)
+PERL_CALLCONV PerlInterpreter* perl_clone_using(PerlInterpreter *proto_perl,
UV flags, struct IPerlMem* ipM, struct IPerlMem* ipMS, struct IPerlMem* ipMP,
struct IPerlEnv* ipE, struct IPerlStdIO* ipStd, struct IPerlLIO* ipLIO, struct
IPerlDir* ipD, struct IPerlSock* ipS, struct IPerlProc* ipP)
__attribute__nonnull__(1)
__attribute__nonnull__(3)
__attribute__nonnull__(4)
@@ -81,7 +81,7 @@
__attribute__nonnull__(10)
__attribute__nonnull__(11);
#define PERL_ARGS_ASSERT_PERL_CLONE_USING \
- assert(proto_perl); assert(m); assert(ms); assert(mp); assert(e);
assert(io); assert(lio); assert(d); assert(s); assert(p)
+ assert(proto_perl); assert(ipM); assert(ipMS); assert(ipMP);
assert(ipE); assert(ipStd); assert(ipLIO); assert(ipD); assert(ipS); assert(ipP)
# endif
#endif
End of Patch.
