This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Change 33507 had a const too far (Perl_mg_dup()'s mg is assigned to).
authorNicholas Clark <nick@ccl4.org>
Thu, 13 Mar 2008 16:03:56 +0000 (16:03 +0000)
committerNicholas Clark <nick@ccl4.org>
Thu, 13 Mar 2008 16:03:56 +0000 (16:03 +0000)
p4raw-id: //depot/perl@33508

embed.fnc
proto.h
sv.c

index 1a2e827..3b6b938 100644 (file)
--- a/embed.fnc
+++ b/embed.fnc
@@ -1116,7 +1116,7 @@ Ap        |void   |re_dup_guts    |NN const REGEXP *sstr|NN REGEXP *dstr \
 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
diff --git a/proto.h b/proto.h
index 928f34b..9699ccc 100644 (file)
--- a/proto.h
+++ b/proto.h
@@ -4055,7 +4055,7 @@ PERL_CALLCONV GP* Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
 #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        \
diff --git a/sv.c b/sv.c
index d3fed89..9f456c1 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -10189,7 +10189,7 @@ Perl_gp_dup(pTHX_ GP *const gp, CLONE_PARAMS *const param)
 /* 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;