mirror of
git://c9x.me/qbe.git
synced 2026-04-06 18:39:48 +00:00
cleanup overflow computation
This commit is contained in:
parent
0aa0002337
commit
20df24da75
5
lo2.ml
5
lo2.ml
@ -467,8 +467,9 @@ let codegen (p: mprog): string =
|
|||||||
outb rex; outb op; outb (modrm r m) in
|
outb rex; outb op; outb (modrm r m) in
|
||||||
|
|
||||||
let slot s =
|
let slot s =
|
||||||
assert (s*8<256);
|
let c = ((-1-s) * 8) land 0xff in
|
||||||
((-1-s) * 8) land 0xff in
|
assert (c < 256);
|
||||||
|
c in
|
||||||
|
|
||||||
let move l l1 = match l, l1 with
|
let move l l1 = match l, l1 with
|
||||||
| (LReg _ as r), LCon k ->
|
| (LReg _ as r), LCon k ->
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user