Fixed issue with SFT
This commit is contained in:
parent
6337990fe0
commit
05e48c35ce
|
@ -125,7 +125,7 @@ uxn_eval(Uxn *u, Uint16 vec)
|
||||||
case 0x1c: /* AND */ a = pop(u->src), b = pop(u->src); push(u->src, b & a); break;
|
case 0x1c: /* AND */ a = pop(u->src), b = pop(u->src); push(u->src, b & a); break;
|
||||||
case 0x1d: /* ORA */ a = pop(u->src), b = pop(u->src); push(u->src, b | a); break;
|
case 0x1d: /* ORA */ a = pop(u->src), b = pop(u->src); push(u->src, b | a); break;
|
||||||
case 0x1e: /* EOR */ a = pop(u->src), b = pop(u->src); push(u->src, b ^ a); break;
|
case 0x1e: /* EOR */ a = pop(u->src), b = pop(u->src); push(u->src, b ^ a); break;
|
||||||
case 0x1f: /* SFT */ a = pop8(u->src), b = pop(u->src); push(u->src, b >> (a & 0x07) << ((a & 0x70) >> 4)); break;
|
case 0x1f: /* SFT */ a = pop8(u->src), b = pop(u->src); push(u->src, b >> (a & 0x0f) << ((a & 0xf0) >> 4)); break;
|
||||||
}
|
}
|
||||||
if(u->wst.error)
|
if(u->wst.error)
|
||||||
return uxn_halt(u, u->wst.error, "Working-stack", instr);
|
return uxn_halt(u, u->wst.error, "Working-stack", instr);
|
||||||
|
|
Loading…
Reference in New Issue