Unmathomize save_iv
authorFather Chrysostomos <sprout@cpan.org>
Thu, 28 Jul 2016 01:35:22 +0000 (18:35 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Thu, 28 Jul 2016 05:10:17 +0000 (22:10 -0700)
I need to call it from toke.c.

mathoms.c
scope.c

index 82ee778..880d0cd 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -747,17 +747,6 @@ Perl_save_long(pTHX_ long int *longp)
     SSPUSHUV(SAVEt_LONG);
 }
 
-void
-Perl_save_iv(pTHX_ IV *ivp)
-{
-    PERL_ARGS_ASSERT_SAVE_IV;
-
-    SSCHECK(3);
-    SSPUSHIV(*ivp);
-    SSPUSHPTR(ivp);
-    SSPUSHUV(SAVEt_IV);
-}
-
 void
 Perl_save_nogv(pTHX_ GV *gv)
 {
diff --git a/scope.c b/scope.c
index 55f801a..408c6f3 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -497,6 +497,17 @@ Perl_save_strlen(pTHX_ STRLEN *ptr)
     SS_ADD_END(3);
 }
 
+void
+Perl_save_iv(pTHX_ IV *ivp)
+{
+    PERL_ARGS_ASSERT_SAVE_IV;
+
+    SSCHECK(3);
+    SSPUSHIV(*ivp);
+    SSPUSHPTR(ivp);
+    SSPUSHUV(SAVEt_IV);
+}
+
 /* Cannot use save_sptr() to store a char* since the SV** cast will
  * force word-alignment and we'll miss the pointer.
  */