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

/*    scope.h
 *
 *    Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2001,
 *    2002, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
 *
 *    You may distribute under the terms of either the GNU General Public
 *    License or the Artistic License, as specified in the README file.
 *
 */

#define SAVEt_ITEM		0
#define SAVEt_SV		1
#define SAVEt_AV		2
#define SAVEt_HV		3
#define SAVEt_INT		4
#define SAVEt_LONG		5
#define SAVEt_I32		6
#define SAVEt_IV		7
#define SAVEt_SPTR		8
#define SAVEt_APTR		9
#define SAVEt_HPTR		10
#define SAVEt_PPTR		11
#define SAVEt_NSTAB		12
#define SAVEt_SVREF		13
#define SAVEt_GP		14
#define SAVEt_FREESV		15
#define SAVEt_FREEOP		16
#define SAVEt_FREEPV		17
#define SAVEt_CLEARSV		18
#define SAVEt_DELETE		19
#define SAVEt_DESTRUCTOR	20
#define SAVEt_REGCONTEXT	21
#define SAVEt_STACK_POS		22
#define SAVEt_I16		23
#define SAVEt_AELEM		24
#define SAVEt_HELEM		25
#define SAVEt_OP		26
#define SAVEt_HINTS		27
#define SAVEt_ALLOC		28
#define SAVEt_GENERIC_SVREF	29
#define SAVEt_DESTRUCTOR_X	30
#define SAVEt_VPTR		31
#define SAVEt_I8		32
#define SAVEt_COMPPAD		33
#define SAVEt_GENERIC_PVREF	34
#define SAVEt_PADSV_AND_MORTALIZE	35
#define SAVEt_MORTALIZESV	36
#define SAVEt_SHARED_PVREF	37
#define SAVEt_BOOL		38
#define SAVEt_SET_SVFLAGS	39
#define SAVEt_SAVESWITCHSTACK	40
#define SAVEt_COP_ARYBASE	41
#define SAVEt_RE_STATE		42
#define SAVEt_COMPILE_WARNINGS	43
#define SAVEt_STACK_CXPOS	44
#define SAVEt_PARSER		45

#define SAVEf_SETMAGIC		1

#define save_helem(hv,key,sptr)	save_helem_flags(hv,key,sptr,SAVEf_SETMAGIC)

#ifndef SCOPE_SAVES_SIGNAL_MASK
#define SCOPE_SAVES_SIGNAL_MASK 0
#endif

#define SSCHECK(need) if (PL_savestack_ix + (I32)(need) > PL_savestack_max) savestack_grow()
#define SSGROW(need) if (PL_savestack_ix + (I32)(need) > PL_savestack_max) savestack_grow_cnt(need)
#define SSPUSHINT(i) (PL_savestack[PL_savestack_ix++].any_i32 = (I32)(i))
#define SSPUSHLONG(i) (PL_savestack[PL_savestack_ix++].any_long = (long)(i))
#define SSPUSHBOOL(p) (PL_savestack[PL_savestack_ix++].any_bool = (p))
#define SSPUSHIV(i) (PL_savestack[PL_savestack_ix++].any_iv = (IV)(i))
#define SSPUSHPTR(p) (PL_savestack[PL_savestack_ix++].any_ptr = (void*)(p))
#define SSPUSHDPTR(p) (PL_savestack[PL_savestack_ix++].any_dptr = (p))
#define SSPUSHDXPTR(p) (PL_savestack[PL_savestack_ix++].any_dxptr = (p))
#define SSPOPINT (PL_savestack[--PL_savestack_ix].any_i32)
#define SSPOPLONG (PL_savestack[--PL_savestack_ix].any_long)
#define SSPOPBOOL (PL_savestack[--PL_savestack_ix].any_bool)
#define SSPOPIV (PL_savestack[--PL_savestack_ix].any_iv)
#define SSPOPPTR (PL_savestack[--PL_savestack_ix].any_ptr)
#define SSPOPDPTR (PL_savestack[--PL_savestack_ix].any_dptr)
#define SSPOPDXPTR (PL_savestack[--PL_savestack_ix].any_dxptr)

/*
=head1 Callback Functions

=for apidoc Ams||SAVETMPS
Opening bracket for temporaries on a callback.  See C<FREETMPS> and
L<perlcall>.

=for apidoc Ams||FREETMPS
Closing bracket for temporaries on a callback.  See C<SAVETMPS> and
L<perlcall>.

=for apidoc Ams||ENTER
Opening bracket on a callback.  See C<LEAVE> and L<perlcall>.

=for apidoc Ams||LEAVE
Closing bracket on a callback.  See C<ENTER> and L<perlcall>.

=cut
*/

#define SAVETMPS save_int((int*)&PL_tmps_floor), PL_tmps_floor = PL_tmps_ix
#define FREETMPS if (PL_tmps_ix > PL_tmps_floor) free_tmps()

#ifdef DEBUGGING
#define ENTER							\
    STMT_START {						\
	push_scope();						\
	DEBUG_SCOPE("ENTER")					\
    } STMT_END
#define LEAVE							\
    STMT_START {						\
	DEBUG_SCOPE("LEAVE")					\
	pop_scope();						\
    } STMT_END
#else
#define ENTER push_scope()
#define LEAVE pop_scope()
#endif
#define LEAVE_SCOPE(old) if (PL_savestack_ix > old) leave_scope(old)

#define SAVEI8(i)	save_I8((I8*)&(i))
#define SAVEI16(i)	save_I16((I16*)&(i))
#define SAVEI32(i)	save_I32((I32*)&(i))
#define SAVEINT(i)	save_int((int*)&(i))
#define SAVEIV(i)	save_iv((IV*)&(i))
#define SAVELONG(l)	save_long((long*)&(l))
#define SAVEBOOL(b)	save_bool((bool*)&(b))
#define SAVESPTR(s)	save_sptr((SV**)&(s))
#define SAVEPPTR(s)	save_pptr((char**)&(s))
#define SAVEVPTR(s)	save_vptr((void*)&(s))
#define SAVEPADSVANDMORTALIZE(s)	save_padsv_and_mortalize(s)
#define SAVEFREESV(s)	save_freesv(MUTABLE_SV(s))
#define SAVEMORTALIZESV(s)	save_mortalizesv(MUTABLE_SV(s))
#define SAVEFREEOP(o)	save_freeop((OP*)(o))
#define SAVEFREEPV(p)	save_freepv((char*)(p))
#define SAVECLEARSV(sv)	save_clearsv((SV**)&(sv))
#define SAVEGENERICSV(s)	save_generic_svref((SV**)&(s))
#define SAVEGENERICPV(s)	save_generic_pvref((char**)&(s))
#define SAVESHAREDPV(s)		save_shared_pvref((char**)&(s))
#define SAVESETSVFLAGS(sv,mask,val)	save_set_svflags(sv,mask,val)
#define SAVEDELETE(h,k,l) \
	  save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l))
#define SAVEDESTRUCTOR(f,p) \
	  save_destructor((DESTRUCTORFUNC_NOCONTEXT_t)(f), (void*)(p))

#define SAVEDESTRUCTOR_X(f,p) \
	  save_destructor_x((DESTRUCTORFUNC_t)(f), (void*)(p))

#define SAVESTACK_POS() \
    STMT_START {				\
	SSCHECK(2);				\
	SSPUSHINT(PL_stack_sp - PL_stack_base);	\
	SSPUSHINT(SAVEt_STACK_POS);		\
    } STMT_END

#define SAVEOP()	save_op()

#define SAVEHINTS() \
    STMT_START {					\
	SSCHECK(4);					\
	if (PL_hints & HINT_LOCALIZE_HH) {		\
	    SSPUSHPTR(GvHV(PL_hintgv));			\
	    GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \
	}						\
	if (PL_compiling.cop_hints_hash) {		\
	    HINTS_REFCNT_LOCK;				\
	    PL_compiling.cop_hints_hash->refcounted_he_refcnt++;	\
	    HINTS_REFCNT_UNLOCK;			\
	}						\
	SSPUSHPTR(PL_compiling.cop_hints_hash);		\
	SSPUSHINT(PL_hints);				\
	SSPUSHINT(SAVEt_HINTS);				\
    } STMT_END

#define SAVECOMPPAD() save_pushptr(MUTABLE_SV(PL_comppad), SAVEt_COMPPAD)

#define SAVESWITCHSTACK(f,t) \
    STMT_START {					\
	save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \
	SWITCHSTACK((f),(t));				\
	PL_curstackinfo->si_stack = (t);		\
    } STMT_END

#define SAVECOPARYBASE(c) \
    STMT_START {					\
	SSCHECK(3);					\
	SSPUSHINT(CopARYBASE_get(c));			\
	SSPUSHPTR(c);					\
	SSPUSHINT(SAVEt_COP_ARYBASE);			\
    } STMT_END

/* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV",
   because realloc() means that the value can actually change. Possibly
   could have done savefreesharedpvREF, but this way actually seems cleaner,
   as it simplifies the code that does the saves, and reduces the load on the
   save stack.  */
#define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS)

#define SAVESTACK_CXPOS() \
    STMT_START {                                  \
        SSCHECK(3);                               \
        SSPUSHINT(cxstack[cxstack_ix].blk_oldsp); \
        SSPUSHINT(cxstack_ix);                    \
        SSPUSHINT(SAVEt_STACK_CXPOS);             \
    } STMT_END

#define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)

#ifdef USE_ITHREADS
#  define SAVECOPSTASH(c)	SAVEPPTR(CopSTASHPV(c))
#  define SAVECOPSTASH_FREE(c)	SAVESHAREDPV(CopSTASHPV(c))
#  define SAVECOPFILE(c)	SAVEPPTR(CopFILE(c))
#  define SAVECOPFILE_FREE(c)	SAVESHAREDPV(CopFILE(c))
#else
#  define SAVECOPSTASH(c)	SAVESPTR(CopSTASH(c))
#  define SAVECOPSTASH_FREE(c)	SAVECOPSTASH(c)	/* XXX not refcounted */
#  define SAVECOPFILE(c)	SAVESPTR(CopFILEGV(c))
#  define SAVECOPFILE_FREE(c)	SAVEGENERICSV(CopFILEGV(c))
#endif

#define SAVECOPLINE(c)		SAVEI32(CopLINE(c))

/* SSNEW() temporarily allocates a specified number of bytes of data on the
 * savestack.  It returns an integer index into the savestack, because a
 * pointer would get broken if the savestack is moved on reallocation.
 * SSNEWa() works like SSNEW(), but also aligns the data to the specified
 * number of bytes.  MEM_ALIGNBYTES is perhaps the most useful.  The
 * alignment will be preserved therough savestack reallocation *only* if
 * realloc returns data aligned to a size divisible by "align"!
 *
 * SSPTR() converts the index returned by SSNEW/SSNEWa() into a pointer.
 */

#define SSNEW(size)             Perl_save_alloc(aTHX_ (size), 0)
#define SSNEWt(n,t)             SSNEW((n)*sizeof(t))
#define SSNEWa(size,align)	Perl_save_alloc(aTHX_ (size), \
    (align - ((int)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align)
#define SSNEWat(n,t,align)	SSNEWa((n)*sizeof(t), align)

#define SSPTR(off,type)         ((type)  ((char*)PL_savestack + off))
#define SSPTRt(off,type)        ((type*) ((char*)PL_savestack + off))

#define save_freesv(op)		save_pushptr((void *)(op), SAVEt_FREESV)
#define save_mortalizesv(op)	save_pushptr((void *)(op), SAVEt_MORTALIZESV)
#define save_freeop(op)		save_pushptr((void *)(op), SAVEt_FREEOP)
#define save_freepv(pv)		save_pushptr((void *)(pv), SAVEt_FREEPV)
#define save_op()		save_pushptr((void *)(PL_op), SAVEt_OP)

/*
 * Local variables:
 * c-indentation-style: bsd
 * c-basic-offset: 4
 * indent-tabs-mode: t
 * End:
 *
 * ex: set ts=8 sts=4 sw=4 noet:
 */
Commit	Line	Data
d6376244	1	/* scope.h
d6376244	2	*
1129b882	3	* Copyright (C) 1993, 1994, 1996, 1997, 1998, 1999, 2000, 2001,
1129b882	4	* 2002, 2004, 2005, 2006, 2007, 2008 by Larry Wall and others
d6376244	5	*
	6	* You may distribute under the terms of either the GNU General Public
	7	* License or the Artistic License, as specified in the README file.
	8	*
	9	*/
	10
b9d12d37	11	#define SAVEt_ITEM 0
	12	#define SAVEt_SV 1
	13	#define SAVEt_AV 2
	14	#define SAVEt_HV 3
	15	#define SAVEt_INT 4
	16	#define SAVEt_LONG 5
	17	#define SAVEt_I32 6
	18	#define SAVEt_IV 7
	19	#define SAVEt_SPTR 8
	20	#define SAVEt_APTR 9
	21	#define SAVEt_HPTR 10
	22	#define SAVEt_PPTR 11
	23	#define SAVEt_NSTAB 12
	24	#define SAVEt_SVREF 13
	25	#define SAVEt_GP 14
	26	#define SAVEt_FREESV 15
	27	#define SAVEt_FREEOP 16
	28	#define SAVEt_FREEPV 17
	29	#define SAVEt_CLEARSV 18
	30	#define SAVEt_DELETE 19
	31	#define SAVEt_DESTRUCTOR 20
	32	#define SAVEt_REGCONTEXT 21
	33	#define SAVEt_STACK_POS 22
	34	#define SAVEt_I16 23
	35	#define SAVEt_AELEM 24
	36	#define SAVEt_HELEM 25
	37	#define SAVEt_OP 26
	38	#define SAVEt_HINTS 27
	39	#define SAVEt_ALLOC 28
	40	#define SAVEt_GENERIC_SVREF 29
c76ac1ee	41	#define SAVEt_DESTRUCTOR_X 30
7766f137	42	#define SAVEt_VPTR 31
e8347627	43	#define SAVEt_I8 32
354992b1	44	#define SAVEt_COMPPAD 33
f4dd75d9	45	#define SAVEt_GENERIC_PVREF 34
09edbca0	46	#define SAVEt_PADSV_AND_MORTALIZE 35
26d9b02f	47	#define SAVEt_MORTALIZESV 36
05ec9bb3	48	#define SAVEt_SHARED_PVREF 37
9febdf04	49	#define SAVEt_BOOL 38
14f338dc	50	#define SAVEt_SET_SVFLAGS 39
8b7059b1	51	#define SAVEt_SAVESWITCHSTACK 40
fc15ae8f	52	#define SAVEt_COP_ARYBASE 41
1ade1aa1	53	#define SAVEt_RE_STATE 42
68da3b2f	54	#define SAVEt_COMPILE_WARNINGS 43
ea8d6ae1	55	#define SAVEt_STACK_CXPOS 44
7c197c94	56	#define SAVEt_PARSER 45
79072805	57
af7df257	58	#define SAVEf_SETMAGIC 1
	59
	60	#define save_helem(hv,key,sptr) save_helem_flags(hv,key,sptr,SAVEf_SETMAGIC)
	61
b03c0a3a	62	#ifndef SCOPE_SAVES_SIGNAL_MASK
1b266415	63	#define SCOPE_SAVES_SIGNAL_MASK 0
b03c0a3a	64	#endif
b03c0a3a	65
bb7a0f54	66	#define SSCHECK(need) if (PL_savestack_ix + (I32)(need) > PL_savestack_max) savestack_grow()
bb7a0f54	67	#define SSGROW(need) if (PL_savestack_ix + (I32)(need) > PL_savestack_max) savestack_grow_cnt(need)
3280af22	68	#define SSPUSHINT(i) (PL_savestack[PL_savestack_ix++].any_i32 = (I32)(i))
3280af22	69	#define SSPUSHLONG(i) (PL_savestack[PL_savestack_ix++].any_long = (long)(i))
9febdf04	70	#define SSPUSHBOOL(p) (PL_savestack[PL_savestack_ix++].any_bool = (p))
3280af22	71	#define SSPUSHIV(i) (PL_savestack[PL_savestack_ix++].any_iv = (IV)(i))
	72	#define SSPUSHPTR(p) (PL_savestack[PL_savestack_ix++].any_ptr = (void*)(p))
	73	#define SSPUSHDPTR(p) (PL_savestack[PL_savestack_ix++].any_dptr = (p))
c76ac1ee	74	#define SSPUSHDXPTR(p) (PL_savestack[PL_savestack_ix++].any_dxptr = (p))
3280af22	75	#define SSPOPINT (PL_savestack[--PL_savestack_ix].any_i32)
3280af22	76	#define SSPOPLONG (PL_savestack[--PL_savestack_ix].any_long)
9febdf04	77	#define SSPOPBOOL (PL_savestack[--PL_savestack_ix].any_bool)
3280af22	78	#define SSPOPIV (PL_savestack[--PL_savestack_ix].any_iv)
	79	#define SSPOPPTR (PL_savestack[--PL_savestack_ix].any_ptr)
	80	#define SSPOPDPTR (PL_savestack[--PL_savestack_ix].any_dptr)
c76ac1ee	81	#define SSPOPDXPTR (PL_savestack[--PL_savestack_ix].any_dxptr)
8990e307	82
954c1994	83	/*
ccfc67b7	84	=head1 Callback Functions
ccfc67b7	85
954c1994	86	=for apidoc Ams\|\|SAVETMPS
	87	Opening bracket for temporaries on a callback. See C<FREETMPS> and
	88	L<perlcall>.
	89
	90	=for apidoc Ams\|\|FREETMPS
	91	Closing bracket for temporaries on a callback. See C<SAVETMPS> and
	92	L<perlcall>.
	93
	94	=for apidoc Ams\|\|ENTER
	95	Opening bracket on a callback. See C<LEAVE> and L<perlcall>.
	96
	97	=for apidoc Ams\|\|LEAVE
	98	Closing bracket on a callback. See C<ENTER> and L<perlcall>.
	99
	100	=cut
	101	*/
	102
3280af22	103	#define SAVETMPS save_int((int*)&PL_tmps_floor), PL_tmps_floor = PL_tmps_ix
3280af22	104	#define FREETMPS if (PL_tmps_ix > PL_tmps_floor) free_tmps()
a0d0e21e	105
f46d017c	106	#ifdef DEBUGGING
	107	#define ENTER \
	108	STMT_START { \
	109	push_scope(); \
b4ab917c	110	DEBUG_SCOPE("ENTER") \
f46d017c	111	} STMT_END
	112	#define LEAVE \
	113	STMT_START { \
b4ab917c	114	DEBUG_SCOPE("LEAVE") \
f46d017c	115	pop_scope(); \
	116	} STMT_END
	117	#else
a0d0e21e	118	#define ENTER push_scope()
a0d0e21e	119	#define LEAVE pop_scope()
f46d017c	120	#endif
3280af22	121	#define LEAVE_SCOPE(old) if (PL_savestack_ix > old) leave_scope(old)
a0d0e21e	122
3f26ef39	123	#define SAVEI8(i) save_I8((I8*)&(i))
	124	#define SAVEI16(i) save_I16((I16*)&(i))
	125	#define SAVEI32(i) save_I32((I32*)&(i))
	126	#define SAVEINT(i) save_int((int*)&(i))
	127	#define SAVEIV(i) save_iv((IV*)&(i))
	128	#define SAVELONG(l) save_long((long*)&(l))
	129	#define SAVEBOOL(b) save_bool((bool*)&(b))
55497cff	130	#define SAVESPTR(s) save_sptr((SV**)&(s))
3f26ef39	131	#define SAVEPPTR(s) save_pptr((char**)&(s))
57b2e452	132	#define SAVEVPTR(s) save_vptr((void*)&(s))
09edbca0	133	#define SAVEPADSVANDMORTALIZE(s) save_padsv_and_mortalize(s)
b1bc3f34	134	#define SAVEFREESV(s) save_freesv(MUTABLE_SV(s))
b1bc3f34	135	#define SAVEMORTALIZESV(s) save_mortalizesv(MUTABLE_SV(s))
3f26ef39	136	#define SAVEFREEOP(o) save_freeop((OP*)(o))
	137	#define SAVEFREEPV(p) save_freepv((char*)(p))
	138	#define SAVECLEARSV(sv) save_clearsv((SV**)&(sv))
b9d12d37	139	#define SAVEGENERICSV(s) save_generic_svref((SV**)&(s))
f4dd75d9	140	#define SAVEGENERICPV(s) save_generic_pvref((char**)&(s))
05ec9bb3	141	#define SAVESHAREDPV(s) save_shared_pvref((char**)&(s))
14f338dc	142	#define SAVESETSVFLAGS(sv,mask,val) save_set_svflags(sv,mask,val)
55497cff	143	#define SAVEDELETE(h,k,l) \
dbebbdb4	144	save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l))
55497cff	145	#define SAVEDESTRUCTOR(f,p) \
3f26ef39	146	save_destructor((DESTRUCTORFUNC_NOCONTEXT_t)(f), (void*)(p))
c76ac1ee	147
c76ac1ee	148	#define SAVEDESTRUCTOR_X(f,p) \
3f26ef39	149	save_destructor_x((DESTRUCTORFUNC_t)(f), (void*)(p))
25eaa213	150
	151	#define SAVESTACK_POS() \
	152	STMT_START { \
	153	SSCHECK(2); \
3280af22	154	SSPUSHINT(PL_stack_sp - PL_stack_base); \
25eaa213	155	SSPUSHINT(SAVEt_STACK_POS); \
	156	} STMT_END
	157
462e5cf6	158	#define SAVEOP() save_op()
25eaa213	159
25eaa213	160	#define SAVEHINTS() \
dfa41748	161	STMT_START { \
b3ca2e83	162	SSCHECK(4); \
dfa41748	163	if (PL_hints & HINT_LOCALIZE_HH) { \
dfa41748	164	SSPUSHPTR(GvHV(PL_hintgv)); \
5b9c0671	165	GvHV(PL_hintgv) = Perl_hv_copy_hints_hv(aTHX_ GvHV(PL_hintgv)); \
dfa41748	166	} \
c28fe1ec	167	if (PL_compiling.cop_hints_hash) { \
cbb1fbea	168	HINTS_REFCNT_LOCK; \
c28fe1ec	169	PL_compiling.cop_hints_hash->refcounted_he_refcnt++; \
cbb1fbea	170	HINTS_REFCNT_UNLOCK; \
b3ca2e83	171	} \
c28fe1ec	172	SSPUSHPTR(PL_compiling.cop_hints_hash); \
dfa41748	173	SSPUSHINT(PL_hints); \
dfa41748	174	SSPUSHINT(SAVEt_HINTS); \
25eaa213	175	} STMT_END
354992b1	176
747e2fae	177	#define SAVECOMPPAD() save_pushptr(MUTABLE_SV(PL_comppad), SAVEt_COMPPAD)
a9332b4a	178
8b7059b1	179	#define SAVESWITCHSTACK(f,t) \
8b7059b1	180	STMT_START { \
dfcd3de5	181	save_pushptrptr(MUTABLE_SV(f), MUTABLE_SV(t), SAVEt_SAVESWITCHSTACK); \
8b7059b1	182	SWITCHSTACK((f),(t)); \
	183	PL_curstackinfo->si_stack = (t); \
	184	} STMT_END
	185
fc15ae8f	186	#define SAVECOPARYBASE(c) \
	187	STMT_START { \
	188	SSCHECK(3); \
	189	SSPUSHINT(CopARYBASE_get(c)); \
	190	SSPUSHPTR(c); \
	191	SSPUSHINT(SAVEt_COP_ARYBASE); \
	192	} STMT_END
	193
c88c823b	194	/* Need to do the cop warnings like this, rather than a "SAVEFREESHAREDPV",
72dc9ed5	195	because realloc() means that the value can actually change. Possibly
	196	could have done savefreesharedpvREF, but this way actually seems cleaner,
	197	as it simplifies the code that does the saves, and reduces the load on the
	198	save stack. */
747e2fae	199	#define SAVECOMPILEWARNINGS() save_pushptr(PL_compiling.cop_warnings, SAVEt_COMPILE_WARNINGS)
fc15ae8f	200
ea8d6ae1	201	#define SAVESTACK_CXPOS() \
	202	STMT_START { \
	203	SSCHECK(3); \
	204	SSPUSHINT(cxstack[cxstack_ix].blk_oldsp); \
	205	SSPUSHINT(cxstack_ix); \
	206	SSPUSHINT(SAVEt_STACK_CXPOS); \
	207	} STMT_END
	208
747e2fae	209	#define SAVEPARSER(p) save_pushptr((p), SAVEt_PARSER)
7c197c94	210
57843af0	211	#ifdef USE_ITHREADS
f4dd75d9	212	# define SAVECOPSTASH(c) SAVEPPTR(CopSTASHPV(c))
05ec9bb3	213	# define SAVECOPSTASH_FREE(c) SAVESHAREDPV(CopSTASHPV(c))
f4dd75d9	214	# define SAVECOPFILE(c) SAVEPPTR(CopFILE(c))
05ec9bb3	215	# define SAVECOPFILE_FREE(c) SAVESHAREDPV(CopFILE(c))
57843af0	216	#else
f4dd75d9	217	# define SAVECOPSTASH(c) SAVESPTR(CopSTASH(c))
	218	# define SAVECOPSTASH_FREE(c) SAVECOPSTASH(c) /* XXX not refcounted */
	219	# define SAVECOPFILE(c) SAVESPTR(CopFILEGV(c))
	220	# define SAVECOPFILE_FREE(c) SAVEGENERICSV(CopFILEGV(c))
57843af0	221	#endif
57843af0	222
dea28490	223	#define SAVECOPLINE(c) SAVEI32(CopLINE(c))
57843af0	224
455ece5e	225	/* SSNEW() temporarily allocates a specified number of bytes of data on the
	226	* savestack. It returns an integer index into the savestack, because a
	227	* pointer would get broken if the savestack is moved on reallocation.
	228	* SSNEWa() works like SSNEW(), but also aligns the data to the specified
	229	* number of bytes. MEM_ALIGNBYTES is perhaps the most useful. The
	230	* alignment will be preserved therough savestack reallocation only if
a0288114	231	* realloc returns data aligned to a size divisible by "align"!
455ece5e	232	*
	233	* SSPTR() converts the index returned by SSNEW/SSNEWa() into a pointer.
	234	*/
	235
f2b2c1a7	236	#define SSNEW(size) Perl_save_alloc(aTHX_ (size), 0)
02db2b7b	237	#define SSNEWt(n,t) SSNEW((n)*sizeof(t))
f2b2c1a7	238	#define SSNEWa(size,align) Perl_save_alloc(aTHX_ (size), \
455ece5e	239	(align - ((int)((caddr_t)&PL_savestack[PL_savestack_ix]) % align)) % align)
02db2b7b	240	#define SSNEWat(n,t,align) SSNEWa((n)*sizeof(t), align)
455ece5e	241
02db2b7b	242	#define SSPTR(off,type) ((type) ((char*)PL_savestack + off))
02db2b7b	243	#define SSPTRt(off,type) ((type) ((char)PL_savestack + off))
455ece5e	244
2fd8beea	245	#define save_freesv(op) save_pushptr((void *)(op), SAVEt_FREESV)
	246	#define save_mortalizesv(op) save_pushptr((void *)(op), SAVEt_MORTALIZESV)
	247	#define save_freeop(op) save_pushptr((void *)(op), SAVEt_FREEOP)
	248	#define save_freepv(pv) save_pushptr((void *)(pv), SAVEt_FREEPV)
	249	#define save_op() save_pushptr((void *)(PL_op), SAVEt_OP)
	250
e9a8c099	251	/*
	252	* Local variables:
	253	* c-indentation-style: bsd
	254	* c-basic-offset: 4
	255	* indent-tabs-mode: t
	256	* End:
	257	*
	258	* ex: set ts=8 sts=4 sw=4 noet:
	259	*/