Convert a perl5db.t test to DebugWrap.

[perl5.git] / perl.h

diff --git a/perl.h b/perl.h
index f187eba..8b33633 100644 (file)
--- a/perl.h
+++ b/perl.h
@@ -172,6 +172,7 @@
 #  define tTHX PerlInterpreter*
 #  define pTHX  register tTHX my_perl PERL_UNUSED_DECL
 #  define aTHX my_perl
+#  define aTHXa(a) aTHX = (tTHX)a
 #  ifdef PERL_GLOBAL_STRUCT
 #    define dTHXa(a)   dVAR; pTHX = (tTHX)a
 #  else
@@ -364,6 +365,7 @@
 #  define pTHX_
 #  define aTHX
 #  define aTHX_
+#  define aTHXa(a)      NOOP
 #  define dTHXa(a)     dNOOP
 #  define dTHX         dNOOP
 #  define pTHX_1       1       
@@ -539,6 +541,9 @@ register struct op *Perl_op asm(stringify(OP_IN_REGISTER));
  * SILENT_NO_TAINT_SUPPORT implies NO_TAINT_SUPPORT.
  * SILENT_NO_TAINT_SUPPORT is the same as NO_TAINT_SUPPORT except it
  * silently ignores -t/-T instead of throwing an exception.
+ *
+ * DANGER! Using NO_TAINT_SUPPORT or SILENT_NO_TAINT_SUPPORT
+ *         voids your nonexistent warranty!
  */
 #if SILENT_NO_TAINT_SUPPORT && !defined(NO_TAINT_SUPPORT)
 #  define NO_TAINT_SUPPORT 1