summaryrefslogtreecommitdiff
path: root/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h
diff options
context:
space:
mode:
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h')
-rw-r--r--systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h114
1 files changed, 58 insertions, 56 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h
index 483bc5d700..49177e32a8 100644
--- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h
+++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/scope.h
@@ -38,43 +38,45 @@
#define SAVEt_STACK_POS 20
#define SAVEt_READONLY_OFF 21
#define SAVEt_FREEPADNAME 22
+#define SAVEt_STRLEN_SMALL 23
/* two args */
-#define SAVEt_AV 23
-#define SAVEt_DESTRUCTOR 24
-#define SAVEt_DESTRUCTOR_X 25
-#define SAVEt_GENERIC_PVREF 26
-#define SAVEt_GENERIC_SVREF 27
-#define SAVEt_GP 28
-#define SAVEt_GVSV 29
-#define SAVEt_HINTS 30
-#define SAVEt_HPTR 31
-#define SAVEt_HV 32
-#define SAVEt_I32 33
-#define SAVEt_INT 34
-#define SAVEt_ITEM 35
-#define SAVEt_IV 36
-#define SAVEt_LONG 37
-#define SAVEt_PPTR 38
-#define SAVEt_SAVESWITCHSTACK 39
-#define SAVEt_SHARED_PVREF 40
-#define SAVEt_SPTR 41
-#define SAVEt_STRLEN 42
-#define SAVEt_SV 43
-#define SAVEt_SVREF 44
-#define SAVEt_VPTR 45
-#define SAVEt_ADELETE 46
-#define SAVEt_APTR 47
+#define SAVEt_AV 24
+#define SAVEt_DESTRUCTOR 25
+#define SAVEt_DESTRUCTOR_X 26
+#define SAVEt_GENERIC_PVREF 27
+#define SAVEt_GENERIC_SVREF 28
+#define SAVEt_GP 29
+#define SAVEt_GVSV 30
+#define SAVEt_HINTS 31
+#define SAVEt_HPTR 32
+#define SAVEt_HV 33
+#define SAVEt_I32 34
+#define SAVEt_INT 35
+#define SAVEt_ITEM 36
+#define SAVEt_IV 37
+#define SAVEt_LONG 38
+#define SAVEt_PPTR 39
+#define SAVEt_SAVESWITCHSTACK 40
+#define SAVEt_SHARED_PVREF 41
+#define SAVEt_SPTR 42
+#define SAVEt_STRLEN 43
+#define SAVEt_SV 44
+#define SAVEt_SVREF 45
+#define SAVEt_VPTR 46
+#define SAVEt_ADELETE 47
+#define SAVEt_APTR 48
/* three args */
-#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 SAVEt_HELEM 49
+#define SAVEt_PADSV_AND_MORTALIZE 50
+#define SAVEt_SET_SVFLAGS 51
+#define SAVEt_GVSLOT 52
+#define SAVEt_AELEM 53
+#define SAVEt_DELETE 54
+#define SAVEt_HINTS_HH 55
#define SAVEf_SETMAGIC 1
@@ -151,7 +153,7 @@
/*
-=head1 Callback Functions
+=for apidoc_section $callback
=for apidoc Amns||SAVETMPS
Opening bracket for temporaries on a callback. See C<L</FREETMPS>> and
@@ -187,30 +189,30 @@ scope has the given name. C<name> must be a literal string.
#ifdef DEBUGGING
#define ENTER \
STMT_START { \
- push_scope(); \
- DEBUG_SCOPE("ENTER") \
+ push_scope(); \
+ DEBUG_SCOPE("ENTER") \
} STMT_END
#define LEAVE \
STMT_START { \
- DEBUG_SCOPE("LEAVE") \
- pop_scope(); \
+ DEBUG_SCOPE("LEAVE") \
+ pop_scope(); \
} STMT_END
#define ENTER_with_name(name) \
STMT_START { \
- push_scope(); \
- if (PL_scopestack_name) \
- PL_scopestack_name[PL_scopestack_ix-1] = name; \
- DEBUG_SCOPE("ENTER \"" name "\"") \
+ push_scope(); \
+ if (PL_scopestack_name) \
+ PL_scopestack_name[PL_scopestack_ix-1] = name; \
+ DEBUG_SCOPE("ENTER \"" name "\"") \
} STMT_END
#define LEAVE_with_name(name) \
STMT_START { \
- DEBUG_SCOPE("LEAVE \"" name "\"") \
- if (PL_scopestack_name) { \
- assert(((char*)PL_scopestack_name[PL_scopestack_ix-1] \
- == (char*)name) \
- || strEQ(PL_scopestack_name[PL_scopestack_ix-1], name)); \
- } \
- pop_scope(); \
+ DEBUG_SCOPE("LEAVE \"" name "\"") \
+ if (PL_scopestack_name) { \
+ assert(((char*)PL_scopestack_name[PL_scopestack_ix-1] \
+ == (char*)name) \
+ || strEQ(PL_scopestack_name[PL_scopestack_ix-1], name)); \
+ } \
+ pop_scope(); \
} STMT_END
#else
#define ENTER push_scope()
@@ -219,7 +221,7 @@ scope has the given name. C<name> must be a literal string.
#define LEAVE_with_name(name) LEAVE
#endif
#define LEAVE_SCOPE(old) STMT_START { \
- if (PL_savestack_ix > old) leave_scope(old); \
+ if (PL_savestack_ix > old) leave_scope(old); \
} STMT_END
#define SAVEI8(i) save_I8((I8*)&(i))
@@ -245,16 +247,16 @@ scope has the given name. C<name> must be a literal string.
#define SAVESETSVFLAGS(sv,mask,val) save_set_svflags(sv,mask,val)
#define SAVEFREECOPHH(h) save_pushptr((void *)(h), SAVEt_FREECOPHH)
#define SAVEDELETE(h,k,l) \
- save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l))
+ save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l))
#define SAVEHDELETE(h,s) \
- save_hdelete(MUTABLE_HV(h), (s))
+ save_hdelete(MUTABLE_HV(h), (s))
#define SAVEADELETE(a,k) \
- save_adelete(MUTABLE_AV(a), (SSize_t)(k))
+ save_adelete(MUTABLE_AV(a), (SSize_t)(k))
#define SAVEDESTRUCTOR(f,p) \
- save_destructor((DESTRUCTORFUNC_NOCONTEXT_t)(f), (void*)(p))
+ save_destructor((DESTRUCTORFUNC_NOCONTEXT_t)(f), (void*)(p))
#define SAVEDESTRUCTOR_X(f,p) \
- save_destructor_x((DESTRUCTORFUNC_t)(f), (void*)(p))
+ save_destructor_x((DESTRUCTORFUNC_t)(f), (void*)(p))
#define SAVESTACK_POS() \
STMT_START { \
@@ -272,9 +274,9 @@ scope has the given name. C<name> must be a literal string.
#define SAVESWITCHSTACK(f,t) \
STMT_START { \
- save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \
- SWITCHSTACK((f),(t)); \
- PL_curstackinfo->si_stack = (t); \
+ save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \
+ SWITCHSTACK((f),(t)); \
+ PL_curstackinfo->si_stack = (t); \
} STMT_END
/* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV",