diff options
author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:37:37 +0000 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-11-06 14:37:37 +0000 |
commit | 5fec647a952947a91de8c7e8de5b2f8a1661fe02 (patch) | |
tree | e4f86d854eb6533f931d992c7a48e03e2c5dbb41 /op.c | |
parent | 199100c871a030cc44240072644abe9aab66bc02 (diff) | |
download | perl-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.c | 17 |
1 files changed, 1 insertions, 16 deletions
@@ -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*)); |