diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-07 09:36:54 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-05-07 09:36:54 +0000 |
| commit | be79122e11be62038a2c62ccb8e940e8401f04cf (patch) | |
| tree | d9d6408bab8bb912bd3e3511782f6f11b30028e6 | |
| parent | 2577cd2acbab35ed459e229675f61d77d01b5a30 (diff) | |
MAJ pour OCaml
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@797 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/emit_power.mlp | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/asmcomp/emit_power.mlp b/asmcomp/emit_power.mlp index d0dd00e67..b187962aa 100644 --- a/asmcomp/emit_power.mlp +++ b/asmcomp/emit_power.mlp @@ -51,10 +51,10 @@ let frame_size () = (if !contains_calls then 4 else 0) in (* The return address *) Misc.align size 8 -let slot_offset loc class = +let slot_offset loc cls = match loc with Local n -> - if class = 0 + if cls = 0 then 24 + !stack_offset + num_stack_slots.(1) * 8 + n * 4 else 24 + !stack_offset + n * 8 | Incoming n -> frame_size() + n @@ -179,9 +179,9 @@ let label_constant table constant = Hashtbl.add table constant lbl; lbl -let symbol_constants = (Hashtbl.new 17 : (string, int) Hashtbl.t) -let float_constants = (Hashtbl.new 11 : (string, int) Hashtbl.t) -let label_constants = (Hashtbl.new 7 : (int, int) Hashtbl.t) +let symbol_constants = (Hashtbl.create 17 : (string, int) Hashtbl.t) +let float_constants = (Hashtbl.create 11 : (string, int) Hashtbl.t) +let label_constants = (Hashtbl.create 7 : (int, int) Hashtbl.t) let label_symbol s = label_constant symbol_constants s let label_float s = label_constant float_constants s |