X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FByteLoader%2Fbyterun.h;h=334abe6d55c9fb6977cbcb435abbfb59eaab0f1d;hb=01b509b0993b5dd659665407a96cb80ea8da0cab;hp=17560c858b4b006ef35b7b7acd997eec5acfa724;hpb=57843af05bc7863df9b9bfb6b37e3a29d08532a9;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h index 17560c8..334abe6 100644 --- a/ext/ByteLoader/byterun.h +++ b/ext/ByteLoader/byterun.h @@ -8,133 +8,180 @@ /* * This file is autogenerated from bytecode.pl. Changes made here will be lost. */ -struct bytestream { - void *data; - int (*pfgetc)(void *); - int (*pfread)(char *, size_t, size_t, void *); - void (*pfreadpv)(U32, void *, XPV *); +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; + int bs_ix; + 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 int byterun(pTHX_ struct byteloader_state *); + enum { INSN_RET, /* 0 */ INSN_LDSV, /* 1 */ INSN_LDOP, /* 2 */ INSN_STSV, /* 3 */ INSN_STOP, /* 4 */ - INSN_LDSPECSV, /* 5 */ - INSN_NEWSV, /* 6 */ - INSN_NEWOP, /* 7 */ - INSN_NEWOPN, /* 8 */ - INSN_NEWPV, /* 9 */ + INSN_STPV, /* 5 */ + INSN_LDSPECSV, /* 6 */ + INSN_LDSPECSVX, /* 7 */ + INSN_NEWSV, /* 8 */ + INSN_NEWSVX, /* 9 */ INSN_NOP, /* 10 */ - INSN_PV_CUR, /* 11 */ - INSN_PV_FREE, /* 12 */ - INSN_SV_UPGRADE, /* 13 */ - INSN_SV_REFCNT, /* 14 */ - INSN_SV_REFCNT_ADD, /* 15 */ - INSN_SV_FLAGS, /* 16 */ - INSN_XRV, /* 17 */ - INSN_XPV, /* 18 */ - INSN_XIV32, /* 19 */ - INSN_XIV64, /* 20 */ - INSN_XNV, /* 21 */ - INSN_XLV_TARGOFF, /* 22 */ - INSN_XLV_TARGLEN, /* 23 */ - INSN_XLV_TARG, /* 24 */ - INSN_XLV_TYPE, /* 25 */ - INSN_XBM_USEFUL, /* 26 */ - INSN_XBM_PREVIOUS, /* 27 */ - INSN_XBM_RARE, /* 28 */ - INSN_XFM_LINES, /* 29 */ - INSN_XIO_LINES, /* 30 */ - INSN_XIO_PAGE, /* 31 */ - INSN_XIO_PAGE_LEN, /* 32 */ - INSN_XIO_LINES_LEFT, /* 33 */ - INSN_XIO_TOP_NAME, /* 34 */ + INSN_NEWOP, /* 11 */ + INSN_NEWOPX, /* 12 */ + INSN_NEWOPN, /* 13 */ + INSN_NEWPV, /* 14 */ + INSN_PV_CUR, /* 15 */ + INSN_PV_FREE, /* 16 */ + INSN_SV_UPGRADE, /* 17 */ + INSN_SV_REFCNT, /* 18 */ + INSN_SV_REFCNT_ADD, /* 19 */ + INSN_SV_FLAGS, /* 20 */ + INSN_XRV, /* 21 */ + INSN_XPV, /* 22 */ + INSN_XPV_CUR, /* 23 */ + INSN_XPV_LEN, /* 24 */ + INSN_XIV, /* 25 */ + INSN_XNV, /* 26 */ + INSN_XLV_TARGOFF, /* 27 */ + INSN_XLV_TARGLEN, /* 28 */ + INSN_XLV_TARG, /* 29 */ + INSN_XLV_TYPE, /* 30 */ + INSN_XBM_USEFUL, /* 31 */ + INSN_XBM_PREVIOUS, /* 32 */ + INSN_XBM_RARE, /* 33 */ + INSN_XFM_LINES, /* 34 */ INSN_COMMENT, /* 35 */ - INSN_XIO_TOP_GV, /* 36 */ - INSN_XIO_FMT_NAME, /* 37 */ - INSN_XIO_FMT_GV, /* 38 */ - INSN_XIO_BOTTOM_NAME, /* 39 */ - INSN_XIO_BOTTOM_GV, /* 40 */ - INSN_XIO_SUBPROCESS, /* 41 */ - INSN_XIO_TYPE, /* 42 */ - INSN_XIO_FLAGS, /* 43 */ - INSN_XCV_STASH, /* 44 */ - INSN_XCV_START, /* 45 */ - INSN_XCV_ROOT, /* 46 */ - INSN_XCV_GV, /* 47 */ - INSN_XCV_FILE, /* 48 */ - INSN_XCV_DEPTH, /* 49 */ - INSN_XCV_PADLIST, /* 50 */ - INSN_XCV_OUTSIDE, /* 51 */ - INSN_XCV_FLAGS, /* 52 */ - INSN_AV_EXTEND, /* 53 */ - INSN_AV_PUSH, /* 54 */ - INSN_XAV_FILL, /* 55 */ - INSN_XAV_MAX, /* 56 */ - INSN_XAV_FLAGS, /* 57 */ - INSN_XHV_RITER, /* 58 */ - INSN_XHV_NAME, /* 59 */ - INSN_HV_STORE, /* 60 */ - INSN_SV_MAGIC, /* 61 */ - INSN_MG_OBJ, /* 62 */ - INSN_MG_PRIVATE, /* 63 */ - INSN_MG_FLAGS, /* 64 */ - INSN_MG_PV, /* 65 */ - INSN_XMG_STASH, /* 66 */ - INSN_GV_FETCHPV, /* 67 */ - INSN_GV_STASHPV, /* 68 */ - INSN_GP_SV, /* 69 */ - INSN_GP_REFCNT, /* 70 */ - INSN_GP_REFCNT_ADD, /* 71 */ - INSN_GP_AV, /* 72 */ - INSN_GP_HV, /* 73 */ - INSN_GP_CV, /* 74 */ - INSN_GP_FILE, /* 75 */ - INSN_GP_IO, /* 76 */ - INSN_GP_FORM, /* 77 */ - INSN_GP_CVGEN, /* 78 */ - INSN_GP_LINE, /* 79 */ - INSN_GP_SHARE, /* 80 */ - INSN_XGV_FLAGS, /* 81 */ - INSN_OP_NEXT, /* 82 */ - INSN_OP_SIBLING, /* 83 */ - INSN_OP_PPADDR, /* 84 */ - INSN_OP_TARG, /* 85 */ - INSN_OP_TYPE, /* 86 */ - INSN_OP_SEQ, /* 87 */ - INSN_OP_FLAGS, /* 88 */ - INSN_OP_PRIVATE, /* 89 */ - INSN_OP_FIRST, /* 90 */ - INSN_OP_LAST, /* 91 */ - INSN_OP_OTHER, /* 92 */ - INSN_OP_CHILDREN, /* 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_STASH, /* 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 */ - MAX_INSN = 117 + INSN_XIO_LINES, /* 36 */ + INSN_XIO_PAGE, /* 37 */ + INSN_XIO_PAGE_LEN, /* 38 */ + INSN_XIO_LINES_LEFT, /* 39 */ + INSN_XIO_TOP_NAME, /* 40 */ + INSN_XIO_TOP_GV, /* 41 */ + INSN_XIO_FMT_NAME, /* 42 */ + INSN_XIO_FMT_GV, /* 43 */ + INSN_XIO_BOTTOM_NAME, /* 44 */ + INSN_XIO_BOTTOM_GV, /* 45 */ + INSN_XIO_SUBPROCESS, /* 46 */ + INSN_XIO_TYPE, /* 47 */ + INSN_XIO_FLAGS, /* 48 */ + INSN_XCV_XSUBANY, /* 49 */ + INSN_XCV_STASH, /* 50 */ + INSN_XCV_START, /* 51 */ + INSN_XCV_ROOT, /* 52 */ + INSN_XCV_GV, /* 53 */ + INSN_XCV_FILE, /* 54 */ + INSN_XCV_DEPTH, /* 55 */ + INSN_XCV_PADLIST, /* 56 */ + INSN_XCV_OUTSIDE, /* 57 */ + INSN_XCV_OUTSIDE_SEQ, /* 58 */ + INSN_XCV_FLAGS, /* 59 */ + INSN_AV_EXTEND, /* 60 */ + INSN_AV_PUSHX, /* 61 */ + INSN_AV_PUSH, /* 62 */ + INSN_XAV_FILL, /* 63 */ + INSN_XAV_MAX, /* 64 */ + INSN_XAV_FLAGS, /* 65 */ + INSN_XHV_RITER, /* 66 */ + INSN_XHV_NAME, /* 67 */ + INSN_XHV_PMROOT, /* 68 */ + INSN_HV_STORE, /* 69 */ + INSN_SV_MAGIC, /* 70 */ + INSN_MG_OBJ, /* 71 */ + INSN_MG_PRIVATE, /* 72 */ + INSN_MG_FLAGS, /* 73 */ + INSN_MG_NAME, /* 74 */ + INSN_MG_NAMEX, /* 75 */ + INSN_XMG_STASH, /* 76 */ + INSN_GV_FETCHPV, /* 77 */ + INSN_GV_FETCHPVX, /* 78 */ + INSN_GV_STASHPV, /* 79 */ + INSN_GV_STASHPVX, /* 80 */ + INSN_GP_SV, /* 81 */ + INSN_GP_REFCNT, /* 82 */ + INSN_GP_REFCNT_ADD, /* 83 */ + INSN_GP_AV, /* 84 */ + INSN_GP_HV, /* 85 */ + INSN_GP_CV, /* 86 */ + INSN_GP_FILE, /* 87 */ + INSN_GP_IO, /* 88 */ + INSN_GP_FORM, /* 89 */ + INSN_GP_CVGEN, /* 90 */ + INSN_GP_LINE, /* 91 */ + INSN_GP_SHARE, /* 92 */ + INSN_XGV_FLAGS, /* 93 */ + INSN_OP_NEXT, /* 94 */ + INSN_OP_SIBLING, /* 95 */ + INSN_OP_PPADDR, /* 96 */ + INSN_OP_TARG, /* 97 */ + INSN_OP_TYPE, /* 98 */ + INSN_OP_OPT, /* 99 */ + INSN_OP_STATIC, /* 100 */ + INSN_OP_FLAGS, /* 101 */ + INSN_OP_PRIVATE, /* 102 */ + INSN_OP_FIRST, /* 103 */ + INSN_OP_LAST, /* 104 */ + INSN_OP_OTHER, /* 105 */ + INSN_OP_PMREPLROOT, /* 106 */ + INSN_OP_PMREPLSTART, /* 107 */ + INSN_OP_PMNEXT, /* 108 */ + INSN_OP_PMSTASHPV, /* 109 */ + INSN_OP_PMREPLROOTPO, /* 110 */ + INSN_OP_PMSTASH, /* 111 */ + INSN_OP_PMREPLROOTGV, /* 112 */ + INSN_PREGCOMP, /* 113 */ + INSN_OP_PMFLAGS, /* 114 */ + INSN_OP_PMPERMFLAGS, /* 115 */ + INSN_OP_PMDYNFLAGS, /* 116 */ + INSN_OP_SV, /* 117 */ + INSN_OP_PADIX, /* 118 */ + INSN_OP_PV, /* 119 */ + INSN_OP_PV_TR, /* 120 */ + INSN_OP_REDOOP, /* 121 */ + INSN_OP_NEXTOP, /* 122 */ + INSN_OP_LASTOP, /* 123 */ + INSN_COP_LABEL, /* 124 */ + INSN_COP_STASHPV, /* 125 */ + INSN_COP_FILE, /* 126 */ + INSN_COP_STASH, /* 127 */ + INSN_COP_FILEGV, /* 128 */ + INSN_COP_SEQ, /* 129 */ + INSN_COP_ARYBASE, /* 130 */ + INSN_COP_LINE, /* 131 */ + INSN_COP_IO, /* 132 */ + INSN_COP_WARNINGS, /* 133 */ + INSN_MAIN_START, /* 134 */ + INSN_MAIN_ROOT, /* 135 */ + INSN_MAIN_CV, /* 136 */ + INSN_CURPAD, /* 137 */ + INSN_PUSH_BEGIN, /* 138 */ + INSN_PUSH_INIT, /* 139 */ + INSN_PUSH_END, /* 140 */ + INSN_CURSTASH, /* 141 */ + INSN_DEFSTASH, /* 142 */ + INSN_DATA, /* 143 */ + INSN_INCAV, /* 144 */ + INSN_LOAD_GLOB, /* 145 */ + INSN_REGEX_PADAV, /* 146 */ + INSN_DOWARN, /* 147 */ + INSN_COMPPAD_NAME, /* 148 */ + INSN_XGV_STASH, /* 149 */ + INSN_SIGNAL, /* 150 */ + INSN_FORMFEED, /* 151 */ + MAX_INSN = 151 }; enum { @@ -151,11 +198,3 @@ enum { OPt_COP /* 10 */ }; -extern void byterun(pTHXo_ struct bytestream bs); - -#define INIT_SPECIALSV_LIST STMT_START { \ - PL_specialsv_list[0] = Nullsv; \ - PL_specialsv_list[1] = &PL_sv_undef; \ - PL_specialsv_list[2] = &PL_sv_yes; \ - PL_specialsv_list[3] = &PL_sv_no; \ - } STMT_END