From cea2e8a9dd23747fd2b66edc86c58c64e9970321 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Wed, 9 Jun 1999 18:03:01 +0000 Subject: more complete support for implicit thread/interpreter pointer, enabled via -DPERL_IMPLICIT_CONTEXT (all changes are noops without that enabled): - USE_THREADS now enables PERL_IMPLICIT_CONTEXT, so dTHR is a noop; tests pass on Solaris; should be faster now! - MULTIPLICITY has been tested with and without PERL_IMPLICIT_CONTEXT on Solaris - improved function database now merged with embed.pl - everything except the varargs functions have foo(a,b,c) macros to provide compatibility - varargs functions default to compatibility variants that get the context pointer using dTHX - there should be almost no source compatibility issues as a result of all this - dl_foo.xs changes other than dl_dlopen.xs untested - still needs documentation, fixups for win32 etc Next step: migrate most non-mutex variables from perlvars.h to intrpvar.h p4raw-id: //depot/perl@3524 --- regcomp.h | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) (limited to 'regcomp.h') diff --git a/regcomp.h b/regcomp.h index 1538f8ab58..5097d97169 100644 --- a/regcomp.h +++ b/regcomp.h @@ -187,17 +187,17 @@ struct regnode_2 { #endif /* lint */ #define FAIL(m) \ - STMT_START { \ - if (!SIZE_ONLY) \ - SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \ - croak ("/%.127s/: %s", PL_regprecomp,m); \ + STMT_START { \ + if (!SIZE_ONLY) \ + SAVEDESTRUCTOR(S_clear_re,(void*)PL_regcomp_rx); \ + Perl_croak(aTHX_ "/%.127s/: %s", PL_regprecomp,m); \ } STMT_END #define FAIL2(pat,m) \ - STMT_START { \ - if (!SIZE_ONLY) \ - SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx); \ - re_croak2("/%.127s/: ",pat,PL_regprecomp,m); \ + STMT_START { \ + if (!SIZE_ONLY) \ + SAVEDESTRUCTOR(S_clear_re,(void*)PL_regcomp_rx); \ + S_re_croak2(aTHX_ "/%.127s/: ",pat,PL_regprecomp,m); \ } STMT_END #define EXTRA_SIZE(guy) ((sizeof(guy)-1)/sizeof(struct regnode)) -- cgit v1.2.1