[win32] protect sortcop from C<sort { sort { ... } ... } ...>

[p5sagit/p5-mst-13.2.git] / thrdvar.h

diff --git a/thrdvar.h b/thrdvar.h
index 33419de..812f1bf 100644 (file)
--- a/thrdvar.h
+++ b/thrdvar.h
@@ -68,15 +68,17 @@ PERLVAR(Tdelaymagic,        int)            /* ($<,$>) = ... */
 PERLVAR(Tdirty,                bool)           /* In the middle of tearing things down? */
 PERLVAR(Tlocalizing,   int)            /* are we processing a local() list? */
 
-PERLVAR(Tcxstack,      PERL_CONTEXT *)         
-PERLVARI(Tcxstack_ix,  I32,    -1)     
-PERLVARI(Tcxstack_max, I32,    128)    
-
 PERLVAR(Tcurstack,     AV *)                   /* THE STACK */
+PERLVAR(Tcurstackinfo, PERL_SI *)              /* current stack + context */
 PERLVAR(Tmainstack,    AV *)                   /* the stack when nothing funny is happening */
 PERLVAR(Ttop_env,      JMPENV *)               /* ptr. to current sigjmp() environment */
 PERLVAR(Tstart_env,    JMPENV)                 /* empty startup sigjmp() environment */
 
+/* statics "owned" by various functions */
+PERLVAR(Tav_fetch_sv,  SV *)
+PERLVAR(Thv_fetch_sv,  SV *)
+PERLVAR(Thv_fetch_ent_mh, HE)
+
 /* XXX Sort stuff, firstgv secongv and so on? */
 /* XXX What about regexp stuff? */
 
@@ -87,6 +89,7 @@ PERLVAR(cvcache,      HV *)
 PERLVAR(self,          perl_os_thread)         /* Underlying thread object */
 PERLVAR(flags,         U32)            
 PERLVAR(threadsv,      AV *)                   /* Per-thread SVs ($_, $@ etc.) */
+PERLVAR(threadsvp,     SV **)                  /* AvARRAY(threadsv) */
 PERLVAR(specific,      AV *)                   /* Thread-specific user data */
 PERLVAR(errsv,         SV *)                   /* Backing SV for $@ */
 PERLVAR(errhv,         HV *)                   /* HV for what was %@ in pp_ctl.c */