diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-08 00:14:13 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-08 00:14:13 +0000 |
| commit | ba3eb2af450c2577c20a691fb686a5e02955c48b (patch) | |
| tree | a8cf1145dc0c922547f90f92d9c444715752d512 /thrdvar.h | |
| parent | 00dc2f4f23da07658d2634f904ac3a098aaa4153 (diff) | |
| parent | 8c9208bc5764dada175aceff9d0b1938978d7db6 (diff) | |
| download | perl-ba3eb2af450c2577c20a691fb686a5e02955c48b.tar.gz | |
[asperl] integrate mainline changes
p4raw-id: //depot/asperl@884
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 10 |
1 files changed, 6 insertions, 4 deletions
@@ -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? */ |