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

1 files changed, 8 insertions, 8 deletions

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))