diff options
| author | Gabriel Scherer <gabriel.scherer@gmail.com> | 2015-02-08 10:00:16 +0000 |
|---|---|---|
| committer | Gabriel Scherer <gabriel.scherer@gmail.com> | 2015-02-08 10:00:16 +0000 |
| commit | 7a9e588eb8b8d5f79588afb89398fdbd65833478 (patch) | |
| tree | 3f40d9d128adb3a423d7a76a9aaf9cfc9c42591f | |
| parent | d48a44e3169e31ffcad4535e07ee63c49b4264be (diff) | |
| download | ocaml-7a9e588eb8b8d5f79588afb89398fdbd65833478.tar.gz | |
cmmgen.ml: minor style fix
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15823 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/cmmgen.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/cmmgen.ml b/asmcomp/cmmgen.ml index a7f9dd1004..a76cad5901 100644 --- a/asmcomp/cmmgen.ml +++ b/asmcomp/cmmgen.ml @@ -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 -> |