This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Integrate mainline changes into win32 branch. Now would be a good time
[perl5.git] / thread.h
index cda4754..2b8e636 100644 (file)
--- a/thread.h
+++ b/thread.h
@@ -211,7 +211,6 @@ struct thread {
     AV *       Tcurstack;
     AV *       Tmainstack;
     JMPENV *   Ttop_env;
     AV *       Tcurstack;
     AV *       Tmainstack;
     JMPENV *   Ttop_env;
-    I32                Trunlevel;
 
     /* XXX Sort stuff, firstgv, secongv and so on? */
 
 
     /* XXX Sort stuff, firstgv, secongv and so on? */
 
@@ -309,9 +308,9 @@ typedef struct condpair {
 #undef chopset
 #undef formtarget
 #undef bodytarget
 #undef chopset
 #undef formtarget
 #undef bodytarget
+#undef  start_env
 #undef toptarget
 #undef top_env
 #undef toptarget
 #undef top_env
-#undef runlevel
 #undef in_eval
 #undef restartop
 #undef delaymagic
 #undef in_eval
 #undef restartop
 #undef delaymagic
@@ -383,7 +382,6 @@ typedef struct condpair {
 #define localizing     (thr->Tlocalizing)
 
 #define        top_env         (thr->Ttop_env)
 #define localizing     (thr->Tlocalizing)
 
 #define        top_env         (thr->Ttop_env)
-#define        runlevel        (thr->Trunlevel)
 #define start_env       (thr->Tstart_env)
 
 #else
 #define start_env       (thr->Tstart_env)
 
 #else