Initial 3-way merge from (5.001m, thr1m, 5.003) plus fixups.
[perl.git] / XSUB.h
diff --git a/XSUB.h b/XSUB.h
index af452ea..0bfb985 100644 (file)
--- a/XSUB.h
+++ b/XSUB.h
@@ -7,7 +7,7 @@
 #endif
 
 #define dXSARGS                                \
-       dSP; dMARK;                     \
+       dTHR; dSP; dMARK;               \
        I32 ax = mark - stack_base + 1; \
        I32 items = sp - mark