ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Coro/Coro/state.h
(Generate patch)

Comparing Coro/Coro/state.h (file contents):
Revision 1.10 by root, Mon Nov 24 06:07:16 2008 UTC vs.
Revision 1.11 by root, Sun May 22 20:13:33 2011 UTC

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
4VAR(defoutgv, GV *) /* default FH for output */
5VAR(stack_sp, SV **) /* the main stack */ 4VAR(stack_sp, SV **) /* the main stack */
6#ifdef OP_IN_REGISTER 5#ifdef OP_IN_REGISTER
7VAR(opsave, OP *) /* probably not necessary */ 6VAR(opsave, OP *) /* probably not necessary */
8#else 7#else
9VAR(op, OP *) /* currently executing op */ 8VAR(op, OP *) /* currently executing op */
… …
35VAR(retstack, OP **) /* OPs we have postponed executing */ 34VAR(retstack, OP **) /* OPs we have postponed executing */
36VAR(retstack_ix, I32) 35VAR(retstack_ix, I32)
37VAR(retstack_max, I32) 36VAR(retstack_max, I32)
38#endif 37#endif
39 38
40VAR(tainted, bool) /* using variables controlled by $< */
41VAR(curpm, PMOP *) /* what to do \ interps in REs from */ 39VAR(curpm, PMOP *) /* what to do \ interps in REs from */
42VAR(rs, SV *) /* input record separator $/ */ 40VAR(rs, SV *) /* input record separator $/ */
41VAR(defoutgv, GV *) /* default FH for output */
43VAR(curcop, COP *) 42VAR(curcop, COP *)
44
45VAR(in_eval, int) /* trap "fatal" errors? */
46VAR(localizing, int) /* are we processing a local() list? */
47 43
48VAR(curstack, AV *) /* THE STACK */ 44VAR(curstack, AV *) /* THE STACK */
49VAR(curstackinfo, PERL_SI *) /* current stack + context */ 45VAR(curstackinfo, PERL_SI *) /* current stack + context */
50 46
51VAR(sortcop, OP *) /* user defined sort routine */ 47VAR(sortcop, OP *) /* user defined sort routine */
52VAR(sortstash, HV *) /* which is in some package or other */ 48VAR(sortstash, HV *) /* which is in some package or other */
53#if !PERL_VERSION_ATLEAST (5,9,0) 49#if !PERL_VERSION_ATLEAST (5,9,0)
54VAR(sortcxix, I32) /* from pp_ctl.c */ 50VAR(sortcxix, I32) /* from pp_ctl.c */
55#endif 51#endif
56 52
53VAR(localizing, U8) /* are we processing a local() list? */
54VAR(in_eval, U8) /* trap "fatal" errors? */
55VAR(tainted, bool) /* using variables controlled by $< */
56
57VAR(diehook, SV *)
58VAR(warnhook, SV *)
59
60/* compcv is intrpvar, but seems to be thread-specific to me */
61/* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */
62VAR(compcv, CV *) /* currently compiling subroutine */
63
57VAR(comppad, AV *) /* storage for lexically scoped temporaries */ 64VAR(comppad, AV *) /* storage for lexically scoped temporaries */
58VAR(comppad_name, AV *) /* variable names for "my" variables */ 65VAR(comppad_name, AV *) /* variable names for "my" variables */
59VAR(comppad_name_fill, I32) /* last "introduced" variable offset */ 66VAR(comppad_name_fill, I32) /* last "introduced" variable offset */
60VAR(comppad_name_floor, I32) /* start of vars in innermost block */ 67VAR(comppad_name_floor, I32) /* start of vars in innermost block */
61 68
62/* compcv is intrpvar, but seems to be thread-specific to me */ 69VAR(runops, runops_proc_t) /* for tracing support */
63/* but, well, I thoroughly misunderstand what thrdvar and intrpvar is. still. */
64VAR(compcv, CV *) /* currently compiling subroutine */
65 70
66VAR(diehook, SV *) 71VAR(hints, U32) /* pragma-tic compile-time flags */
67VAR(warnhook, SV *)
68VAR(runops, runops_proc_t) /* for tracing support */
69 72
70#if PERL_VERSION_ATLEAST (5,10,0) 73#if PERL_VERSION_ATLEAST (5,10,0)
71VAR(parser, yy_parser *) 74VAR(parser, yy_parser *)
72#endif 75#endif
73 76
74VAR(hints, U32) /* pragma-tic compile-time flags */
75

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines