Upgrade Scalar-List-Utils from version 1.41 to 1.42

[perl5.git] / scope.h

diff --git a/scope.h b/scope.h
index cad02cd..97ef3fa 100644 (file)
--- a/scope.h
+++ b/scope.h
@@ -39,12 +39,12 @@
 #define SAVEt_PARSER           19
 #define SAVEt_STACK_POS                20
 #define SAVEt_READONLY_OFF     21
+#define SAVEt_FREEPADNAME      22
 
-#define SAVEt_ARG1_MAX         21
+#define SAVEt_ARG1_MAX         22
 
 /* two args */
 
-#define SAVEt_APTR             22
 #define SAVEt_AV               23
 #define SAVEt_DESTRUCTOR       24
 #define SAVEt_DESTRUCTOR_X     25
@@ -69,17 +69,19 @@
 #define SAVEt_SVREF            44
 #define SAVEt_VPTR             45
 #define SAVEt_ADELETE          46
+#define SAVEt_APTR             47
 
-#define SAVEt_ARG2_MAX         46
+#define SAVEt_ARG2_MAX         47
 
 /* three args */
 
-#define SAVEt_DELETE           47
 #define SAVEt_HELEM            48
 #define SAVEt_PADSV_AND_MORTALIZE 49
 #define SAVEt_SET_SVFLAGS      50
 #define SAVEt_GVSLOT           51
 #define SAVEt_AELEM            52
+#define SAVEt_DELETE           53
+
 
 #define SAVEf_SETMAGIC         1
 #define SAVEf_KEEPOLDELEM      2
@@ -240,6 +242,7 @@ scope has the given name. Name must be a literal string.
 #define SAVEVPTR(s)    save_vptr((void*)&(s))
 #define SAVEPADSVANDMORTALIZE(s)       save_padsv_and_mortalize(s)
 #define SAVEFREESV(s)  save_freesv(MUTABLE_SV(s))
+#define SAVEFREEPADNAME(s) save_pushptr((void *)(s), SAVEt_FREEPADNAME)
 #define SAVEMORTALIZESV(s)     save_mortalizesv(MUTABLE_SV(s))
 #define SAVEFREEOP(o)  save_freeop((OP*)(o))
 #define SAVEFREEPV(p)  save_freepv((char*)(p))
@@ -338,11 +341,5 @@ STMT_START {                                 \
 #define save_op()              save_pushptr((void *)(PL_op), SAVEt_OP)
 
 /*
- * Local variables:
- * c-indentation-style: bsd
- * c-basic-offset: 4
- * indent-tabs-mode: nil
- * End:
- *
  * ex: set ts=8 sts=4 sw=4 et:
  */