Change 33508 by [EMAIL PROTECTED] on 2008/03/13 16:03:56
Change 33507 had a const too far (Perl_mg_dup()'s mg is assigned to).
Affected files ...
... //depot/perl/embed.fnc#604 edit
... //depot/perl/proto.h#939 edit
... //depot/perl/sv.c#1524 edit
Differences ...
==== //depot/perl/embed.fnc#604 (text) ====
Index: perl/embed.fnc
--- perl/embed.fnc#603~33507~ 2008-03-13 07:35:58.000000000 -0700
+++ perl/embed.fnc 2008-03-13 09:03:56.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* sstr|NN CLONE_PARAMS* param
Ap |void |rvpv_dup |NN SV* dstr|NN const SV *sstr|NN CLONE_PARAMS*
param
Ap |yy_parser*|parser_dup |NULLOK const yy_parser *const proto|NN
CLONE_PARAMS *const param
==== //depot/perl/proto.h#939 (text+w) ====
Index: perl/proto.h
--- perl/proto.h#938~33507~ 2008-03-13 07:35:58.000000000 -0700
+++ perl/proto.h 2008-03-13 09:03:56.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#1524 (text) ====
Index: perl/sv.c
--- perl/sv.c#1523~33507~ 2008-03-13 07:35:58.000000000 -0700
+++ perl/sv.c 2008-03-13 09:03:56.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.
