From 14dd3ad8c9bf82cf09798a22cc89a9862dfd6d1a Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 20 Feb 2000 16:07:38 +0000 Subject: make change#3386 a build-time option (avoids problems due to perl_run() longjmping out) p4raw-link: @3386 on //depot/perl: 312caa8e97f1c7ee342a9895c2f0e749625b4929 p4raw-id: //depot/perl@5162 --- thrdvar.h | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'thrdvar.h') diff --git a/thrdvar.h b/thrdvar.h index 814842c5da..e4cfacc06c 100644 --- a/thrdvar.h +++ b/thrdvar.h @@ -10,10 +10,7 @@ * * When building without USE_THREADS, these variables will be truly global. * When building without USE_THREADS but with MULTIPLICITY, these variables - * will be global per-interpreter. - * - * Avoid build-specific #ifdefs here, like DEBUGGING. That way, - * we can keep binary compatibility of the curinterp structure */ + * will be global per-interpreter. */ /* Important ones in the first cache line (if alignment is done right) */ @@ -112,7 +109,9 @@ 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 */ +#ifdef PERL_FLEXIBLE_EXCEPTIONS PERLVARI(Tprotect, protect_proc_t, MEMBER_TO_FPTR(Perl_default_protect)) +#endif PERLVARI(Terrors, SV *, Nullsv) /* outstanding queued errors */ /* statics "owned" by various functions */ -- cgit v1.2.1