| 1 | /* list the interpreter variables that need to be saved/restored */ |
1 | /* list the interpreter variables that need to be saved/restored */ |
| 2 | /* mostly copied from thrdvar.h */ |
2 | /* mostly copied from thrdvar.h */ |
| 3 | |
3 | |
| 4 | VAR(defoutgv, GV *) /* default FH for output */ |
4 | VAR(defoutgv, GV *) /* default FH for output */ |
| 5 | VAR(stack_sp, SV **) /* top of the stack */ |
5 | VAR(stack_sp, SV **) /* the main stack */ |
| 6 | #ifdef OP_IN_REGISTER |
6 | #ifdef OP_IN_REGISTER |
| 7 | VAR(opsave, OP *) /* probably not necessary */ |
7 | VAR(opsave, OP *) /* probably not necessary */ |
| 8 | #else |
8 | #else |
| 9 | VAR(op, OP *) /* currently executing op */ |
9 | VAR(op, OP *) /* currently executing op */ |
| 10 | #endif |
10 | #endif |
| … | |
… | |
| 45 | VAR(in_eval, int) /* trap "fatal" errors? */ |
45 | VAR(in_eval, int) /* trap "fatal" errors? */ |
| 46 | VAR(localizing, int) /* are we processing a local() list? */ |
46 | VAR(localizing, int) /* are we processing a local() list? */ |
| 47 | |
47 | |
| 48 | VAR(curstack, AV *) /* THE STACK */ |
48 | VAR(curstack, AV *) /* THE STACK */ |
| 49 | VAR(curstackinfo, PERL_SI *) /* current stack + context */ |
49 | VAR(curstackinfo, PERL_SI *) /* current stack + context */ |
| 50 | VAR(mainstack, AV *) /* the stack when nothing funny is happening */ |
|
|
| 51 | |
50 | |
| 52 | VAR(sortcop, OP *) /* user defined sort routine */ |
51 | VAR(sortcop, OP *) /* user defined sort routine */ |
| 53 | VAR(sortstash, HV *) /* which is in some package or other */ |
52 | VAR(sortstash, HV *) /* which is in some package or other */ |
| 54 | #if !PERL_VERSION_ATLEAST (5,9,0) |
53 | #if !PERL_VERSION_ATLEAST (5,9,0) |
| 55 | VAR(sortcxix, I32) /* from pp_ctl.c */ |
54 | VAR(sortcxix, I32) /* from pp_ctl.c */ |
| … | |
… | |
| 59 | |
58 | |
| 60 | /* compcv is intrpvar, but seems to be thread-specific to me */ |
59 | /* compcv is intrpvar, but seems to be thread-specific to me */ |
| 61 | /* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */ |
60 | /* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */ |
| 62 | VAR(compcv, CV *) /* currently compiling subroutine */ |
61 | VAR(compcv, CV *) /* currently compiling subroutine */ |
| 63 | |
62 | |
|
|
63 | VAR(diehook, SV *) |
|
|
64 | VAR(warnhook, SV *) |
| 64 | VAR(runops, runops_proc_t) /* for tracing support */ |
65 | VAR(runops, runops_proc_t) /* for tracing support */ |
| 65 | |
66 | |
