Remove #ifdef DEPRECATED stuff: newXSUB, pp_entersubr, FREE_TMPS().

p4raw-id: //depot/perl@206

1 files changed, 0 insertions, 15 deletions

diff --git a/pp_ctl.c b/pp_ctl.c
index d4d2e2f4a2..915ee6c588 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -1117,21 +1117,6 @@ PP(pp_orassign)
 	RETURNOP(cLOGOP->op_other);
 }
 	
-#ifdef DEPRECATED
-PP(pp_entersubr)
-{
-    dSP;
-    SV** mark = (stack_base + *markstack_ptr + 1);
-    SV* cv = *mark;
-    while (mark < sp) {	/* emulate old interface */
-	*mark = mark[1];
-	mark++;
-    }
-    *sp = cv;
-    return pp_entersub(ARGS);
-}
-#endif
-
 PP(pp_caller)
 {
     dSP;