From acfe0abcedaf592fb4b9cb69ce3468308ae99d91 Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Fri, 31 Aug 2001 20:58:38 +0000 Subject: remove deprecated PERL_OBJECT cruft, it has long since stopped working in 5.7.x p4raw-id: //depot/perl@11803 --- bytecode.pl | 13 +++---------- 1 file changed, 3 insertions(+), 10 deletions(-) (limited to 'bytecode.pl') diff --git a/bytecode.pl b/bytecode.pl index 4b00e14b9a..89536ae36e 100644 --- a/bytecode.pl +++ b/bytecode.pl @@ -71,13 +71,6 @@ print BYTERUN_C $c_header, <<'EOT'; #define NO_XSLOCKS #include "XSUB.h" -#ifdef PERL_OBJECT -#undef CALL_FPTR -#define CALL_FPTR(fptr) (pPerl->*fptr) -#undef PL_ppaddr -#define PL_ppaddr (*get_ppaddr()) -#endif - #include "byterun.h" #include "bytecode.h" @@ -93,7 +86,7 @@ print BYTERUN_C <<'EOT'; }; void * -bset_obj_store(pTHXo_ struct byteloader_state *bstate, void *obj, I32 ix) +bset_obj_store(pTHX_ struct byteloader_state *bstate, void *obj, I32 ix) { if (ix > bstate->bs_obj_list_fill) { Renew(bstate->bs_obj_list, ix + 32, void*); @@ -104,7 +97,7 @@ bset_obj_store(pTHXo_ struct byteloader_state *bstate, void *obj, I32 ix) } void -byterun(pTHXo_ register struct byteloader_state *bstate) +byterun(pTHX_ register struct byteloader_state *bstate) { register int insn; U32 ix; @@ -209,7 +202,7 @@ struct byteloader_state { int bl_getc(struct byteloader_fdata *); int bl_read(struct byteloader_fdata *, char *, size_t, size_t); -extern void byterun(pTHXo_ struct byteloader_state *); +extern void byterun(pTHX_ struct byteloader_state *); enum { EOT -- cgit v1.2.1