diff options
Diffstat (limited to 'contrib/perl5/ext/ByteLoader')
-rw-r--r-- | contrib/perl5/ext/ByteLoader/ByteLoader.pm | 40 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/ByteLoader.xs | 131 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/Makefile.PL | 9 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/bytecode.h | 257 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/byterun.c | 916 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/byterun.h | 168 | ||||
-rw-r--r-- | contrib/perl5/ext/ByteLoader/hints/sunos.pl | 2 |
7 files changed, 0 insertions, 1523 deletions
diff --git a/contrib/perl5/ext/ByteLoader/ByteLoader.pm b/contrib/perl5/ext/ByteLoader/ByteLoader.pm deleted file mode 100644 index 9c8c84d..0000000 --- a/contrib/perl5/ext/ByteLoader/ByteLoader.pm +++ /dev/null @@ -1,40 +0,0 @@ -package ByteLoader; - -use XSLoader (); - -$VERSION = 0.04; - -XSLoader::load 'ByteLoader', $VERSION; - -# Preloaded methods go here. - -1; -__END__ - -=head1 NAME - -ByteLoader - load byte compiled perl code - -=head1 SYNOPSIS - - use ByteLoader 0.04; - <byte code> - - use ByteLoader 0.04; - <byte code> - -=head1 DESCRIPTION - -This module is used to load byte compiled perl code. It uses the source -filter mechanism to read the byte code and insert it into the compiled -code at the appropriate point. - -=head1 AUTHOR - -Tom Hughes <tom@compton.nu> based on the ideas of Tim Bunce and others. - -=head1 SEE ALSO - -perl(1). - -=cut diff --git a/contrib/perl5/ext/ByteLoader/ByteLoader.xs b/contrib/perl5/ext/ByteLoader/ByteLoader.xs deleted file mode 100644 index 05b795c..0000000 --- a/contrib/perl5/ext/ByteLoader/ByteLoader.xs +++ /dev/null @@ -1,131 +0,0 @@ -#define PERL_NO_GET_CONTEXT -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" -#include "byterun.h" - -/* Something arbitary for a buffer size */ -#define BYTELOADER_BUFFER 8096 - -int -bl_getc(struct byteloader_fdata *data) -{ - dTHX; - if (SvCUR(data->datasv) <= data->next_out) { - int result; - /* Run out of buffered data, so attempt to read some more */ - *(SvPV_nolen (data->datasv)) = '\0'; - SvCUR_set (data->datasv, 0); - data->next_out = 0; - result = FILTER_READ (data->idx + 1, data->datasv, BYTELOADER_BUFFER); - - /* Filter returned error, or we got EOF and no data, then return EOF. - Not sure if filter is allowed to return EOF and add data simultaneously - Think not, but will bullet proof against it. */ - if (result < 0 || SvCUR(data->datasv) == 0) - return EOF; - /* Else there must be at least one byte present, which is good enough */ - } - - return *((char *) SvPV_nolen (data->datasv) + data->next_out++); -} - -int -bl_read(struct byteloader_fdata *data, char *buf, size_t size, size_t n) -{ - dTHX; - char *start; - STRLEN len; - size_t wanted = size * n; - - start = SvPV (data->datasv, len); - if (len < (data->next_out + wanted)) { - int result; - - /* Shuffle data to start of buffer */ - len -= data->next_out; - if (len) { - memmove (start, start + data->next_out, len + 1); - SvCUR_set (data->datasv, len); - } else { - *start = '\0'; /* Avoid call to memmove. */ - SvCUR_set (data->datasv, 0); - } - data->next_out = 0; - - /* Attempt to read more data. */ - do { - result = FILTER_READ (data->idx + 1, data->datasv, BYTELOADER_BUFFER); - - start = SvPV (data->datasv, len); - } while (result > 0 && len < wanted); - /* Loop while not (EOF || error) and short reads */ - - /* If not enough data read, truncate copy */ - if (wanted > len) - wanted = len; - } - - if (wanted > 0) { - memcpy (buf, start + data->next_out, wanted); - data->next_out += wanted; - wanted /= size; - } - return (int) wanted; -} - -static I32 -byteloader_filter(pTHXo_ int idx, SV *buf_sv, int maxlen) -{ - OP *saveroot = PL_main_root; - OP *savestart = PL_main_start; - struct byteloader_state bstate; - struct byteloader_fdata data; - - data.next_out = 0; - data.datasv = FILTER_DATA(idx); - data.idx = idx; - - bstate.bs_fdata = &data; - bstate.bs_obj_list = Null(void**); - bstate.bs_obj_list_fill = -1; - bstate.bs_sv = Nullsv; - bstate.bs_iv_overflows = 0; - - byterun(aTHXo_ &bstate); - - if (PL_in_eval) { - OP *o; - - PL_eval_start = PL_main_start; - - o = newSVOP(OP_CONST, 0, newSViv(1)); - PL_eval_root = newLISTOP(OP_LINESEQ, 0, PL_main_root, o); - PL_main_root->op_next = o; - PL_eval_root = newUNOP(OP_LEAVEEVAL, 0, PL_eval_root); - o->op_next = PL_eval_root; - - PL_main_root = saveroot; - PL_main_start = savestart; - } - - return 0; -} - -MODULE = ByteLoader PACKAGE = ByteLoader - -PROTOTYPES: ENABLE - -void -import(...) - PREINIT: - SV *sv = newSVpvn ("", 0); - PPCODE: - if (!sv) - croak ("Could not allocate ByteLoader buffers"); - filter_add(byteloader_filter, sv); - -void -unimport(...) - PPCODE: - filter_del(byteloader_filter); diff --git a/contrib/perl5/ext/ByteLoader/Makefile.PL b/contrib/perl5/ext/ByteLoader/Makefile.PL deleted file mode 100644 index c3cfcc7..0000000 --- a/contrib/perl5/ext/ByteLoader/Makefile.PL +++ /dev/null @@ -1,9 +0,0 @@ -use ExtUtils::MakeMaker; - -WriteMakefile( - NAME => 'ByteLoader', - VERSION_FROM => 'ByteLoader.pm', - XSPROTOARG => '-noprototypes', - MAN3PODS => {}, # Pods will be built by installman. - OBJECT => 'byterun$(OBJ_EXT) ByteLoader$(OBJ_EXT)', -); diff --git a/contrib/perl5/ext/ByteLoader/bytecode.h b/contrib/perl5/ext/ByteLoader/bytecode.h deleted file mode 100644 index c6acd28..0000000 --- a/contrib/perl5/ext/ByteLoader/bytecode.h +++ /dev/null @@ -1,257 +0,0 @@ -typedef char *pvcontents; -typedef char *strconst; -typedef U32 PV; -typedef char *op_tr_array; -typedef int comment_t; -typedef SV *svindex; -typedef OP *opindex; -typedef char *pvindex; -typedef IV IV64; - -#define BGET_FREAD(argp, len, nelem) \ - bl_read(bstate->bs_fdata,(char*)(argp),(len),(nelem)) -#define BGET_FGETC() bl_getc(bstate->bs_fdata) - -#define BGET_U32(arg) \ - BGET_FREAD(&arg, sizeof(U32), 1) -#define BGET_I32(arg) \ - BGET_FREAD(&arg, sizeof(I32), 1) -#define BGET_U16(arg) \ - BGET_FREAD(&arg, sizeof(U16), 1) -#define BGET_U8(arg) arg = BGET_FGETC() - -#define BGET_PV(arg) STMT_START { \ - BGET_U32(arg); \ - if (arg) { \ - New(666, bstate->bs_pv.xpv_pv, arg, char); \ - bl_read(bstate->bs_fdata, (void*)bstate->bs_pv.xpv_pv, arg, 1); \ - bstate->bs_pv.xpv_len = arg; \ - bstate->bs_pv.xpv_cur = arg - 1; \ - } else { \ - bstate->bs_pv.xpv_pv = 0; \ - bstate->bs_pv.xpv_len = 0; \ - bstate->bs_pv.xpv_cur = 0; \ - } \ - } STMT_END - -#ifdef BYTELOADER_LOG_COMMENTS -# define BGET_comment_t(arg) \ - STMT_START { \ - char buf[1024]; \ - int i = 0; \ - do { \ - arg = BGET_FGETC(); \ - buf[i++] = (char)arg; \ - } while (arg != '\n' && arg != EOF); \ - buf[i] = '\0'; \ - PerlIO_printf(PerlIO_stderr(), "%s", buf); \ - } STMT_END -#else -# define BGET_comment_t(arg) \ - do { arg = BGET_FGETC(); } while (arg != '\n' && arg != EOF) -#endif - -/* - * In the following, sizeof(IV)*4 is just a way of encoding 32 on 64-bit-IV - * machines such that 32-bit machine compilers don't whine about the shift - * count being too high even though the code is never reached there. - */ -#define BGET_IV64(arg) STMT_START { \ - U32 hi, lo; \ - BGET_U32(hi); \ - BGET_U32(lo); \ - if (sizeof(IV) == 8) \ - arg = ((IV)hi << (sizeof(IV)*4) | (IV)lo); \ - else if (((I32)hi == -1 && (I32)lo < 0) \ - || ((I32)hi == 0 && (I32)lo >= 0)) { \ - arg = (I32)lo; \ - } \ - else { \ - bstate->bs_iv_overflows++; \ - arg = 0; \ - } \ - } STMT_END - -#define BGET_op_tr_array(arg) do { \ - unsigned short *ary; \ - int i; \ - New(666, ary, 256, unsigned short); \ - BGET_FREAD(ary, sizeof(unsigned short), 256); \ - arg = (char *) ary; \ - } while (0) - -#define BGET_pvcontents(arg) arg = bstate->bs_pv.xpv_pv -#define BGET_strconst(arg) STMT_START { \ - for (arg = PL_tokenbuf; (*arg = BGET_FGETC()); arg++) /* nothing */; \ - arg = PL_tokenbuf; \ - } STMT_END - -#define BGET_NV(arg) STMT_START { \ - char *str; \ - BGET_strconst(str); \ - arg = Atof(str); \ - } STMT_END - -#define BGET_objindex(arg, type) STMT_START { \ - BGET_U32(ix); \ - arg = (type)bstate->bs_obj_list[ix]; \ - } STMT_END -#define BGET_svindex(arg) BGET_objindex(arg, svindex) -#define BGET_opindex(arg) BGET_objindex(arg, opindex) -#define BGET_pvindex(arg) STMT_START { \ - BGET_objindex(arg, pvindex); \ - arg = arg ? savepv(arg) : arg; \ - } STMT_END - -#define BSET_ldspecsv(sv, arg) sv = specialsv_list[arg] -#define BSET_stpv(pv, arg) STMT_START { \ - BSET_OBJ_STORE(pv, arg); \ - SAVEFREEPV(pv); \ - } STMT_END - -#define BSET_sv_refcnt_add(svrefcnt, arg) svrefcnt += arg -#define BSET_gp_refcnt_add(gprefcnt, arg) gprefcnt += arg -#define BSET_gp_share(sv, arg) STMT_START { \ - gp_free((GV*)sv); \ - GvGP(sv) = GvGP(arg); \ - } STMT_END - -#define BSET_gv_fetchpv(sv, arg) sv = (SV*)gv_fetchpv(arg, TRUE, SVt_PV) -#define BSET_gv_stashpv(sv, arg) sv = (SV*)gv_stashpv(arg, TRUE) -#define BSET_sv_magic(sv, arg) sv_magic(sv, Nullsv, arg, 0, 0) -#define BSET_mg_pv(mg, arg) mg->mg_ptr = arg; mg->mg_len = bstate->bs_pv.xpv_cur -#define BSET_sv_upgrade(sv, arg) (void)SvUPGRADE(sv, arg) -#define BSET_xpv(sv) do { \ - SvPV_set(sv, bstate->bs_pv.xpv_pv); \ - SvCUR_set(sv, bstate->bs_pv.xpv_cur); \ - SvLEN_set(sv, bstate->bs_pv.xpv_len); \ - } while (0) -#define BSET_av_extend(sv, arg) av_extend((AV*)sv, arg) - -#define BSET_av_push(sv, arg) av_push((AV*)sv, arg) -#define BSET_hv_store(sv, arg) \ - hv_store((HV*)sv, bstate->bs_pv.xpv_pv, bstate->bs_pv.xpv_cur, arg, 0) -#define BSET_pv_free(pv) Safefree(pv.xpv_pv) -#define BSET_pregcomp(o, arg) \ - ((PMOP*)o)->op_pmregexp = arg ? \ - CALLREGCOMP(aTHX_ arg, arg + bstate->bs_pv.xpv_cur, ((PMOP*)o)) : 0 -#define BSET_newsv(sv, arg) \ - STMT_START { \ - sv = (arg == SVt_PVAV ? (SV*)newAV() : \ - arg == SVt_PVHV ? (SV*)newHV() : \ - NEWSV(666,0)); \ - SvUPGRADE(sv, arg); \ - } STMT_END -#define BSET_newop(o, arg) ((o = (OP*)safemalloc(optype_size[arg])), \ - memzero((char*)o,optype_size[arg])) -#define BSET_newopn(o, arg) STMT_START { \ - OP *oldop = o; \ - BSET_newop(o, arg); \ - oldop->op_next = o; \ - } STMT_END - -#define BSET_ret(foo) STMT_START { \ - Safefree(bstate->bs_obj_list); \ - return; \ - } STMT_END - -/* - * Kludge special-case workaround for OP_MAPSTART - * which needs the ppaddr for OP_GREPSTART. Blech. - */ -#define BSET_op_type(o, arg) STMT_START { \ - o->op_type = arg; \ - if (arg == OP_MAPSTART) \ - arg = OP_GREPSTART; \ - o->op_ppaddr = PL_ppaddr[arg]; \ - } STMT_END -#define BSET_op_ppaddr(o, arg) Perl_croak(aTHX_ "op_ppaddr not yet implemented") -#define BSET_curpad(pad, arg) STMT_START { \ - PL_comppad = (AV *)arg; \ - pad = AvARRAY(arg); \ - } STMT_END -/* this works now that Sarathy's changed the CopFILE_set macro to do the SvREFCNT_inc() - -- BKS 6-2-2000 */ -#define BSET_cop_file(cop, arg) CopFILE_set(cop,arg) -#define BSET_cop_line(cop, arg) CopLINE_set(cop,arg) -#define BSET_cop_stashpv(cop, arg) CopSTASHPV_set(cop,arg) - -/* this is simply stolen from the code in newATTRSUB() */ -#define BSET_push_begin(ary,cv) \ - STMT_START { \ - I32 oldscope = PL_scopestack_ix; \ - ENTER; \ - SAVECOPFILE(&PL_compiling); \ - SAVECOPLINE(&PL_compiling); \ - save_svref(&PL_rs); \ - sv_setsv(PL_rs, PL_nrs); \ - if (!PL_beginav) \ - PL_beginav = newAV(); \ - av_push(PL_beginav, cv); \ - call_list(oldscope, PL_beginav); \ - PL_curcop = &PL_compiling; \ - PL_compiling.op_private = PL_hints; \ - LEAVE; \ - } STMT_END -#define BSET_push_init(ary,cv) \ - STMT_START { \ - av_unshift((PL_initav ? PL_initav : (PL_initav = newAV(), PL_initav)), 1); \ - av_store(PL_initav, 0, cv); \ - } STMT_END -#define BSET_push_end(ary,cv) \ - STMT_START { \ - av_unshift((PL_endav ? PL_endav : (PL_endav = newAV(), PL_endav)), 1); \ - av_store(PL_endav, 0, cv); \ - } STMT_END -#define BSET_OBJ_STORE(obj, ix) \ - (I32)ix > bstate->bs_obj_list_fill ? \ - bset_obj_store(aTHXo_ bstate, obj, (I32)ix) : (bstate->bs_obj_list[ix] = obj) - -/* NOTE: the bytecode header only sanity-checks the bytecode. If a script cares about - * what version of Perl it's being called under, it should do a 'require 5.6.0' or - * equivalent. However, since the header includes checks requiring an exact match in - * ByteLoader versions (we can't guarantee forward compatibility), you don't - * need to specify one: - * use ByteLoader; - * is all you need. - * -- BKS, June 2000 -*/ - -#define HEADER_FAIL(f) \ - Perl_croak(aTHX_ "Invalid bytecode for this architecture: " f) -#define HEADER_FAIL1(f, arg1) \ - Perl_croak(aTHX_ "Invalid bytecode for this architecture: " f, arg1) -#define HEADER_FAIL2(f, arg1, arg2) \ - Perl_croak(aTHX_ "Invalid bytecode for this architecture: " f, arg1, arg2) - -#define BYTECODE_HEADER_CHECK \ - STMT_START { \ - U32 sz = 0; \ - strconst str; \ - \ - BGET_U32(sz); /* Magic: 'PLBC' */ \ - if (sz != 0x43424c50) { \ - HEADER_FAIL1("bad magic (want 0x43424c50, got %#x)", (int)sz); \ - } \ - BGET_strconst(str); /* archname */ \ - if (strNE(str, ARCHNAME)) { \ - HEADER_FAIL2("wrong architecture (want %s, you have %s)",str,ARCHNAME); \ - } \ - BGET_strconst(str); /* ByteLoader version */ \ - if (strNE(str, VERSION)) { \ - HEADER_FAIL2("mismatched ByteLoader versions (want %s, you have %s)", \ - str, VERSION); \ - } \ - BGET_U32(sz); /* ivsize */ \ - if (sz != IVSIZE) { \ - HEADER_FAIL("different IVSIZE"); \ - } \ - BGET_U32(sz); /* ptrsize */ \ - if (sz != PTRSIZE) { \ - HEADER_FAIL("different PTRSIZE"); \ - } \ - BGET_strconst(str); /* byteorder */ \ - if (strNE(str, STRINGIFY(BYTEORDER))) { \ - HEADER_FAIL("different byteorder"); \ - } \ - } STMT_END diff --git a/contrib/perl5/ext/ByteLoader/byterun.c b/contrib/perl5/ext/ByteLoader/byterun.c deleted file mode 100644 index 71cd8aa..0000000 --- a/contrib/perl5/ext/ByteLoader/byterun.c +++ /dev/null @@ -1,916 +0,0 @@ -/* - * Copyright (c) 1996-1999 Malcolm Beattie - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ -/* - * This file is autogenerated from bytecode.pl. Changes made here will be lost. - */ - -#define PERL_NO_GET_CONTEXT -#include "EXTERN.h" -#include "perl.h" -#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" - - -static const int optype_size[] = { - sizeof(OP), - sizeof(UNOP), - sizeof(BINOP), - sizeof(LOGOP), - sizeof(LISTOP), - sizeof(PMOP), - sizeof(SVOP), - sizeof(PADOP), - sizeof(PVOP), - sizeof(LOOP), - sizeof(COP) -}; - -void * -bset_obj_store(pTHXo_ struct byteloader_state *bstate, void *obj, I32 ix) -{ - if (ix > bstate->bs_obj_list_fill) { - Renew(bstate->bs_obj_list, ix + 32, void*); - bstate->bs_obj_list_fill = ix + 31; - } - bstate->bs_obj_list[ix] = obj; - return obj; -} - -void -byterun(pTHXo_ register struct byteloader_state *bstate) -{ - register int insn; - U32 ix; - SV *specialsv_list[6]; - - BYTECODE_HEADER_CHECK; /* croak if incorrect platform */ - New(666, bstate->bs_obj_list, 32, void*); /* set op objlist */ - bstate->bs_obj_list_fill = 31; - - specialsv_list[0] = Nullsv; - specialsv_list[1] = &PL_sv_undef; - specialsv_list[2] = &PL_sv_yes; - specialsv_list[3] = &PL_sv_no; - specialsv_list[4] = pWARN_ALL; - specialsv_list[5] = pWARN_NONE; - - while ((insn = BGET_FGETC()) != EOF) { - switch (insn) { - case INSN_COMMENT: /* 35 */ - { - comment_t arg; - BGET_comment_t(arg); - arg = arg; - break; - } - case INSN_NOP: /* 10 */ - { - break; - } - case INSN_RET: /* 0 */ - { - BSET_ret(none); - break; - } - case INSN_LDSV: /* 1 */ - { - svindex arg; - BGET_svindex(arg); - bstate->bs_sv = arg; - break; - } - case INSN_LDOP: /* 2 */ - { - opindex arg; - BGET_opindex(arg); - PL_op = arg; - break; - } - case INSN_STSV: /* 3 */ - { - U32 arg; - BGET_U32(arg); - BSET_OBJ_STORE(bstate->bs_sv, arg); - break; - } - case INSN_STOP: /* 4 */ - { - U32 arg; - BGET_U32(arg); - BSET_OBJ_STORE(PL_op, arg); - break; - } - case INSN_STPV: /* 5 */ - { - U32 arg; - BGET_U32(arg); - BSET_stpv(bstate->bs_pv.xpv_pv, arg); - break; - } - case INSN_LDSPECSV: /* 6 */ - { - U8 arg; - BGET_U8(arg); - BSET_ldspecsv(bstate->bs_sv, arg); - break; - } - case INSN_NEWSV: /* 7 */ - { - U8 arg; - BGET_U8(arg); - BSET_newsv(bstate->bs_sv, arg); - break; - } - case INSN_NEWOP: /* 8 */ - { - U8 arg; - BGET_U8(arg); - BSET_newop(PL_op, arg); - break; - } - case INSN_NEWOPN: /* 9 */ - { - U8 arg; - BGET_U8(arg); - BSET_newopn(PL_op, arg); - break; - } - case INSN_NEWPV: /* 11 */ - { - PV arg; - BGET_PV(arg); - break; - } - case INSN_PV_CUR: /* 12 */ - { - STRLEN arg; - BGET_U32(arg); - bstate->bs_pv.xpv_cur = arg; - break; - } - case INSN_PV_FREE: /* 13 */ - { - BSET_pv_free(bstate->bs_pv); - break; - } - case INSN_SV_UPGRADE: /* 14 */ - { - char arg; - BGET_U8(arg); - BSET_sv_upgrade(bstate->bs_sv, arg); - break; - } - case INSN_SV_REFCNT: /* 15 */ - { - U32 arg; - BGET_U32(arg); - SvREFCNT(bstate->bs_sv) = arg; - break; - } - case INSN_SV_REFCNT_ADD: /* 16 */ - { - I32 arg; - BGET_I32(arg); - BSET_sv_refcnt_add(SvREFCNT(bstate->bs_sv), arg); - break; - } - case INSN_SV_FLAGS: /* 17 */ - { - U32 arg; - BGET_U32(arg); - SvFLAGS(bstate->bs_sv) = arg; - break; - } - case INSN_XRV: /* 18 */ - { - svindex arg; - BGET_svindex(arg); - SvRV(bstate->bs_sv) = arg; - break; - } - case INSN_XPV: /* 19 */ - { - BSET_xpv(bstate->bs_sv); - break; - } - case INSN_XIV32: /* 20 */ - { - I32 arg; - BGET_I32(arg); - SvIVX(bstate->bs_sv) = arg; - break; - } - case INSN_XIV64: /* 21 */ - { - IV64 arg; - BGET_IV64(arg); - SvIVX(bstate->bs_sv) = arg; - break; - } - case INSN_XNV: /* 22 */ - { - NV arg; - BGET_NV(arg); - SvNVX(bstate->bs_sv) = arg; - break; - } - case INSN_XLV_TARGOFF: /* 23 */ - { - STRLEN arg; - BGET_U32(arg); - LvTARGOFF(bstate->bs_sv) = arg; - break; - } - case INSN_XLV_TARGLEN: /* 24 */ - { - STRLEN arg; - BGET_U32(arg); - LvTARGLEN(bstate->bs_sv) = arg; - break; - } - case INSN_XLV_TARG: /* 25 */ - { - svindex arg; - BGET_svindex(arg); - LvTARG(bstate->bs_sv) = arg; - break; - } - case INSN_XLV_TYPE: /* 26 */ - { - char arg; - BGET_U8(arg); - LvTYPE(bstate->bs_sv) = arg; - break; - } - case INSN_XBM_USEFUL: /* 27 */ - { - I32 arg; - BGET_I32(arg); - BmUSEFUL(bstate->bs_sv) = arg; - break; - } - case INSN_XBM_PREVIOUS: /* 28 */ - { - U16 arg; - BGET_U16(arg); - BmPREVIOUS(bstate->bs_sv) = arg; - break; - } - case INSN_XBM_RARE: /* 29 */ - { - U8 arg; - BGET_U8(arg); - BmRARE(bstate->bs_sv) = arg; - break; - } - case INSN_XFM_LINES: /* 30 */ - { - I32 arg; - BGET_I32(arg); - FmLINES(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_LINES: /* 31 */ - { - long arg; - BGET_I32(arg); - IoLINES(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_PAGE: /* 32 */ - { - long arg; - BGET_I32(arg); - IoPAGE(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_PAGE_LEN: /* 33 */ - { - long arg; - BGET_I32(arg); - IoPAGE_LEN(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_LINES_LEFT: /* 34 */ - { - long arg; - BGET_I32(arg); - IoLINES_LEFT(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_TOP_NAME: /* 36 */ - { - pvcontents arg; - BGET_pvcontents(arg); - IoTOP_NAME(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_TOP_GV: /* 37 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&IoTOP_GV(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_FMT_NAME: /* 38 */ - { - pvcontents arg; - BGET_pvcontents(arg); - IoFMT_NAME(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_FMT_GV: /* 39 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&IoFMT_GV(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_BOTTOM_NAME: /* 40 */ - { - pvcontents arg; - BGET_pvcontents(arg); - IoBOTTOM_NAME(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_BOTTOM_GV: /* 41 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&IoBOTTOM_GV(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_SUBPROCESS: /* 42 */ - { - short arg; - BGET_U16(arg); - IoSUBPROCESS(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_TYPE: /* 43 */ - { - char arg; - BGET_U8(arg); - IoTYPE(bstate->bs_sv) = arg; - break; - } - case INSN_XIO_FLAGS: /* 44 */ - { - char arg; - BGET_U8(arg); - IoFLAGS(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_STASH: /* 45 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&CvSTASH(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_START: /* 46 */ - { - opindex arg; - BGET_opindex(arg); - CvSTART(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_ROOT: /* 47 */ - { - opindex arg; - BGET_opindex(arg); - CvROOT(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_GV: /* 48 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&CvGV(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_FILE: /* 49 */ - { - pvindex arg; - BGET_pvindex(arg); - CvFILE(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_DEPTH: /* 50 */ - { - long arg; - BGET_I32(arg); - CvDEPTH(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_PADLIST: /* 51 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&CvPADLIST(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_OUTSIDE: /* 52 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&CvOUTSIDE(bstate->bs_sv) = arg; - break; - } - case INSN_XCV_FLAGS: /* 53 */ - { - U16 arg; - BGET_U16(arg); - CvFLAGS(bstate->bs_sv) = arg; - break; - } - case INSN_AV_EXTEND: /* 54 */ - { - SSize_t arg; - BGET_I32(arg); - BSET_av_extend(bstate->bs_sv, arg); - break; - } - case INSN_AV_PUSH: /* 55 */ - { - svindex arg; - BGET_svindex(arg); - BSET_av_push(bstate->bs_sv, arg); - break; - } - case INSN_XAV_FILL: /* 56 */ - { - SSize_t arg; - BGET_I32(arg); - AvFILLp(bstate->bs_sv) = arg; - break; - } - case INSN_XAV_MAX: /* 57 */ - { - SSize_t arg; - BGET_I32(arg); - AvMAX(bstate->bs_sv) = arg; - break; - } - case INSN_XAV_FLAGS: /* 58 */ - { - U8 arg; - BGET_U8(arg); - AvFLAGS(bstate->bs_sv) = arg; - break; - } - case INSN_XHV_RITER: /* 59 */ - { - I32 arg; - BGET_I32(arg); - HvRITER(bstate->bs_sv) = arg; - break; - } - case INSN_XHV_NAME: /* 60 */ - { - pvcontents arg; - BGET_pvcontents(arg); - HvNAME(bstate->bs_sv) = arg; - break; - } - case INSN_HV_STORE: /* 61 */ - { - svindex arg; - BGET_svindex(arg); - BSET_hv_store(bstate->bs_sv, arg); - break; - } - case INSN_SV_MAGIC: /* 62 */ - { - char arg; - BGET_U8(arg); - BSET_sv_magic(bstate->bs_sv, arg); - break; - } - case INSN_MG_OBJ: /* 63 */ - { - svindex arg; - BGET_svindex(arg); - SvMAGIC(bstate->bs_sv)->mg_obj = arg; - break; - } - case INSN_MG_PRIVATE: /* 64 */ - { - U16 arg; - BGET_U16(arg); - SvMAGIC(bstate->bs_sv)->mg_private = arg; - break; - } - case INSN_MG_FLAGS: /* 65 */ - { - U8 arg; - BGET_U8(arg); - SvMAGIC(bstate->bs_sv)->mg_flags = arg; - break; - } - case INSN_MG_PV: /* 66 */ - { - pvcontents arg; - BGET_pvcontents(arg); - BSET_mg_pv(SvMAGIC(bstate->bs_sv), arg); - break; - } - case INSN_XMG_STASH: /* 67 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&SvSTASH(bstate->bs_sv) = arg; - break; - } - case INSN_GV_FETCHPV: /* 68 */ - { - strconst arg; - BGET_strconst(arg); - BSET_gv_fetchpv(bstate->bs_sv, arg); - break; - } - case INSN_GV_STASHPV: /* 69 */ - { - strconst arg; - BGET_strconst(arg); - BSET_gv_stashpv(bstate->bs_sv, arg); - break; - } - case INSN_GP_SV: /* 70 */ - { - svindex arg; - BGET_svindex(arg); - GvSV(bstate->bs_sv) = arg; - break; - } - case INSN_GP_REFCNT: /* 71 */ - { - U32 arg; - BGET_U32(arg); - GvREFCNT(bstate->bs_sv) = arg; - break; - } - case INSN_GP_REFCNT_ADD: /* 72 */ - { - I32 arg; - BGET_I32(arg); - BSET_gp_refcnt_add(GvREFCNT(bstate->bs_sv), arg); - break; - } - case INSN_GP_AV: /* 73 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&GvAV(bstate->bs_sv) = arg; - break; - } - case INSN_GP_HV: /* 74 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&GvHV(bstate->bs_sv) = arg; - break; - } - case INSN_GP_CV: /* 75 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&GvCV(bstate->bs_sv) = arg; - break; - } - case INSN_GP_FILE: /* 76 */ - { - pvindex arg; - BGET_pvindex(arg); - GvFILE(bstate->bs_sv) = arg; - break; - } - case INSN_GP_IO: /* 77 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&GvIOp(bstate->bs_sv) = arg; - break; - } - case INSN_GP_FORM: /* 78 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&GvFORM(bstate->bs_sv) = arg; - break; - } - case INSN_GP_CVGEN: /* 79 */ - { - U32 arg; - BGET_U32(arg); - GvCVGEN(bstate->bs_sv) = arg; - break; - } - case INSN_GP_LINE: /* 80 */ - { - line_t arg; - BGET_U16(arg); - GvLINE(bstate->bs_sv) = arg; - break; - } - case INSN_GP_SHARE: /* 81 */ - { - svindex arg; - BGET_svindex(arg); - BSET_gp_share(bstate->bs_sv, arg); - break; - } - case INSN_XGV_FLAGS: /* 82 */ - { - U8 arg; - BGET_U8(arg); - GvFLAGS(bstate->bs_sv) = arg; - break; - } - case INSN_OP_NEXT: /* 83 */ - { - opindex arg; - BGET_opindex(arg); - PL_op->op_next = arg; - break; - } - case INSN_OP_SIBLING: /* 84 */ - { - opindex arg; - BGET_opindex(arg); - PL_op->op_sibling = arg; - break; - } - case INSN_OP_PPADDR: /* 85 */ - { - strconst arg; - BGET_strconst(arg); - BSET_op_ppaddr(PL_op->op_ppaddr, arg); - break; - } - case INSN_OP_TARG: /* 86 */ - { - PADOFFSET arg; - BGET_U32(arg); - PL_op->op_targ = arg; - break; - } - case INSN_OP_TYPE: /* 87 */ - { - OPCODE arg; - BGET_U16(arg); - BSET_op_type(PL_op, arg); - break; - } - case INSN_OP_SEQ: /* 88 */ - { - U16 arg; - BGET_U16(arg); - PL_op->op_seq = arg; - break; - } - case INSN_OP_FLAGS: /* 89 */ - { - U8 arg; - BGET_U8(arg); - PL_op->op_flags = arg; - break; - } - case INSN_OP_PRIVATE: /* 90 */ - { - U8 arg; - BGET_U8(arg); - PL_op->op_private = arg; - break; - } - case INSN_OP_FIRST: /* 91 */ - { - opindex arg; - BGET_opindex(arg); - cUNOP->op_first = arg; - break; - } - case INSN_OP_LAST: /* 92 */ - { - opindex arg; - BGET_opindex(arg); - cBINOP->op_last = arg; - break; - } - case INSN_OP_OTHER: /* 93 */ - { - opindex arg; - BGET_opindex(arg); - cLOGOP->op_other = arg; - break; - } - case INSN_OP_PMREPLROOT: /* 94 */ - { - opindex arg; - BGET_opindex(arg); - cPMOP->op_pmreplroot = arg; - break; - } - case INSN_OP_PMREPLROOTGV: /* 95 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&cPMOP->op_pmreplroot = arg; - break; - } - case INSN_OP_PMREPLSTART: /* 96 */ - { - opindex arg; - BGET_opindex(arg); - cPMOP->op_pmreplstart = arg; - break; - } - case INSN_OP_PMNEXT: /* 97 */ - { - opindex arg; - BGET_opindex(arg); - *(OP**)&cPMOP->op_pmnext = arg; - break; - } - case INSN_PREGCOMP: /* 98 */ - { - pvcontents arg; - BGET_pvcontents(arg); - BSET_pregcomp(PL_op, arg); - break; - } - case INSN_OP_PMFLAGS: /* 99 */ - { - U16 arg; - BGET_U16(arg); - cPMOP->op_pmflags = arg; - break; - } - case INSN_OP_PMPERMFLAGS: /* 100 */ - { - U16 arg; - BGET_U16(arg); - cPMOP->op_pmpermflags = arg; - break; - } - case INSN_OP_SV: /* 101 */ - { - svindex arg; - BGET_svindex(arg); - cSVOP->op_sv = arg; - break; - } - case INSN_OP_PADIX: /* 102 */ - { - PADOFFSET arg; - BGET_U32(arg); - cPADOP->op_padix = arg; - break; - } - case INSN_OP_PV: /* 103 */ - { - pvcontents arg; - BGET_pvcontents(arg); - cPVOP->op_pv = arg; - break; - } - case INSN_OP_PV_TR: /* 104 */ - { - op_tr_array arg; - BGET_op_tr_array(arg); - cPVOP->op_pv = arg; - break; - } - case INSN_OP_REDOOP: /* 105 */ - { - opindex arg; - BGET_opindex(arg); - cLOOP->op_redoop = arg; - break; - } - case INSN_OP_NEXTOP: /* 106 */ - { - opindex arg; - BGET_opindex(arg); - cLOOP->op_nextop = arg; - break; - } - case INSN_OP_LASTOP: /* 107 */ - { - opindex arg; - BGET_opindex(arg); - cLOOP->op_lastop = arg; - break; - } - case INSN_COP_LABEL: /* 108 */ - { - pvindex arg; - BGET_pvindex(arg); - cCOP->cop_label = arg; - break; - } - case INSN_COP_STASHPV: /* 109 */ - { - pvindex arg; - BGET_pvindex(arg); - BSET_cop_stashpv(cCOP, arg); - break; - } - case INSN_COP_FILE: /* 110 */ - { - pvindex arg; - BGET_pvindex(arg); - BSET_cop_file(cCOP, arg); - break; - } - case INSN_COP_SEQ: /* 111 */ - { - U32 arg; - BGET_U32(arg); - cCOP->cop_seq = arg; - break; - } - case INSN_COP_ARYBASE: /* 112 */ - { - I32 arg; - BGET_I32(arg); - cCOP->cop_arybase = arg; - break; - } - case INSN_COP_LINE: /* 113 */ - { - line_t arg; - BGET_U16(arg); - BSET_cop_line(cCOP, arg); - break; - } - case INSN_COP_WARNINGS: /* 114 */ - { - svindex arg; - BGET_svindex(arg); - cCOP->cop_warnings = arg; - break; - } - case INSN_MAIN_START: /* 115 */ - { - opindex arg; - BGET_opindex(arg); - PL_main_start = arg; - break; - } - case INSN_MAIN_ROOT: /* 116 */ - { - opindex arg; - BGET_opindex(arg); - PL_main_root = arg; - break; - } - case INSN_CURPAD: /* 117 */ - { - svindex arg; - BGET_svindex(arg); - BSET_curpad(PL_curpad, arg); - break; - } - case INSN_PUSH_BEGIN: /* 118 */ - { - svindex arg; - BGET_svindex(arg); - BSET_push_begin(PL_beginav, arg); - break; - } - case INSN_PUSH_INIT: /* 119 */ - { - svindex arg; - BGET_svindex(arg); - BSET_push_init(PL_initav, arg); - break; - } - case INSN_PUSH_END: /* 120 */ - { - svindex arg; - BGET_svindex(arg); - BSET_push_end(PL_endav, arg); - break; - } - default: - Perl_croak(aTHX_ "Illegal bytecode instruction %d\n", insn); - /* NOTREACHED */ - } - } -} diff --git a/contrib/perl5/ext/ByteLoader/byterun.h b/contrib/perl5/ext/ByteLoader/byterun.h deleted file mode 100644 index f074f2d..0000000 --- a/contrib/perl5/ext/ByteLoader/byterun.h +++ /dev/null @@ -1,168 +0,0 @@ -/* - * Copyright (c) 1996-1999 Malcolm Beattie - * - * You may distribute under the terms of either the GNU General Public - * License or the Artistic License, as specified in the README file. - * - */ -/* - * This file is autogenerated from bytecode.pl. Changes made here will be lost. - */ -struct byteloader_fdata { - SV *datasv; - int next_out; - int idx; -}; - -struct byteloader_state { - struct byteloader_fdata *bs_fdata; - SV *bs_sv; - void **bs_obj_list; - int bs_obj_list_fill; - XPV bs_pv; - int bs_iv_overflows; -}; - -int bl_getc(struct byteloader_fdata *); -int bl_read(struct byteloader_fdata *, char *, size_t, size_t); -extern void byterun(pTHXo_ struct byteloader_state *); - -enum { - INSN_RET, /* 0 */ - INSN_LDSV, /* 1 */ - INSN_LDOP, /* 2 */ - INSN_STSV, /* 3 */ - INSN_STOP, /* 4 */ - INSN_STPV, /* 5 */ - INSN_LDSPECSV, /* 6 */ - INSN_NEWSV, /* 7 */ - INSN_NEWOP, /* 8 */ - INSN_NEWOPN, /* 9 */ - INSN_NOP, /* 10 */ - INSN_NEWPV, /* 11 */ - INSN_PV_CUR, /* 12 */ - INSN_PV_FREE, /* 13 */ - INSN_SV_UPGRADE, /* 14 */ - INSN_SV_REFCNT, /* 15 */ - INSN_SV_REFCNT_ADD, /* 16 */ - INSN_SV_FLAGS, /* 17 */ - INSN_XRV, /* 18 */ - INSN_XPV, /* 19 */ - INSN_XIV32, /* 20 */ - INSN_XIV64, /* 21 */ - INSN_XNV, /* 22 */ - INSN_XLV_TARGOFF, /* 23 */ - INSN_XLV_TARGLEN, /* 24 */ - INSN_XLV_TARG, /* 25 */ - INSN_XLV_TYPE, /* 26 */ - INSN_XBM_USEFUL, /* 27 */ - INSN_XBM_PREVIOUS, /* 28 */ - INSN_XBM_RARE, /* 29 */ - INSN_XFM_LINES, /* 30 */ - INSN_XIO_LINES, /* 31 */ - INSN_XIO_PAGE, /* 32 */ - INSN_XIO_PAGE_LEN, /* 33 */ - INSN_XIO_LINES_LEFT, /* 34 */ - INSN_COMMENT, /* 35 */ - INSN_XIO_TOP_NAME, /* 36 */ - INSN_XIO_TOP_GV, /* 37 */ - INSN_XIO_FMT_NAME, /* 38 */ - INSN_XIO_FMT_GV, /* 39 */ - INSN_XIO_BOTTOM_NAME, /* 40 */ - INSN_XIO_BOTTOM_GV, /* 41 */ - INSN_XIO_SUBPROCESS, /* 42 */ - INSN_XIO_TYPE, /* 43 */ - INSN_XIO_FLAGS, /* 44 */ - INSN_XCV_STASH, /* 45 */ - INSN_XCV_START, /* 46 */ - INSN_XCV_ROOT, /* 47 */ - INSN_XCV_GV, /* 48 */ - INSN_XCV_FILE, /* 49 */ - INSN_XCV_DEPTH, /* 50 */ - INSN_XCV_PADLIST, /* 51 */ - INSN_XCV_OUTSIDE, /* 52 */ - INSN_XCV_FLAGS, /* 53 */ - INSN_AV_EXTEND, /* 54 */ - INSN_AV_PUSH, /* 55 */ - INSN_XAV_FILL, /* 56 */ - INSN_XAV_MAX, /* 57 */ - INSN_XAV_FLAGS, /* 58 */ - INSN_XHV_RITER, /* 59 */ - INSN_XHV_NAME, /* 60 */ - INSN_HV_STORE, /* 61 */ - INSN_SV_MAGIC, /* 62 */ - INSN_MG_OBJ, /* 63 */ - INSN_MG_PRIVATE, /* 64 */ - INSN_MG_FLAGS, /* 65 */ - INSN_MG_PV, /* 66 */ - INSN_XMG_STASH, /* 67 */ - INSN_GV_FETCHPV, /* 68 */ - INSN_GV_STASHPV, /* 69 */ - INSN_GP_SV, /* 70 */ - INSN_GP_REFCNT, /* 71 */ - INSN_GP_REFCNT_ADD, /* 72 */ - INSN_GP_AV, /* 73 */ - INSN_GP_HV, /* 74 */ - INSN_GP_CV, /* 75 */ - INSN_GP_FILE, /* 76 */ - INSN_GP_IO, /* 77 */ - INSN_GP_FORM, /* 78 */ - INSN_GP_CVGEN, /* 79 */ - INSN_GP_LINE, /* 80 */ - INSN_GP_SHARE, /* 81 */ - INSN_XGV_FLAGS, /* 82 */ - INSN_OP_NEXT, /* 83 */ - INSN_OP_SIBLING, /* 84 */ - INSN_OP_PPADDR, /* 85 */ - INSN_OP_TARG, /* 86 */ - INSN_OP_TYPE, /* 87 */ - INSN_OP_SEQ, /* 88 */ - INSN_OP_FLAGS, /* 89 */ - INSN_OP_PRIVATE, /* 90 */ - INSN_OP_FIRST, /* 91 */ - INSN_OP_LAST, /* 92 */ - INSN_OP_OTHER, /* 93 */ - INSN_OP_PMREPLROOT, /* 94 */ - INSN_OP_PMREPLROOTGV, /* 95 */ - INSN_OP_PMREPLSTART, /* 96 */ - INSN_OP_PMNEXT, /* 97 */ - INSN_PREGCOMP, /* 98 */ - INSN_OP_PMFLAGS, /* 99 */ - INSN_OP_PMPERMFLAGS, /* 100 */ - INSN_OP_SV, /* 101 */ - INSN_OP_PADIX, /* 102 */ - INSN_OP_PV, /* 103 */ - INSN_OP_PV_TR, /* 104 */ - INSN_OP_REDOOP, /* 105 */ - INSN_OP_NEXTOP, /* 106 */ - INSN_OP_LASTOP, /* 107 */ - INSN_COP_LABEL, /* 108 */ - INSN_COP_STASHPV, /* 109 */ - INSN_COP_FILE, /* 110 */ - INSN_COP_SEQ, /* 111 */ - INSN_COP_ARYBASE, /* 112 */ - INSN_COP_LINE, /* 113 */ - INSN_COP_WARNINGS, /* 114 */ - INSN_MAIN_START, /* 115 */ - INSN_MAIN_ROOT, /* 116 */ - INSN_CURPAD, /* 117 */ - INSN_PUSH_BEGIN, /* 118 */ - INSN_PUSH_INIT, /* 119 */ - INSN_PUSH_END, /* 120 */ - MAX_INSN = 120 -}; - -enum { - OPt_OP, /* 0 */ - OPt_UNOP, /* 1 */ - OPt_BINOP, /* 2 */ - OPt_LOGOP, /* 3 */ - OPt_LISTOP, /* 4 */ - OPt_PMOP, /* 5 */ - OPt_SVOP, /* 6 */ - OPt_PADOP, /* 7 */ - OPt_PVOP, /* 8 */ - OPt_LOOP, /* 9 */ - OPt_COP /* 10 */ -}; - diff --git a/contrib/perl5/ext/ByteLoader/hints/sunos.pl b/contrib/perl5/ext/ByteLoader/hints/sunos.pl deleted file mode 100644 index 3faf498..0000000 --- a/contrib/perl5/ext/ByteLoader/hints/sunos.pl +++ /dev/null @@ -1,2 +0,0 @@ -$self->{CCFLAGS} = $Config{ccflags} . ' -DNEED_FGETC_PROTOTYPE -DNEED_FREAD_PROTOTYPE'; - |