Implement Perl_save_delete() using save_pushptri32ptr().
authorNicholas Clark <nick@ccl4.org>
Mon, 1 Dec 2008 13:19:41 +0000 (13:19 +0000)
committerDavid Mitchell <davem@iabyn.com>
Mon, 30 Mar 2009 14:19:26 +0000 (15:19 +0100)
p4raw-id: //depot/perl@34968

(cherry picked from commit 85a721ca70aa3423dbb60aac2a8755ab0fc07bbb)

scope.c

diff --git a/scope.c b/scope.c
index 924084d..f7bdf20 100644 (file)
--- a/scope.c
+++ b/scope.c
@@ -505,11 +505,7 @@ Perl_save_delete(pTHX_ HV *hv, char *key, I32 klen)
 
     PERL_ARGS_ASSERT_SAVE_DELETE;
 
-    SSCHECK(4);
-    SSPUSHPTR(key);
-    SSPUSHINT(klen);
-    SSPUSHPTR(SvREFCNT_inc_simple(hv));
-    SSPUSHINT(SAVEt_DELETE);
+    save_pushptri32ptr(key, klen, SvREFCNT_inc_simple(hv), SAVEt_DELETE);
 }
 
 void