Change 33563 by [EMAIL PROTECTED] on 2008/03/25 11:36:22
Repeat change 33508 - change 33561 re-instated the mistake in change
33507.
Affected files ...
... //depot/perl/embed.fnc#606 edit
... //depot/perl/proto.h#941 edit
... //depot/perl/sv.c#1528 edit
Differences ...
==== //depot/perl/embed.fnc#606 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#605~33561~ 2008-03-25 03:00:18.000000000 -0700
+++ perl/embed.fnc 2008-03-25 04:36:22.000000000 -0700
@@ -1116,7 +1116,7 @@
Ap |PerlIO*|fp_dup |NULLOK PerlIO *const fp|const char type|NN
CLONE_PARAMS *const param
ApR |DIR* |dirp_dup |NULLOK DIR *const dp
ApR |GP* |gp_dup |NULLOK GP *const gp|NN CLONE_PARAMS *const
param
-ApR |MAGIC* |mg_dup |NULLOK MAGIC *const mg|NN CLONE_PARAMS *const
param
+ApR |MAGIC* |mg_dup |NULLOK MAGIC *mg|NN CLONE_PARAMS *const param
ApR |SV* |sv_dup |NULLOK const SV *const sstr|NN CLONE_PARAMS
*const param
Ap |void |rvpv_dup |NN SV *const dstr|NN const SV *const sstr|NN
CLONE_PARAMS *const param
Ap |yy_parser*|parser_dup |NULLOK const yy_parser *const proto|NN
CLONE_PARAMS *const param
==== //depot/perl/proto.h#941 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#940~33561~ 2008-03-25 03:00:18.000000000 -0700
+++ perl/proto.h 2008-03-25 04:36:22.000000000 -0700
@@ -4055,7 +4055,7 @@
#define PERL_ARGS_ASSERT_GP_DUP \
assert(param)
-PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const
param)
+PERL_CALLCONV MAGIC* Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
__attribute__warn_unused_result__
__attribute__nonnull__(pTHX_2);
#define PERL_ARGS_ASSERT_MG_DUP \
==== //depot/perl/sv.c#1528 (text) ====
Index: perl/sv.c
--- perl/sv.c#1527~33561~ 2008-03-25 03:00:18.000000000 -0700
+++ perl/sv.c 2008-03-25 04:36:22.000000000 -0700
@@ -10189,7 +10189,7 @@
/* duplicate a chain of magic */
MAGIC *
-Perl_mg_dup(pTHX_ MAGIC *const mg, CLONE_PARAMS *const param)
+Perl_mg_dup(pTHX_ MAGIC *mg, CLONE_PARAMS *const param)
{
MAGIC *mgprev = (MAGIC*)NULL;
MAGIC *mgret;
End of Patch.
