mg_copy ought to take an I32
authorVincent Pit <perl@profvince.com>
Wed, 6 Feb 2008 10:39:58 +0000 (11:39 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Fri, 8 Feb 2008 15:18:45 +0000 (15:18 +0000)
From: "Vincent Pit" <perl@profvince.com>
Message-ID: <39468.147.210.17.175.1202290798.squirrel@147.210.17.175>

p4raw-id: //depot/perl@33256

ext/threads/shared/shared.xs
mg.h
pod/perlguts.pod

index 9e66dfa..7decc4d 100644 (file)
@@ -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 (file)
--- 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);
 };
index f0ec1c9..33346c6 100644 (file)
@@ -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);