diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 1999-11-08 15:27:26 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 1999-11-08 15:27:26 +0000 |
| commit | 55df3c20f0f4883ae610470ad4a43e7442f645c9 (patch) | |
| tree | 90e29ecac7ad1f90abc8673e081e34109f122712 /bytecomp | |
| parent | 05f4452887616a2a2a88dacdbfc9c4829f3967b4 (diff) | |
generation de ENVACC4 et suppression de ATOM1..ATOM3
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2476 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'bytecomp')
| -rw-r--r-- | bytecomp/emitcode.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bytecomp/emitcode.ml b/bytecomp/emitcode.ml index 6ade90d71..05090f3ab 100644 --- a/bytecomp/emitcode.ml +++ b/bytecomp/emitcode.ml @@ -159,7 +159,7 @@ let emit_instr = function | Kacc n -> if n < 8 then out(opACC0 + n) else (out opACC; out_int n) | Kenvacc n -> - if n >= 1 && n < 4 + if n >= 1 && n <= 4 then out(opENVACC1 + n - 1) else (out opENVACC; out_int n) | Kpush -> @@ -207,7 +207,7 @@ let emit_instr = function end | Kmakeblock(n, t) -> if n = 0 then - if t < 4 then out (opATOM0 + t) else (out opATOM; out_int t) + if t = 0 then out opATOM0 else (out opATOM; out_int t) else if n < 4 then (out(opMAKEBLOCK1 + n - 1); out_int t) else (out opMAKEBLOCK; out_int n; out_int t) | Kgetfield n -> |