diff options
| author | Chip Salzenberg <chip@pobox.com> | 1999-03-09 06:51:57 -0500 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-11 02:49:07 +0000 |
| commit | 312caa8e97f1c7ee342a9895c2f0e749625b4929 (patch) | |
| tree | d17fe60b1f9973745e8a7a4dc5180e630f87d561 /thrdvar.h | |
| parent | 810b8aa5436a934d1a2016588cbacf9b55463c40 (diff) | |
| download | perl-312caa8e97f1c7ee342a9895c2f0e749625b4929.tar.gz | |
gutsupport for C++ exceptions
Message-ID: <19990309115157.E7911@perlsupport.com>
Subject: [PATCH 5.005] Flexible Exceptions
p4raw-id: //depot/perl@3386
Diffstat (limited to 'thrdvar.h')
| -rw-r--r-- | thrdvar.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -93,8 +93,10 @@ PERLVAR(Tlocalizing, int) /* are we processing a local() list? */ 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 */ +PERLVARI(Tprotect, protect_proc_t, FUNC_NAME_TO_PTR(default_protect)) /* statics "owned" by various functions */ PERLVAR(Tav_fetch_sv, SV *) /* owned by av_fetch() */ |