diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 2006-09-21 09:12:17 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 2006-09-21 09:12:17 +0000 |
| commit | 840e64f9b15d5f34b44ffb7417180f3cd030163b (patch) | |
| tree | d9d5ebaa136d0820ccb9b90c22577cab9c0b689e | |
| parent | fd1109cbb724ade81380969f18935d4ddf92743f (diff) | |
PR#4110: error in computation of required stack size in case #arguments > 16
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7628 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/i386/proc.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/asmcomp/i386/proc.ml b/asmcomp/i386/proc.ml index a66667e3e..1a6150f4b 100644 --- a/asmcomp/i386/proc.ml +++ b/asmcomp/i386/proc.ml @@ -124,7 +124,7 @@ let calling_conventions first_int last_int first_float last_float make_stack ofs := !ofs + size_float end done; - (loc, Misc.align stack_alignment (max 0 !ofs)) + (loc, Misc.align (max 0 !ofs) stack_alignment) let incoming ofs = Incoming ofs let outgoing ofs = Outgoing ofs |