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

MAJ pour OCaml 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@797 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1996-05-07 09:36:54 +00:00
parent 2577cd2acb
commit be79122e11
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asmcomp/emit_power.mlp
View File

@ -51,10 +51,10 @@ let frame_size () =
(if !contains_calls then 4 else 0) in (* The return address *) (if !contains_calls then 4 else 0) in (* The return address *)
Misc.align size 8 Misc.align size 8
let slot_offset loc class = let slot_offset loc cls =
match loc with match loc with
Local n -> Local n ->
if class = 0 if cls = 0
then 24 + !stack_offset + num_stack_slots.(1) * 8 + n * 4 then 24 + !stack_offset + num_stack_slots.(1) * 8 + n * 4
else 24 + !stack_offset + n * 8 else 24 + !stack_offset + n * 8
| Incoming n -> frame_size() + n | Incoming n -> frame_size() + n
@ -179,9 +179,9 @@ let label_constant table constant =
Hashtbl.add table constant lbl; Hashtbl.add table constant lbl;
lbl lbl
let symbol_constants = (Hashtbl.new 17 : (string, int) Hashtbl.t) let symbol_constants = (Hashtbl.create 17 : (string, int) Hashtbl.t)
let float_constants = (Hashtbl.new 11 : (string, int) Hashtbl.t) let float_constants = (Hashtbl.create 11 : (string, int) Hashtbl.t)
let label_constants = (Hashtbl.new 7 : (int, int) Hashtbl.t) let label_constants = (Hashtbl.create 7 : (int, int) Hashtbl.t)
let label_symbol s = label_constant symbol_constants s let label_symbol s = label_constant symbol_constants s
let label_float s = label_constant float_constants s let label_float s = label_constant float_constants s