Some bug fixes and minor extensions

This commit is contained in:
ceriel
1987-01-16 13:51:42 +00:00
parent 30820da804
commit 810eb7b0d6
9 changed files with 140 additions and 41 deletions

View File

@@ -55,6 +55,7 @@ onlyreg(argno) {
register bitno;
register short *sp;
if (! argno) argno++;
sp = l_sets[tokpatset[argno-1]].set_val;
for(bitno=nregs;bitno<nregs+ntokens;bitno++)
if (BIT(sp,bitno))
@@ -65,6 +66,7 @@ onlyreg(argno) {
makescratch(argno) {
set_t s;
if (! argno) argno++;
if (tokpatro[argno-1])
error("Instruction destroys %%%d, not allowed here",argno);
s = l_sets[tokpatset[argno-1]];