From: Vincent Pit Date: Wed, 6 Feb 2008 10:39:58 +0000 (+0100) Subject: mg_copy ought to take an I32 X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3468c7eaa8d7687e8ae89928492b408a4d6c752f;p=p5sagit%2Fp5-mst-13.2.git mg_copy ought to take an I32 From: "Vincent Pit" Message-ID: <39468.147.210.17.175.1202290798.squirrel@147.210.17.175> p4raw-id: //depot/perl@33256 --- diff --git a/ext/threads/shared/shared.xs b/ext/threads/shared/shared.xs index 9e66dfa..7decc4d 100644 --- a/ext/threads/shared/shared.xs +++ b/ext/threads/shared/shared.xs @@ -1035,7 +1035,7 @@ sharedsv_array_mg_free(pTHX_ SV *sv, MAGIC *mg) */ int sharedsv_array_mg_copy(pTHX_ SV *sv, MAGIC* mg, - SV *nsv, const char *name, int namlen) + SV *nsv, const char *name, I32 namlen) { MAGIC *nmg = sv_magicext(nsv,mg->mg_obj, toLOWER(mg->mg_type),&sharedsv_elem_vtbl, diff --git a/mg.h b/mg.h index fffc2dc..bdafe26 100644 --- a/mg.h +++ b/mg.h @@ -18,7 +18,7 @@ struct mgvtbl { int (CPERLscope(*svt_clear))(pTHX_ SV *sv, MAGIC* mg); int (CPERLscope(*svt_free)) (pTHX_ SV *sv, MAGIC* mg); int (CPERLscope(*svt_copy)) (pTHX_ SV *sv, MAGIC* mg, - SV *nsv, const char *name, int namlen); + SV *nsv, const char *name, I32 namlen); int (CPERLscope(*svt_dup)) (pTHX_ MAGIC *mg, CLONE_PARAMS *param); int (CPERLscope(*svt_local))(pTHX_ SV *nsv, MAGIC *mg); }; diff --git a/pod/perlguts.pod b/pod/perlguts.pod index f0ec1c9..33346c6 100644 --- a/pod/perlguts.pod +++ b/pod/perlguts.pod @@ -979,7 +979,7 @@ routine types: int (*svt_clear)(SV* sv, MAGIC* mg); int (*svt_free)(SV* sv, MAGIC* mg); - int (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv, const char *name, int namlen); + int (*svt_copy)(SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen); int (*svt_dup)(MAGIC *mg, CLONE_PARAMS *param); int (*svt_local)(SV *nsv, MAGIC *mg);