X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=ext%2FB%2FB.xs;h=39126408ba2dc370788587fe816069e350b91dcc;hb=2814eb746a9281fd66cc5c45be3b127463ec07c7;hp=f428fbdde31912ef146713ca29c047536ac95d82;hpb=db8ddb421f6758f0b11b38073916c1366f5b4515;p=p5sagit%2Fp5-mst-13.2.git diff --git a/ext/B/B.xs b/ext/B/B.xs index f428fbd..3912640 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -416,9 +416,9 @@ oplist(pTHX_ OP *o, SV **SP) { for(; o; o = o->op_next) { SV *opsv; - if (o->op_seq == 0) + if (o->op_opt == 0) break; - o->op_seq = 0; + o->op_opt = 0; opsv = sv_newmortal(); sv_setiv(newSVrv(opsv, cc_opclassname(aTHX_ (OP*)o)), PTR2IV(o)); XPUSHs(opsv); @@ -714,7 +714,8 @@ threadsv_names() #define OP_desc(o) PL_op_desc[o->op_type] #define OP_targ(o) o->op_targ #define OP_type(o) o->op_type -#define OP_seq(o) o->op_seq +#define OP_opt(o) o->op_opt +#define OP_static(o) o->op_static #define OP_flags(o) o->op_flags #define OP_private(o) o->op_private @@ -771,8 +772,12 @@ U16 OP_type(o) B::OP o -U16 -OP_seq(o) +U8 +OP_opt(o) + B::OP o + +U8 +OP_static(o) B::OP o U8