13 lines
613 B
Plaintext
13 lines
613 B
Plaintext
$OpenBSD: patch-asmcomp_amd64_emit_mlp,v 1.2 2004/03/06 17:28:03 avsm Exp $
|
|
--- asmcomp/amd64/emit.mlp.orig 2004-03-04 22:55:53.000000000 +0000
|
|
+++ asmcomp/amd64/emit.mlp 2004-03-04 22:56:33.000000000 +0000
|
|
@@ -612,7 +612,7 @@ let fundecl fundecl =
|
|
`{emit_label !range_check_trap}: call {emit_symbol "caml_array_bound_error"}\n`;
|
|
(* Never returns, but useful to have retaddr on stack for debugging *)
|
|
if !float_constants <> [] then begin
|
|
- ` .section .rodata.cst8,\"aM\",@progbits,8\n`;
|
|
+ ` .section .rodata.cst8,\"a\",@progbits\n`;
|
|
List.iter emit_float_constant !float_constants
|
|
end
|
|
|