| 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(stack_sp, SV **) /* top of the stack */ |
5 | VAR(stack_sp, SV **) /* top of the stack */ |
| 5 | #ifdef OP_IN_REGISTER |
6 | #ifdef OP_IN_REGISTER |
| 6 | VAR(opsave, OP *) /* probably not necessary */ |
7 | VAR(opsave, OP *) /* probably not necessary */ |
| 7 | #else |
8 | #else |
| 8 | VAR(op, OP *) /* currently executing op */ |
9 | VAR(op, OP *) /* currently executing op */ |
| … | |
… | |
| 36 | VAR(retstack_max, I32) |
37 | VAR(retstack_max, I32) |
| 37 | #endif |
38 | #endif |
| 38 | |
39 | |
| 39 | VAR(tainted, bool) /* using variables controlled by $< */ |
40 | VAR(tainted, bool) /* using variables controlled by $< */ |
| 40 | VAR(curpm, PMOP *) /* what to do \ interps in REs from */ |
41 | VAR(curpm, PMOP *) /* what to do \ interps in REs from */ |
|
|
42 | VAR(rs, SV *) /* input record separator $/ */ |
| 41 | VAR(curcop, COP *) |
43 | VAR(curcop, COP *) |
| 42 | |
44 | |
| 43 | VAR(in_eval, int) /* trap "fatal" errors? */ |
45 | VAR(in_eval, int) /* trap "fatal" errors? */ |
| 44 | VAR(localizing, int) /* are we processing a local() list? */ |
46 | VAR(localizing, int) /* are we processing a local() list? */ |
| 45 | |
47 | |
| … | |
… | |
| 57 | |
59 | |
| 58 | /* compcv is intrpvar, but seems to be thread-specific to me */ |
60 | /* compcv is intrpvar, but seems to be thread-specific to me */ |
| 59 | /* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */ |
61 | /* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */ |
| 60 | VAR(compcv, CV *) /* currently compiling subroutine */ |
62 | VAR(compcv, CV *) /* currently compiling subroutine */ |
| 61 | |
63 | |
| 62 | VAR(runops, runops_proc_t); /* for tracing support */ |
64 | VAR(runops, runops_proc_t) /* for tracing support */ |
|
|
65 | |
