sam/libqbe
1
0
Fork 0
Code Issues Pull requests Projects Releases 1 Packages Wiki Activity Actions

cleanup overflow computation

Browse source
This commit is contained in:
Quentin Carbonneaux 2015-04-05 15:23:24 -04:00
parent 0aa0002337
commit 20df24da75
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lo2.ml
View file

@ -467,8 +467,9 @@ let codegen (p: mprog): string =
outb rex; outb op; outb (modrm r m) in
let slot s =
assert (s*8<256);
((-1-s) * 8) land 0xff in
let c = ((-1-s) * 8) land 0xff in
assert (c < 256);
c in
let move l l1 = match l, l1 with
| (LReg _ as r), LCon k ->