diff options
| -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 |