diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-19 17:39:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2004-06-19 17:39:35 +0000 |
| commit | ab4160d21bcb9164ab15c0c461f41b3de55d73ac (patch) | |
| tree | 7909e49ccac38d02d4355852e0cb830566ca1c24 /asmcomp | |
| parent | 63b506d2cda0959f9811f0831580d8623c2511bc (diff) | |
| download | ocaml-ab4160d21bcb9164ab15c0c461f41b3de55d73ac.tar.gz | |
Typos
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6424 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp')
| -rw-r--r-- | asmcomp/power/emit.mlp | 2 | ||||
| -rw-r--r-- | asmcomp/power/proc.ml | 7 |
2 files changed, 2 insertions, 7 deletions
diff --git a/asmcomp/power/emit.mlp b/asmcomp/power/emit.mlp index 7a04885cbf..d35cb242c7 100644 --- a/asmcomp/power/emit.mlp +++ b/asmcomp/power/emit.mlp @@ -882,8 +882,6 @@ let data l = (* Beginning / end of an assembly file *) let begin_assembly() = - Hashtbl.clear symbol_constants; - Hashtbl.clear float_constants; defined_functions := StringSet.empty; external_functions := StringSet.empty; num_jumptbl_entries := 0; diff --git a/asmcomp/power/proc.ml b/asmcomp/power/proc.ml index 4c1d96dfd5..445770a114 100644 --- a/asmcomp/power/proc.ml +++ b/asmcomp/power/proc.ml @@ -128,11 +128,8 @@ let calling_conventions ofs := !ofs + size_float end done; - let final_ofs = if toc && !ofs > 0 then !ofs + 32 else !ofs in - (loc, Misc.align final_ofs 16) - (* Keep stack 16-aligned. - Under PowerOpen, keep a free 32 byte linkage area at the bottom - if we need to stack-allocate some arguments. *) + (loc, Misc.align !ofs 16) + (* Keep stack 16-aligned. *) let incoming ofs = Incoming ofs let outgoing ofs = Outgoing ofs |