This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For SAVEt_I8, save the value with the type.
authorNicholas Clark <nick@ccl4.org>
Sat, 20 Feb 2010 18:35:23 +0000 (18:35 +0000)
committerNicholas Clark <nick@ccl4.org>
Tue, 4 May 2010 06:06:51 +0000 (07:06 +0100)
scope.c
sv.c

diff --git a/scope.c b/scope.c
index 8a769a3..9f9da42 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -405,7 +405,9 @@ Perl_save_I8(pTHX_ I8 *bytep)
 
     PERL_ARGS_ASSERT_SAVE_I8;
 
-    save_pushi32ptr(*bytep, bytep, SAVEt_I8);
+    SSCHECK(2);
+    SSPUSHPTR(bytep);
+    SSPUSHUV(SAVEt_I8 | ((UV)*bytep << 8));
 }
 
 void
@@ -1088,7 +1090,7 @@ Perl_leave_scope(pTHX_ I32 base)
            break;
        case SAVEt_I8:                          /* I8 reference */
            ptr = SSPOPPTR;
-           *(I8*)ptr = (I8)SSPOPINT;
+           *(I8*)ptr = (I8)(uv >> 8);
            break;
        case SAVEt_DESTRUCTOR:
            ptr = SSPOPPTR;
diff --git a/sv.c b/sv.c
index 3abeb54..c0f7ee3 100644 (file)
--- a/sv.c
+++ b/sv.c
@@ -11560,7 +11560,6 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            break;
        case SAVEt_I32:                         /* I32 reference */
        case SAVEt_I16:                         /* I16 reference */
-       case SAVEt_I8:                          /* I8 reference */
        case SAVEt_COP_ARYBASE:                 /* call CopARYBASE_set */
            ptr = POPPTR(ss,ix);
            TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
@@ -11585,6 +11584,7 @@ Perl_ss_dup(pTHX_ PerlInterpreter *proto_perl, CLONE_PARAMS* param)
            ptr = POPPTR(ss,ix);
            TOPPTR(nss,ix) = any_dup(ptr, proto_perl);
            /* Fall through */
+       case SAVEt_I8:                          /* I8 reference */
        case SAVEt_BOOL:
            ptr = POPPTR(ss,ix);
            TOPPTR(nss,ix) = any_dup(ptr, proto_perl);