diff options
| -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 7a04885cb..d35cb242c 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 4c1d96dfd..445770a11 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 |