|
|
1 | /* list the interpreter variables that need to be saved/restored */ |
1 | /* mostly copied from thrdvar.h */ |
2 | /* mostly copied from thrdvar.h */ |
2 | |
3 | |
3 | VAR(stack_sp, SV **) /* top of the stack */ |
4 | VAR(stack_sp, SV **) /* top of the stack */ |
4 | VAR(op, OP *) /* currently executing op */ |
5 | VAR(op, OP *) /* currently executing op */ |
5 | VAR(curpad, SV **) /* active pad (lexicals+tmps) */ |
6 | VAR(curpad, SV **) /* active pad (lexicals+tmps) */ |
… | |
… | |
10 | VAR(scopestack, I32 *) /* scopes we've ENTERed */ |
11 | VAR(scopestack, I32 *) /* scopes we've ENTERed */ |
11 | VAR(scopestack_ix, I32) |
12 | VAR(scopestack_ix, I32) |
12 | VAR(scopestack_max,I32) |
13 | VAR(scopestack_max,I32) |
13 | |
14 | |
14 | VAR(savestack, ANY *) /* items that need to be restored |
15 | VAR(savestack, ANY *) /* items that need to be restored |
15 | when LEAVEing scopes we've ENTERed */ |
16 | when LEAVEing scopes we've ENTERed */ |
16 | VAR(savestack_ix, I32) |
17 | VAR(savestack_ix, I32) |
17 | VAR(savestack_max, I32) |
18 | VAR(savestack_max, I32) |
18 | |
19 | |
19 | VAR(tmps_stack, SV **) /* mortals we've made */ |
20 | VAR(tmps_stack, SV **) /* mortals we've made */ |
20 | VAR(tmps_ix, I32) |
21 | VAR(tmps_ix, I32) |
21 | VAR(tmps_floor, I32) |
22 | VAR(tmps_floor, I32) |
22 | VAR(tmps_max, I32) |
23 | VAR(tmps_max, I32) |
23 | |
24 | |
24 | VAR(markstack, I32 *) /* stack_sp locations we're remembering */ |
25 | VAR(markstack, I32 *) /* stack_sp locations we're remembering */ |
25 | VAR(markstack_ptr, I32 *) |
26 | VAR(markstack_ptr, I32 *) |
26 | VAR(markstack_max, I32 *) |
27 | VAR(markstack_max, I32 *) |
… | |
… | |
32 | #endif |
33 | #endif |
33 | |
34 | |
34 | VAR(curpm, PMOP *) /* what to do \ interps in REs from */ |
35 | VAR(curpm, PMOP *) /* what to do \ interps in REs from */ |
35 | VAR(curcop, COP *) |
36 | VAR(curcop, COP *) |
36 | |
37 | |
37 | VAR(restartop, OP *) /* propagating an error from croak? */ |
|
|
38 | VAR(in_eval, int) /* trap "fatal" errors? */ |
38 | VAR(in_eval, int) /* trap "fatal" errors? */ |
39 | VAR(localizing, int) /* are we processing a local() list? */ |
39 | VAR(localizing, int) /* are we processing a local() list? */ |
40 | |
40 | |
41 | VAR(curstack, AV *) /* THE STACK */ |
41 | VAR(curstack, AV *) /* THE STACK */ |
42 | VAR(curstackinfo, PERL_SI *) /* current stack + context */ |
42 | VAR(curstackinfo, PERL_SI *) /* current stack + context */ |
… | |
… | |
44 | VAR(sortcop, OP *) /* user defined sort routine */ |
44 | VAR(sortcop, OP *) /* user defined sort routine */ |
45 | VAR(sortstash, HV *) /* which is in some package or other */ |
45 | VAR(sortstash, HV *) /* which is in some package or other */ |
46 | VAR(sortcxix, I32) /* from pp_ctl.c */ |
46 | VAR(sortcxix, I32) /* from pp_ctl.c */ |
47 | |
47 | |
48 | VAR(comppad, AV *) /* storage for lexically scoped temporaries */ |
48 | VAR(comppad, AV *) /* storage for lexically scoped temporaries */ |
|
|
49 | |