Un-mathom Perl_save_I16

From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510704230610t13c62378s381eaceae3e7e9b1@mail.gmail.com>

p4raw-id: //depot/perl@31033

diff --git a/mathoms.c b/mathoms.c
index 708645e..4f8ee56 100644 (file)
--- a/mathoms.c
+++ b/mathoms.c
@@ -1182,16 +1182,6 @@ Perl_save_long(pTHX_ long int *longp)
 }
 
 void
-Perl_save_I16(pTHX_ I16 *intp)
-{
-    dVAR;
-    SSCHECK(3);
-    SSPUSHINT(*intp);
-    SSPUSHPTR(intp);
-    SSPUSHINT(SAVEt_I16);
-}
-
-void
 Perl_save_iv(pTHX_ IV *ivp)
 {
     dVAR;

diff --git a/scope.c b/scope.c
index 171fd78..e38dedf 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -351,6 +351,16 @@ Perl_save_I8(pTHX_ I8 *bytep)
 }
 
 void
+Perl_save_I16(pTHX_ I16 *intp)
+{
+    dVAR;
+    SSCHECK(3);
+    SSPUSHINT(*intp);
+    SSPUSHPTR(intp);
+    SSPUSHINT(SAVEt_I16);
+}
+
+void
 Perl_save_I32(pTHX_ I32 *intp)
 {
     dVAR;