From ebe91da7fe6e69317e93f0e181d3221eeb731daf Mon Sep 17 00:00:00 2001 From: Quentin Carbonneaux Date: Sat, 4 Jul 2015 17:58:29 -0400 Subject: cosmetics --- lisc/lisc.h | 3 +-- lisc/parse.c | 36 ++++++++++++++++++------------------ 2 files changed, 19 insertions(+), 20 deletions(-) diff --git a/lisc/lisc.h b/lisc/lisc.h index b9e5093..dade1c8 100644 --- a/lisc/lisc.h +++ b/lisc/lisc.h @@ -1,5 +1,4 @@ #include -#include #include #include @@ -38,7 +37,7 @@ enum { RMask = 1, RShift = 1, - NRefs = USHRT_MAX>>RShift, + NRefs = ((ushort)-1)>>RShift, }; #define TEMP(x) (((x)<name, name); + if (!bmap[i].blk) { + assert(bmap[i].name[0] == 0); + strcpy(bmap[i].name, name); + bmap[i].blk = blocka(); + strcpy(bmap[i].blk->name, name); } - return blks[i].blk; + return bmap[i].blk; } static void @@ -305,8 +305,8 @@ parseline(PState ps) case TLbl: b = findblk(tokval.str); if (curb) { - curb->np = curp - phis; - curb->ni = curi - inss; + curb->np = curp - phi; + curb->ni = curi - ins; curb->ps = alloc(curb->np * sizeof(Phi)); curb->is = alloc(curb->ni * sizeof(Ins)); memcpy(curb->ps, curp, curb->np * sizeof(Phi)); @@ -400,7 +400,7 @@ parseline(PState ps) if (j >= 0 && i != j) err("invalid arity"); if (op != -1) { - if (curi - inss >= NInss) + if (curi - ins >= NInss) err("too many instructions in block"); curi->to = r; curi->l = args[0]; @@ -408,7 +408,7 @@ parseline(PState ps) curi++; return PIns; } else { - if (curp - phis >= NPhis) + if (curp - phi >= NPhis) err("too many phis in block"); curp->to = r; memcpy(curp->args, args, i * sizeof(Ref)); @@ -427,8 +427,8 @@ parsefn(FILE *f) inf = f; for (i=0; i