oneandonlyvalle/qbe
1
0
Fork 0
mirror of git://c9x.me/qbe.git synced 2026-08-02 15:44:39 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

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 ->