summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-11-06 14:37:37 +0000
committerMalcolm Beattie <mbeattie@sable.ox.ac.uk>1997-11-06 14:37:37 +0000
commit5fec647a952947a91de8c7e8de5b2f8a1661fe02 (patch)
treee4f86d854eb6533f931d992c7a48e03e2c5dbb41 /op.c
parent199100c871a030cc44240072644abe9aab66bc02 (diff)
downloadperl-5fec647a952947a91de8c7e8de5b2f8a1661fe02.tar.gz
Remove #ifdef DEPRECATED stuff: newXSUB, pp_entersubr, FREE_TMPS().
p4raw-id: //depot/perl@206
Diffstat (limited to 'op.c')
-rw-r--r--op.c17
1 files changed, 1 insertions, 16 deletions
diff --git a/op.c b/op.c
index 243b3c7cc3..e91bea9411 100644
--- a/op.c
+++ b/op.c
@@ -3615,22 +3615,7 @@ OP *block;
return cv;
}
-#ifdef DEPRECATED
-CV *
-newXSUB(name, ix, subaddr, filename)
-char *name;
-I32 ix;
-I32 (*subaddr)();
-char *filename;
-{
- CV* cv = newXS(name, (void(*)())subaddr, filename);
- CvOLDSTYLE_on(cv);
- CvXSUBANY(cv).any_i32 = ix;
- return cv;
-}
-#endif
-
-CV *
+V *
newXS(name, subaddr, filename)
char *name;
void (*subaddr) _((CV*));