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-0dff7051ff02master
parent
894af5c4be
commit
cf008f2be3
|
@ -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 *)
|
||||
|
|
Loading…
Reference in New Issue