sprintf %NNN$ check for large values wrapping to negative

[p5sagit/p5-mst-13.2.git] / scope.c

diff --git a/scope.c b/scope.c
index 5ef74ec..4806316 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -169,7 +169,7 @@ S_save_scalar_at(pTHX_ SV **sptr)
 SV *
 Perl_save_scalar(pTHX_ GV *gv)
 {
-    SV **sptr = &GvSV(gv);
+    SV ** const sptr = &GvSV(gv);
     PL_localizing = 1;
     SvGETMAGIC(*sptr);
     PL_localizing = 0;
@@ -623,7 +623,7 @@ Perl_leave_scope(pTHX_ I32 base)
     register GV *gv;
     register AV *av;
     register HV *hv;
-    register void* ptr;
+    void* ptr;
     register char* str;
     I32 i;
 
@@ -963,8 +963,8 @@ Perl_leave_scope(pTHX_ I32 base)
        case SAVEt_SAVESWITCHSTACK:
            {
                dSP;
-               AV* t = (AV*)SSPOPPTR;
-               AV* f = (AV*)SSPOPPTR;
+               AV* const t = (AV*)SSPOPPTR;
+               AV* const f = (AV*)SSPOPPTR;
                SWITCHSTACK(t,f);
                PL_curstackinfo->si_stack = f;
            }
@@ -1091,6 +1091,8 @@ Perl_cx_dump(pTHX_ PERL_CONTEXT *cx)
                PTR2UV(cx->sb_rxres));
        break;
     }
+#else
+    PERL_UNUSED_ARG(cx);
 #endif /* DEBUGGING */
 }