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

Erreur dans Nativeint.cmp 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1324 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-03-05 15:35:50 +00:00
parent 47e3d97f99
commit b7edfb670f
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
asmcomp/emit_alpha.mlp
View File

@ -176,8 +176,7 @@ let rec instr_uses_gp i =
match i.desc with
Lend -> false
| Lop(Iconst_int n) ->
if Nativeint.cmp n (Nativeint.from (-0x8000000)) < 0
|| Nativeint.cmp n (Nativeint.from 0x7FFFFFFF) > 0
if Nativeint.cmp n (-0x8000000) < 0 || Nativeint.cmp n 0x7FFFFFFF > 0
then true else instr_uses_gp i.next
| Lop(Iconst_float s) -> true
| Lop(Iconst_symbol s) -> true

3
asmcomp/emit_hppa.mlp
View File

@ -147,8 +147,7 @@ let emit_imports () =
let is_offset n = (n < 8192) && (n >= -8192) (* 14 bits *)
let is_offset_native n =
Nativeint.cmp n (Nativeint.from 8192) < 0 &&
Nativeint.cmp n (Nativeint.from -8192) >= 0
Nativeint.cmp n 8192 < 0 && Nativeint.cmp n (-8192) >= 0
let emit_load instr addr arg dst =
match addr with

2
asmcomp/emit_power.mlp
View File

@ -329,7 +329,7 @@ let rec emit_instr i dslot =
` li {emit_reg i.res.(0)}, {emit_nativeint n}\n`
else begin
` lis {emit_reg i.res.(0)}, {emit_int(nativehigh n)}\n`;
if low n <> 0 then
if nativelow n <> 0 then
` ori {emit_reg i.res.(0)}, {emit_reg i.res.(0)}, {emit_int(nativelow n)}\n`
end
| Lop(Iconst_float s) ->