[PATCH 5.004_60] Fix to MM_VMS.PM

[p5sagit/p5-mst-13.2.git] / pp.h

diff --git a/pp.h b/pp.h
index bc39f80..2209fee 100644 (file)
--- a/pp.h
+++ b/pp.h
@@ -9,16 +9,12 @@
 
 #ifdef USE_THREADS
 #define ARGS thr
-#define dARGS struct thread *thr;
+#define dARGS struct perl_thread *thr;
 #else
 #define ARGS
 #define dARGS
 #endif /* USE_THREADS */
-#ifdef CAN_PROTOTYPE
 #define PP(s) OP * s(ARGSproto)
-#else /* CAN_PROTOTYPE */
-#define PP(s) OP* s(ARGS) dARGS
-#endif /* CAN_PROTOTYPE */
 
 #define SP sp
 #define MARK mark
@@ -154,10 +150,10 @@
 #define ARGTARG                op->op_targ
 #define MAXARG         op->op_private
 
-#define SWITCHSTACK(f,t)       AvFILL(f) = sp - stack_base;            \
+#define SWITCHSTACK(f,t)       AvFILLp(f) = sp - stack_base;           \
                                stack_base = AvARRAY(t);                \
                                stack_max = stack_base + AvMAX(t);      \
-                               sp = stack_sp = stack_base + AvFILL(t); \
+                               sp = stack_sp = stack_base + AvFILLp(t);        \
                                curstack = t;
 
 #define EXTEND_MORTAL(n) \