32 lines
1 KiB
Text
32 lines
1 KiB
Text
$NetBSD: patch-asmcomp_amd64_emit.mlp,v 1.1 2011/08/15 21:19:33 wiz Exp $
|
|
|
|
Fix build with binutils-2.21.
|
|
http://caml.inria.fr/mantis/view.php?id=5237
|
|
|
|
--- asmcomp/amd64/emit.mlp.orig 2010-06-02 08:55:35 +0000
|
|
+++ asmcomp/amd64/emit.mlp
|
|
@@ -688,17 +688,18 @@ let fundecl fundecl =
|
|
emit_all true fundecl.fun_body;
|
|
List.iter emit_call_gc !call_gc_sites;
|
|
emit_call_bound_errors ();
|
|
+ begin match Config.system with
|
|
+ "linux" | "gnu" ->
|
|
+ ` .type {emit_symbol fundecl.fun_name},@function\n`;
|
|
+ ` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
|
|
+ | _ -> ()
|
|
+ end;
|
|
if !float_constants <> [] then begin
|
|
if macosx
|
|
then ` .literal8\n`
|
|
else ` .section .rodata.cst8,\"a\",@progbits\n`;
|
|
List.iter emit_float_constant !float_constants
|
|
- end;
|
|
- match Config.system with
|
|
- "linux" | "gnu" ->
|
|
- ` .type {emit_symbol fundecl.fun_name},@function\n`;
|
|
- ` .size {emit_symbol fundecl.fun_name},.-{emit_symbol fundecl.fun_name}\n`
|
|
- | _ -> ()
|
|
+ end
|
|
|
|
(* Emission of data *)
|
|
|