MARK -Ds debugging

display the MARK arity and pointers with MARK macros.
assert on markptr underflow.

1 files changed, 2 insertions, 2 deletions

diff --git a/perl.c b/perl.c
index b64975bf30..8182562cdf 100644
--- a/perl.c
+++ b/perl.c
@@ -2776,9 +2776,9 @@ Perl_call_sv(pTHX_ SV *sv, VOL I32 flags)
     }
     else {
 	myop.op_other = (OP*)&myop;
-	PL_markstack_ptr--;
+	POPMARK;
 	create_eval_scope(flags|G_FAKINGEVAL);
-	PL_markstack_ptr++;
+	INCMARK;
 
 	JMPENV_PUSH(ret);