home *** CD-ROM | disk | FTP | other *** search
/ Australian Personal Computer 2004 July / APC0407D2.iso / workshop / apache / files / ActivePerl-5.6.1.638-MSWin32-x86.msi / _e4eb39192cbaabd7b57f4b874009918d < prev    next >
Encoding:
Text File  |  2004-04-13  |  16.6 KB  |  526 lines
  1. /*    cop.h
  2.  *
  3.  *    Copyright (c) 1991-2001, Larry Wall
  4.  *
  5.  *    You may distribute under the terms of either the GNU General Public
  6.  *    License or the Artistic License, as specified in the README file.
  7.  *
  8.  */
  9.  
  10. struct cop {
  11.     BASEOP
  12.     char *    cop_label;    /* label for this construct */
  13. #ifdef USE_ITHREADS
  14.     char *    cop_stashpv;    /* package line was compiled in */
  15.     char *    cop_file;    /* file name the following line # is from */
  16. #else
  17.     HV *    cop_stash;    /* package line was compiled in */
  18.     GV *    cop_filegv;    /* file the following line # is from */
  19. #endif
  20.     U32        cop_seq;    /* parse sequence number */
  21.     I32        cop_arybase;    /* array base this line was compiled with */
  22.     line_t      cop_line;       /* line # of this command */
  23.     SV *    cop_warnings;    /* lexical warnings bitmask */
  24. };
  25.  
  26. #define Nullcop Null(COP*)
  27.  
  28. #ifdef USE_ITHREADS
  29. #  define CopFILE(c)        ((c)->cop_file)
  30. #  define CopFILEGV(c)        (CopFILE(c) \
  31.                  ? gv_fetchfile(CopFILE(c)) : Nullgv)
  32. #  define CopFILE_set(c,pv)    ((c)->cop_file = savepv(pv))
  33. #  define CopFILESV(c)        (CopFILE(c) \
  34.                  ? GvSV(gv_fetchfile(CopFILE(c))) : Nullsv)
  35. #  define CopFILEAV(c)        (CopFILE(c) \
  36.                  ? GvAV(gv_fetchfile(CopFILE(c))) : Nullav)
  37. #  define CopSTASHPV(c)        ((c)->cop_stashpv)
  38. #  define CopSTASHPV_set(c,pv)    ((c)->cop_stashpv = ((pv) ? savepv(pv) : Nullch))
  39. #  define CopSTASH(c)        (CopSTASHPV(c) \
  40.                  ? gv_stashpv(CopSTASHPV(c),GV_ADD) : Nullhv)
  41. #  define CopSTASH_set(c,hv)    CopSTASHPV_set(c, (hv) ? HvNAME(hv) : Nullch)
  42. #  define CopSTASH_eq(c,hv)    ((hv)                     \
  43.                  && (CopSTASHPV(c) == HvNAME(hv)    \
  44.                      || (CopSTASHPV(c) && HvNAME(hv)    \
  45.                      && strEQ(CopSTASHPV(c), HvNAME(hv)))))
  46. #else
  47. #  define CopFILEGV(c)        ((c)->cop_filegv)
  48. #  define CopFILEGV_set(c,gv)    ((c)->cop_filegv = (GV*)SvREFCNT_inc(gv))
  49. #  define CopFILE_set(c,pv)    CopFILEGV_set((c), gv_fetchfile(pv))
  50. #  define CopFILESV(c)        (CopFILEGV(c) ? GvSV(CopFILEGV(c)) : Nullsv)
  51. #  define CopFILEAV(c)        (CopFILEGV(c) ? GvAV(CopFILEGV(c)) : Nullav)
  52. #  define CopFILE(c)        (CopFILESV(c) ? SvPVX(CopFILESV(c)) : Nullch)
  53. #  define CopSTASH(c)        ((c)->cop_stash)
  54. #  define CopSTASH_set(c,hv)    ((c)->cop_stash = (hv))
  55. #  define CopSTASHPV(c)        (CopSTASH(c) ? HvNAME(CopSTASH(c)) : Nullch)
  56.    /* cop_stash is not refcounted */
  57. #  define CopSTASHPV_set(c,pv)    CopSTASH_set((c), gv_stashpv(pv,GV_ADD))
  58. #  define CopSTASH_eq(c,hv)    (CopSTASH(c) == (hv))
  59. #endif /* USE_ITHREADS */
  60.  
  61. #define CopSTASH_ne(c,hv)    (!CopSTASH_eq(c,hv))
  62. #define CopLINE(c)        ((c)->cop_line)
  63. #define CopLINE_inc(c)        (++CopLINE(c))
  64. #define CopLINE_dec(c)        (--CopLINE(c))
  65. #define CopLINE_set(c,l)    (CopLINE(c) = (l))
  66.  
  67. /*
  68.  * Here we have some enormously heavy (or at least ponderous) wizardry.
  69.  */
  70.  
  71. /* subroutine context */
  72. struct block_sub {
  73.     CV *    cv;
  74.     GV *    gv;
  75.     GV *    dfoutgv;
  76. #ifndef USE_THREADS
  77.     AV *    savearray;
  78. #endif /* USE_THREADS */
  79.     AV *    argarray;
  80.     U16        olddepth;
  81.     U8        hasargs;
  82.     U8        lval;        /* XXX merge lval and hasargs? */
  83.     SV **    oldcurpad;
  84. };
  85.  
  86. #define PUSHSUB(cx)                            \
  87.     cx->blk_sub.cv = cv;                        \
  88.     cx->blk_sub.olddepth = (U16)CvDEPTH(cv);            \
  89.     cx->blk_sub.hasargs = hasargs;                    \
  90.     cx->blk_sub.lval = PL_op->op_private &                          \
  91.                           (OPpLVAL_INTRO|OPpENTERSUB_INARGS);
  92.  
  93. #define PUSHFORMAT(cx)                            \
  94.     cx->blk_sub.cv = cv;                        \
  95.     cx->blk_sub.gv = gv;                        \
  96.     cx->blk_sub.hasargs = 0;                    \
  97.     cx->blk_sub.dfoutgv = PL_defoutgv;                \
  98.     (void)SvREFCNT_inc(cx->blk_sub.dfoutgv)
  99.  
  100. #ifdef USE_THREADS
  101. #  define POP_SAVEARRAY() NOOP
  102. #else
  103. #  define POP_SAVEARRAY()                        \
  104.     STMT_START {                            \
  105.     SvREFCNT_dec(GvAV(PL_defgv));                    \
  106.     GvAV(PL_defgv) = cx->blk_sub.savearray;                \
  107.     } STMT_END
  108. #endif /* USE_THREADS */
  109.  
  110. /* junk in @_ spells trouble when cloning CVs and in pp_caller(), so don't
  111.  * leave any (a fast av_clear(ary), basically) */
  112. #define CLEAR_ARGARRAY(ary) \
  113.     STMT_START {                            \
  114.     AvMAX(ary) += AvARRAY(ary) - AvALLOC(ary);            \
  115.     SvPVX(ary) = (char*)AvALLOC(ary);                \
  116.     AvFILLp(ary) = -1;                        \
  117.     } STMT_END
  118.  
  119. #define POPSUB(cx,sv)                            \
  120.     STMT_START {                            \
  121.     if (cx->blk_sub.hasargs) {                    \
  122.         POP_SAVEARRAY();                        \
  123.         /* abandon @_ if it got reified */                \
  124.         if (AvREAL(cx->blk_sub.argarray)) {                \
  125.         SSize_t fill = AvFILLp(cx->blk_sub.argarray);        \
  126.         SvREFCNT_dec(cx->blk_sub.argarray);            \
  127.         cx->blk_sub.argarray = newAV();                \
  128.         av_extend(cx->blk_sub.argarray, fill);            \
  129.         AvFLAGS(cx->blk_sub.argarray) = AVf_REIFY;        \
  130.         cx->blk_sub.oldcurpad[0] = (SV*)cx->blk_sub.argarray;    \
  131.         }                                \
  132.         else {                            \
  133.         CLEAR_ARGARRAY(cx->blk_sub.argarray);            \
  134.         }                                \
  135.     }                                \
  136.     sv = (SV*)cx->blk_sub.cv;                    \
  137.     if (sv && (CvDEPTH((CV*)sv) = cx->blk_sub.olddepth))        \
  138.         sv = Nullsv;                        \
  139.     } STMT_END
  140.  
  141. #define LEAVESUB(sv)                            \
  142.     STMT_START {                            \
  143.     if (sv)                                \
  144.         SvREFCNT_dec(sv);                        \
  145.     } STMT_END
  146.  
  147. #define POPFORMAT(cx)                            \
  148.     setdefout(cx->blk_sub.dfoutgv);                    \
  149.     SvREFCNT_dec(cx->blk_sub.dfoutgv);
  150.  
  151. /* eval context */
  152. struct block_eval {
  153.     I32        old_in_eval;
  154.     I32        old_op_type;
  155.     SV *    old_namesv;
  156.     OP *    old_eval_root;
  157.     SV *    cur_text;
  158.     CV *    cv;
  159. };
  160.  
  161. #define PUSHEVAL(cx,n,fgv)                        \
  162.     STMT_START {                            \
  163.     cx->blk_eval.old_in_eval = PL_in_eval;                \
  164.     cx->blk_eval.old_op_type = PL_op->op_type;            \
  165.     cx->blk_eval.old_namesv = (n ? newSVpv(n,0) : Nullsv);        \
  166.     cx->blk_eval.old_eval_root = PL_eval_root;            \
  167.     cx->blk_eval.cur_text = PL_linestr;                \
  168.     cx->blk_eval.cv = Nullcv; /* set by doeval(), as applicable */    \
  169.     } STMT_END
  170.  
  171. #define POPEVAL(cx)                            \
  172.     STMT_START {                            \
  173.     PL_in_eval = cx->blk_eval.old_in_eval;                \
  174.     optype = cx->blk_eval.old_op_type;                \
  175.     PL_eval_root = cx->blk_eval.old_eval_root;            \
  176.     if (cx->blk_eval.old_namesv)                    \
  177.         sv_2mortal(cx->blk_eval.old_namesv);            \
  178.     } STMT_END
  179.  
  180. /* loop context */
  181. struct block_loop {
  182.     char *    label;
  183.     I32        resetsp;
  184.     OP *    redo_op;
  185.     OP *    next_op;
  186.     OP *    last_op;
  187. #ifdef USE_ITHREADS
  188.     void *    iterdata;
  189.     SV **    oldcurpad;
  190. #else
  191.     SV **    itervar;
  192. #endif
  193.     SV *    itersave;
  194.     SV *    iterlval;
  195.     AV *    iterary;
  196.     IV        iterix;
  197.     IV        itermax;
  198. };
  199.  
  200. #ifdef USE_ITHREADS
  201. #  define CxITERVAR(c)                            \
  202.     ((c)->blk_loop.iterdata                        \
  203.      ? (CxPADLOOP(cx)                         \
  204.         ? &((c)->blk_loop.oldcurpad)[(PADOFFSET)(c)->blk_loop.iterdata]    \
  205.         : &GvSV((GV*)(c)->blk_loop.iterdata))            \
  206.      : (SV**)NULL)
  207. #  define CX_ITERDATA_SET(cx,idata)                    \
  208.     cx->blk_loop.oldcurpad = PL_curpad;                \
  209.     if ((cx->blk_loop.iterdata = (idata)))                \
  210.         cx->blk_loop.itersave = SvREFCNT_inc(*CxITERVAR(cx));    \
  211.     else                                \
  212.         cx->blk_loop.itersave = Nullsv;
  213. #else
  214. #  define CxITERVAR(c)        ((c)->blk_loop.itervar)
  215. #  define CX_ITERDATA_SET(cx,ivar)                    \
  216.     if ((cx->blk_loop.itervar = (SV**)(ivar)))            \
  217.         cx->blk_loop.itersave = SvREFCNT_inc(*CxITERVAR(cx));    \
  218.     else                                \
  219.         cx->blk_loop.itersave = Nullsv;
  220. #endif
  221.  
  222. #define PUSHLOOP(cx, dat, s)                        \
  223.     cx->blk_loop.label = PL_curcop->cop_label;            \
  224.     cx->blk_loop.resetsp = s - PL_stack_base;            \
  225.     cx->blk_loop.redo_op = cLOOP->op_redoop;            \
  226.     cx->blk_loop.next_op = cLOOP->op_nextop;            \
  227.     cx->blk_loop.last_op = cLOOP->op_lastop;            \
  228.     cx->blk_loop.iterlval = Nullsv;                    \
  229.     cx->blk_loop.iterary = Nullav;                    \
  230.     cx->blk_loop.iterix = -1;                    \
  231.     CX_ITERDATA_SET(cx,dat);
  232.  
  233. #define POPLOOP(cx)                            \
  234.     SvREFCNT_dec(cx->blk_loop.iterlval);                \
  235.     if (CxITERVAR(cx)) {                        \
  236.         SV **s_v_p = CxITERVAR(cx);                    \
  237.         sv_2mortal(*s_v_p);                        \
  238.         *s_v_p = cx->blk_loop.itersave;                \
  239.     }                                \
  240.     if (cx->blk_loop.iterary && cx->blk_loop.iterary != PL_curstack)\
  241.         SvREFCNT_dec(cx->blk_loop.iterary);
  242.  
  243. /* context common to subroutines, evals and loops */
  244. struct block {
  245.     I32        blku_oldsp;    /* stack pointer to copy stuff down to */
  246.     COP *    blku_oldcop;    /* old curcop pointer */
  247.     I32        blku_oldretsp;    /* return stack index */
  248.     I32        blku_oldmarksp;    /* mark stack index */
  249.     I32        blku_oldscopesp;    /* scope stack index */
  250.     PMOP *    blku_oldpm;    /* values of pattern match vars */
  251.     U8        blku_gimme;    /* is this block running in list context? */
  252.  
  253.     union {
  254.     struct block_sub    blku_sub;
  255.     struct block_eval    blku_eval;
  256.     struct block_loop    blku_loop;
  257.     } blk_u;
  258. };
  259. #define blk_oldsp    cx_u.cx_blk.blku_oldsp
  260. #define blk_oldcop    cx_u.cx_blk.blku_oldcop
  261. #define blk_oldretsp    cx_u.cx_blk.blku_oldretsp
  262. #define blk_oldmarksp    cx_u.cx_blk.blku_oldmarksp
  263. #define blk_oldscopesp    cx_u.cx_blk.blku_oldscopesp
  264. #define blk_oldpm    cx_u.cx_blk.blku_oldpm
  265. #define blk_gimme    cx_u.cx_blk.blku_gimme
  266. #define blk_sub        cx_u.cx_blk.blk_u.blku_sub
  267. #define blk_eval    cx_u.cx_blk.blk_u.blku_eval
  268. #define blk_loop    cx_u.cx_blk.blk_u.blku_loop
  269.  
  270. /* Enter a block. */
  271. #define PUSHBLOCK(cx,t,sp) CXINC, cx = &cxstack[cxstack_ix],        \
  272.     cx->cx_type        = t,                    \
  273.     cx->blk_oldsp        = sp - PL_stack_base,            \
  274.     cx->blk_oldcop        = PL_curcop,                \
  275.     cx->blk_oldmarksp    = PL_markstack_ptr - PL_markstack,    \
  276.     cx->blk_oldscopesp    = PL_scopestack_ix,            \
  277.     cx->blk_oldretsp    = PL_retstack_ix,            \
  278.     cx->blk_oldpm        = PL_curpm,                \
  279.     cx->blk_gimme        = (U8)gimme;                \
  280.     DEBUG_l( PerlIO_printf(Perl_debug_log, "Entering block %ld, type %s\n",    \
  281.             (long)cxstack_ix, PL_block_type[CxTYPE(cx)]); )
  282.  
  283. /* Exit a block (RETURN and LAST). */
  284. #define POPBLOCK(cx,pm) cx = &cxstack[cxstack_ix--],            \
  285.     newsp         = PL_stack_base + cx->blk_oldsp,        \
  286.     PL_curcop     = cx->blk_oldcop,                \
  287.     PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp,        \
  288.     PL_scopestack_ix = cx->blk_oldscopesp,                \
  289.     PL_retstack_ix     = cx->blk_oldretsp,                \
  290.     pm         = cx->blk_oldpm,                \
  291.     gimme         = cx->blk_gimme;                \
  292.     DEBUG_l( PerlIO_printf(Perl_debug_log, "Leaving block %ld, type %s\n",        \
  293.             (long)cxstack_ix+1,PL_block_type[CxTYPE(cx)]); )
  294.  
  295. /* Continue a block elsewhere (NEXT and REDO). */
  296. #define TOPBLOCK(cx) cx  = &cxstack[cxstack_ix],            \
  297.     PL_stack_sp     = PL_stack_base + cx->blk_oldsp,        \
  298.     PL_markstack_ptr = PL_markstack + cx->blk_oldmarksp,        \
  299.     PL_scopestack_ix = cx->blk_oldscopesp,                \
  300.     PL_retstack_ix     = cx->blk_oldretsp,                \
  301.     PL_curpm         = cx->blk_oldpm
  302.  
  303. /* substitution context */
  304. struct subst {
  305.     I32        sbu_iters;
  306.     I32        sbu_maxiters;
  307.     I32        sbu_rflags;
  308.     I32        sbu_oldsave;
  309.     bool    sbu_once;
  310.     bool    sbu_rxtainted;
  311.     char *    sbu_orig;
  312.     SV *    sbu_dstr;
  313.     SV *    sbu_targ;
  314.     char *    sbu_s;
  315.     char *    sbu_m;
  316.     char *    sbu_strend;
  317.     void *    sbu_rxres;
  318.     REGEXP *    sbu_rx;
  319. };
  320. #define sb_iters    cx_u.cx_subst.sbu_iters
  321. #define sb_maxiters    cx_u.cx_subst.sbu_maxiters
  322. #define sb_rflags    cx_u.cx_subst.sbu_rflags
  323. #define sb_oldsave    cx_u.cx_subst.sbu_oldsave
  324. #define sb_once        cx_u.cx_subst.sbu_once
  325. #define sb_rxtainted    cx_u.cx_subst.sbu_rxtainted
  326. #define sb_orig        cx_u.cx_subst.sbu_orig
  327. #define sb_dstr        cx_u.cx_subst.sbu_dstr
  328. #define sb_targ        cx_u.cx_subst.sbu_targ
  329. #define sb_s        cx_u.cx_subst.sbu_s
  330. #define sb_m        cx_u.cx_subst.sbu_m
  331. #define sb_strend    cx_u.cx_subst.sbu_strend
  332. #define sb_rxres    cx_u.cx_subst.sbu_rxres
  333. #define sb_rx        cx_u.cx_subst.sbu_rx
  334.  
  335. #define PUSHSUBST(cx) CXINC, cx = &cxstack[cxstack_ix],            \
  336.     cx->sb_iters        = iters,                \
  337.     cx->sb_maxiters        = maxiters,                \
  338.     cx->sb_rflags        = r_flags,                \
  339.     cx->sb_oldsave        = oldsave,                \
  340.     cx->sb_once        = once,                    \
  341.     cx->sb_rxtainted    = rxtainted,                \
  342.     cx->sb_orig        = orig,                    \
  343.     cx->sb_dstr        = dstr,                    \
  344.     cx->sb_targ        = targ,                    \
  345.     cx->sb_s        = s,                    \
  346.     cx->sb_m        = m,                    \
  347.     cx->sb_strend        = strend,                \
  348.     cx->sb_rxres        = Null(void*),                \
  349.     cx->sb_rx        = rx,                    \
  350.     cx->cx_type        = CXt_SUBST;                \
  351.     rxres_save(&cx->sb_rxres, rx)
  352.  
  353. #define POPSUBST(cx) cx = &cxstack[cxstack_ix--];            \
  354.     rxres_free(&cx->sb_rxres)
  355.  
  356. struct context {
  357.     U32        cx_type;    /* what kind of context this is */
  358.     union {
  359.     struct block    cx_blk;
  360.     struct subst    cx_subst;
  361.     } cx_u;
  362. };
  363.  
  364. #define CXTYPEMASK    0xff
  365. #define CXt_NULL    0
  366. #define CXt_SUB        1
  367. #define CXt_EVAL    2
  368. #define CXt_LOOP    3
  369. #define CXt_SUBST    4
  370. #define CXt_BLOCK    5
  371. #define CXt_FORMAT    6
  372.  
  373. /* private flags for CXt_EVAL */
  374. #define CXp_REAL    0x00000100    /* truly eval'', not a lookalike */
  375. #define CXp_TRYBLOCK    0x00000200    /* eval{}, not eval'' or similar */
  376.  
  377. #ifdef USE_ITHREADS
  378. /* private flags for CXt_LOOP */
  379. #  define CXp_PADVAR    0x00000100    /* itervar lives on pad, iterdata
  380.                        has pad offset; if not set,
  381.                        iterdata holds GV* */
  382. #  define CxPADLOOP(c)    (((c)->cx_type & (CXt_LOOP|CXp_PADVAR))        \
  383.              == (CXt_LOOP|CXp_PADVAR))
  384. #endif
  385.  
  386. #define CxTYPE(c)    ((c)->cx_type & CXTYPEMASK)
  387. #define CxREALEVAL(c)    (((c)->cx_type & (CXt_EVAL|CXp_REAL))        \
  388.              == (CXt_EVAL|CXp_REAL))
  389. #define CxTRYBLOCK(c)    (((c)->cx_type & (CXt_EVAL|CXp_TRYBLOCK))    \
  390.              == (CXt_EVAL|CXp_TRYBLOCK))
  391.  
  392. #define CXINC (cxstack_ix < cxstack_max ? ++cxstack_ix : (cxstack_ix = cxinc()))
  393.  
  394. /* "gimme" values */
  395.  
  396. /*
  397. =for apidoc AmU||G_SCALAR
  398. Used to indicate scalar context.  See C<GIMME_V>, C<GIMME>, and
  399. L<perlcall>.
  400.  
  401. =for apidoc AmU||G_ARRAY
  402. Used to indicate list context.  See C<GIMME_V>, C<GIMME> and
  403. L<perlcall>.
  404.  
  405. =for apidoc AmU||G_VOID
  406. Used to indicate void context.  See C<GIMME_V> and L<perlcall>.
  407.  
  408. =for apidoc AmU||G_DISCARD
  409. Indicates that arguments returned from a callback should be discarded.  See
  410. L<perlcall>.
  411.  
  412. =for apidoc AmU||G_EVAL
  413.  
  414. Used to force a Perl C<eval> wrapper around a callback.  See
  415. L<perlcall>.
  416.  
  417. =for apidoc AmU||G_NOARGS
  418.  
  419. Indicates that no arguments are being sent to a callback.  See
  420. L<perlcall>.
  421.  
  422. =cut
  423. */
  424.  
  425. #define G_SCALAR    0
  426. #define G_ARRAY        1
  427. #define G_VOID        128    /* skip this bit when adding flags below */
  428.  
  429. /* extra flags for Perl_call_* routines */
  430. #define G_DISCARD    2    /* Call FREETMPS. */
  431. #define G_EVAL        4    /* Assume eval {} around subroutine call. */
  432. #define G_NOARGS    8    /* Don't construct a @_ array. */
  433. #define G_KEEPERR      16    /* Append errors to $@, don't overwrite it */
  434. #define G_NODEBUG      32    /* Disable debugging at toplevel.  */
  435. #define G_METHOD       64       /* Calling method. */
  436.  
  437. /* flag bits for PL_in_eval */
  438. #define EVAL_NULL    0    /* not in an eval */
  439. #define EVAL_INEVAL    1    /* some enclosing scope is an eval */
  440. #define EVAL_WARNONLY    2    /* used by yywarn() when calling yyerror() */
  441. #define EVAL_KEEPERR    4    /* set by Perl_call_sv if G_KEEPERR */
  442. #define EVAL_INREQUIRE    8    /* The code is being required. */
  443.  
  444. /* Support for switching (stack and block) contexts.
  445.  * This ensures magic doesn't invalidate local stack and cx pointers.
  446.  */
  447.  
  448. #define PERLSI_UNKNOWN        -1
  449. #define PERLSI_UNDEF        0
  450. #define PERLSI_MAIN        1
  451. #define PERLSI_MAGIC        2
  452. #define PERLSI_SORT        3
  453. #define PERLSI_SIGNAL        4
  454. #define PERLSI_OVERLOAD        5
  455. #define PERLSI_DESTROY        6
  456. #define PERLSI_WARNHOOK        7
  457. #define PERLSI_DIEHOOK        8
  458. #define PERLSI_REQUIRE        9
  459.  
  460. struct stackinfo {
  461.     AV *        si_stack;    /* stack for current runlevel */
  462.     PERL_CONTEXT *    si_cxstack;    /* context stack for runlevel */
  463.     I32            si_cxix;    /* current context index */
  464.     I32            si_cxmax;    /* maximum allocated index */
  465.     I32            si_type;    /* type of runlevel */
  466.     struct stackinfo *    si_prev;
  467.     struct stackinfo *    si_next;
  468.     I32            si_markoff;    /* offset where markstack begins for us.
  469.                      * currently used only with DEBUGGING,
  470.                      * but not #ifdef-ed for bincompat */
  471. };
  472.  
  473. typedef struct stackinfo PERL_SI;
  474.  
  475. #define cxstack        (PL_curstackinfo->si_cxstack)
  476. #define cxstack_ix    (PL_curstackinfo->si_cxix)
  477. #define cxstack_max    (PL_curstackinfo->si_cxmax)
  478.  
  479. #ifdef DEBUGGING
  480. #  define    SET_MARK_OFFSET \
  481.     PL_curstackinfo->si_markoff = PL_markstack_ptr - PL_markstack
  482. #else
  483. #  define    SET_MARK_OFFSET NOOP
  484. #endif
  485.  
  486. #define PUSHSTACKi(type) \
  487.     STMT_START {                            \
  488.     PERL_SI *next = PL_curstackinfo->si_next;            \
  489.     if (!next) {                            \
  490.         next = new_stackinfo(32, 2048/sizeof(PERL_CONTEXT) - 1);    \
  491.         next->si_prev = PL_curstackinfo;                \
  492.         PL_curstackinfo->si_next = next;                \
  493.     }                                \
  494.     next->si_type = type;                        \
  495.     next->si_cxix = -1;                        \
  496.     AvFILLp(next->si_stack) = 0;                    \
  497.     SWITCHSTACK(PL_curstack,next->si_stack);            \
  498.     PL_curstackinfo = next;                        \
  499.     SET_MARK_OFFSET;                        \
  500.     } STMT_END
  501.  
  502. #define PUSHSTACK PUSHSTACKi(PERLSI_UNKNOWN)
  503.  
  504. /* POPSTACK works with PL_stack_sp, so it may need to be bracketed by
  505.  * PUTBACK/SPAGAIN to flush/refresh any local SP that may be active */
  506. #define POPSTACK \
  507.     STMT_START {                            \
  508.     dSP;                                \
  509.     PERL_SI *prev = PL_curstackinfo->si_prev;            \
  510.     if (!prev) {                            \
  511.         PerlIO_printf(Perl_error_log, "panic: POPSTACK\n");        \
  512.         my_exit(1);                            \
  513.     }                                \
  514.     SWITCHSTACK(PL_curstack,prev->si_stack);            \
  515.     /* don't free prev here, free them all at the END{} */        \
  516.     PL_curstackinfo = prev;                        \
  517.     } STMT_END
  518.  
  519. #define POPSTACK_TO(s) \
  520.     STMT_START {                            \
  521.     while (PL_curstack != s) {                    \
  522.         dounwind(-1);                        \
  523.         POPSTACK;                            \
  524.     }                                \
  525.     } STMT_END
  526.