MULTIPLICITY/DEBUGGING build fix.

p4raw-id: //depot/perlio@10045

diff --git a/run.c b/run.c
index 702a9b9..60d591e 100644 (file)
--- a/run.c
+++ b/run.c
@@ -108,7 +108,7 @@ Perl_debop(pTHX_ OP *o)
 }
 
 STATIC CV*
-S_deb_curcv(I32 ix)
+S_deb_curcv(pTHX_ I32 ix)
 {
 #ifdef DEBUGGING
     PERL_CONTEXT *cx = &cxstack[ix];