Reflecting commit 14950 on version/4.02:

PR#6283: increase alignment to work around a linking error.


git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@14951 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2014-06-04 15:15:58 +00:00
parent 894af5c4be
commit cf008f2be3
1 changed files with 2 additions and 1 deletions

View File

@ -644,7 +644,7 @@ let fundecl fundecl =
call_gc_sites := [];
bound_error_sites := [];
` .text\n`;
` .align 2\n`;
` .align 3\n`;
` .globl {emit_symbol fundecl.fun_name}\n`;
` .type {emit_symbol fundecl.fun_name}, %function\n`;
`{emit_symbol fundecl.fun_name}:\n`;
@ -685,6 +685,7 @@ let emit_item = function
let data l =
` .data\n`;
` .align 3\n`;
List.iter emit_item l
(* Beginning / end of an assembly file *)