[win32] integrate mainline
[p5sagit/p5-mst-13.2.git] / thrdvar.h
1 /* Per-thread variables */
2 /* Important ones in the first cache line (if alignment is done right) */
3
4 PERLVAR(Tstack_sp,      SV **)          
5 #ifdef OP_IN_REGISTER
6 PERLVAR(Topsave,        OP *)           
7 #else
8 PERLVAR(Top,            OP *)           
9 #endif
10 PERLVAR(Tcurpad,        SV **)          
11
12 PERLVAR(Tstack_base,    SV **)          
13 PERLVAR(Tstack_max,     SV **)          
14
15 PERLVAR(Tscopestack,    I32 *)          
16 PERLVAR(Tscopestack_ix, I32)            
17 PERLVAR(Tscopestack_max,I32)            
18
19 PERLVAR(Tsavestack,     ANY *)          
20 PERLVAR(Tsavestack_ix,  I32)            
21 PERLVAR(Tsavestack_max, I32)            
22
23 PERLVAR(Tretstack,      OP **)          
24 PERLVAR(Tretstack_ix,   I32)            
25 PERLVAR(Tretstack_max,  I32)            
26
27 PERLVAR(Tmarkstack,     I32 *)          
28 PERLVAR(Tmarkstack_ptr, I32 *)          
29 PERLVAR(Tmarkstack_max, I32 *)          
30
31 PERLVAR(TSv,            SV *)           
32 PERLVAR(TXpv,           XPV *)          
33 PERLVAR(Tstatbuf,       Stat_t)         
34 #ifdef HAS_TIMES
35 PERLVAR(Ttimesbuf,      struct tms)             
36 #endif
37     
38 /* Now the fields that used to be "per interpreter" (even when global) */
39
40 /* Fields used by magic variables such as $@, $/ and so on */
41 PERLVAR(Ttainted,       bool)           /* using variables controlled by $< */
42 PERLVAR(Tcurpm,         PMOP *)         /* what to do \ interps from */
43 PERLVAR(Tnrs,           SV *)           
44 PERLVAR(Trs,            SV *)           /* $/ */
45 PERLVAR(Tlast_in_gv,    GV *)           
46 PERLVAR(Tofs,           char *)         /* $, */
47 PERLVAR(Tofslen,        STRLEN)         
48 PERLVAR(Tdefoutgv,      GV *)           
49 PERLVARI(Tchopset,      char *, " \n-") /* $: */
50 PERLVAR(Tformtarget,    SV *)           
51 PERLVAR(Tbodytarget,    SV *)           
52 PERLVAR(Ttoptarget,     SV *)           
53
54 /* Stashes */
55 PERLVAR(Tdefstash,      HV *)           /* main symbol table */
56 PERLVAR(Tcurstash,      HV *)           /* symbol table for current package */
57
58 /* Stacks */
59 PERLVAR(Ttmps_stack,    SV **)          
60 PERLVARI(Ttmps_ix,      I32,    -1)     
61 PERLVARI(Ttmps_floor,   I32,    -1)     
62 PERLVAR(Ttmps_max,      I32)            
63
64 PERLVAR(Trestartop,     OP *)           /* Are we propagating an error from croak? */
65 PERLVARI(Tcurcop,       COP * VOL,      &compiling)     
66 PERLVAR(Tin_eval,       VOL int)        /* trap "fatal" errors? */
67 PERLVAR(Tdelaymagic,    int)            /* ($<,$>) = ... */
68 PERLVAR(Tdirty,         bool)           /* In the middle of tearing things down? */
69 PERLVAR(Tlocalizing,    int)            /* are we processing a local() list? */
70
71 PERLVAR(Tcxstack,       PERL_CONTEXT *)         
72 PERLVARI(Tcxstack_ix,   I32,    -1)     
73 PERLVARI(Tcxstack_max,  I32,    128)    
74
75 PERLVAR(Tcurstack,      AV *)                   /* THE STACK */
76 PERLVAR(Tmainstack,     AV *)                   /* the stack when nothing funny is happening */
77 PERLVAR(Ttop_env,       JMPENV *)               /* ptr. to current sigjmp() environment */
78 PERLVAR(Tstart_env,     JMPENV)                 /* empty startup sigjmp() environment */
79
80 /* XXX Sort stuff, firstgv secongv and so on? */
81 /* XXX What about regexp stuff? */
82
83 #ifdef USE_THREADS
84
85 PERLVAR(oursv,          SV *)           
86 PERLVAR(cvcache,        HV *)           
87 PERLVAR(self,           perl_os_thread)         /* Underlying thread object */
88 PERLVAR(flags,          U32)            
89 PERLVAR(threadsv,       AV *)                   /* Per-thread SVs ($_, $@ etc.) */
90 PERLVAR(threadsvp,      SV **)                  /* AvARRAY(threadsv) */
91 PERLVAR(specific,       AV *)                   /* Thread-specific user data */
92 PERLVAR(errsv,          SV *)                   /* Backing SV for $@ */
93 PERLVAR(errhv,          HV *)                   /* HV for what was %@ in pp_ctl.c */
94 PERLVAR(mutex,          perl_mutex)             /* For the fields others can change */
95 PERLVAR(tid,            U32)            
96 PERLVAR(prev,           struct perl_thread *)
97 PERLVAR(next,           struct perl_thread *)   /* Circular linked list of threads */
98
99 #ifdef HAVE_THREAD_INTERN
100 PERLVAR(i,              struct thread_intern)   /* Platform-dependent internals */
101 #endif
102
103 PERLVAR(trailing_nul,   char)                   /* For the sake of thrsv and oursv */
104
105 #endif /* USE_THREADS */