diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-03 06:59:37 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-04-03 06:59:37 +0000 |
| commit | e336de0d01f30cc4061b6d6a00d11df30fc67cd3 (patch) | |
| tree | 47af4eae88807f461d216a10701a0502a2373226 /thrdvar.h | |
| parent | dfb1c8b93631b1cf8c1d0d2295ffff2bf0f098a7 (diff) | |
| download | perl-e336de0d01f30cc4061b6d6a00d11df30fc67cd3.tar.gz | |
[win32] implement stack-of-stacks so that magic invocations don't
invalidate local stack pointer
p4raw-id: //depot/win32/perl@864
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 5 |
1 files changed, 1 insertions, 4 deletions
@@ -68,11 +68,8 @@ 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 */ |