fixes #6255, add system.ashr arithmetic right shift (#8547)

This commit is contained in:
andri lim 2018-08-07 23:41:30 +07:00 • committed by Andreas Rumpf
commit 4d5cce9882
13 changed files with 95 additions and 12 deletions

View file

@ -752,6 +752,9 @@ proc rawExecute(c: PCtx, start: int, tos: PStackFrame): TFullReg =
of opcShlInt:
decodeBC(rkInt)
regs[ra].intVal = regs[rb].intVal shl regs[rc].intVal
of opcAshrInt:
decodeBC(rkInt)
regs[ra].intVal = ashr(regs[rb].intVal, regs[rc].intVal)
of opcBitandInt:
decodeBC(rkInt)
regs[ra].intVal = regs[rb].intVal and regs[rc].intVal