X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=byterun.h;h=6e559ef4ff9cc110b04cc2cda52e668e62ea8e0e;hb=1d5472a96cdafb6d0b947d16fd3e5f3ddac8a37b;hp=d5ff00bdbe9048ede0c275f28b35a6b4eea30705;hpb=51aa15f38ed061e162eb5fdd50db6c15d839cf32;p=p5sagit%2Fp5-mst-13.2.git diff --git a/byterun.h b/byterun.h index d5ff00b..6e559ef 100644 --- a/byterun.h +++ b/byterun.h @@ -15,12 +15,11 @@ struct bytestream { int (*fread)(char *, size_t, size_t, void*); void (*freadpv)(U32, void*); }; -void byterun _((struct bytestream)); -/* #else -void byterun _((PerlIO *)); */ #endif /* INDIRECT_BGET_MACROS */ +#ifndef PERL_OBJECT void *bset_obj_store _((void *, I32)); +#endif enum { INSN_RET, /* 0 */ @@ -180,8 +179,8 @@ EXT int optype_size[] ; #define INIT_SPECIALSV_LIST STMT_START { \ - specialsv_list[0] = Nullsv; \ - specialsv_list[1] = &sv_undef; \ - specialsv_list[2] = &sv_yes; \ - specialsv_list[3] = &sv_no; \ + 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