Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

cmmgen.ml: minor style fix 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15823 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Gabriel Scherer 2015-02-08 10:00:16 +00:00
parent d48a44e316
commit 7a9e588eb8
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
asmcomp/cmmgen.ml
View File

@ -90,7 +90,7 @@ let rec add_const c n =
| Cconst_int x when no_overflow_add x n -> Cconst_int (x + n)
| Cop(Caddi, ([Cconst_int x; c] | [c; Cconst_int x])) when no_overflow_add n x ->
let d = n + x in
if d == 0 then c else Cop(Caddi, [c; Cconst_int d])
if d = 0 then c else Cop(Caddi, [c; Cconst_int d])
| Cop(Csubi, [Cconst_int x; c]) when no_overflow_add n x ->
Cop(Csubi, [Cconst_int (n + x); c])
| Cop(Csubi, [c; Cconst_int x]) when no_overflow_sub n x ->