summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorXavier Leroy <xavier.leroy@inria.fr>2000-02-07 10:23:10 +0000
committerXavier Leroy <xavier.leroy@inria.fr>2000-02-07 10:23:10 +0000
commit1442bc4dd8865d43110fcb99ef52e8fd7c1cd098 (patch)
tree9d75309889afc8eb1cf1b04c44c457cf6bb6dcf0
parentd518a3348590be05e13b0c23bee0f8a81715b8cf (diff)
23 registres entiers, pas 24
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2791 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r--asmcomp/power/proc.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/asmcomp/power/proc.ml b/asmcomp/power/proc.ml
index 846a3c03d..032e29b4b 100644
--- a/asmcomp/power/proc.ml
+++ b/asmcomp/power/proc.ml
@@ -85,8 +85,8 @@ let rotate_registers = true
(* Representation of hard registers by pseudo-registers *)
let hard_int_reg =
- let v = Array.create 24 Reg.dummy in
- for i = 0 to 23 do v.(i) <- Reg.at_location Int (Reg i) done; v
+ let v = Array.create 23 Reg.dummy in
+ for i = 0 to 22 do v.(i) <- Reg.at_location Int (Reg i) done; v
let hard_float_reg =
let v = Array.create 31 Reg.dummy in