Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Support *BSD 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2359 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1999-05-15 15:03:11 +00:00
parent 2f8db64011
commit 75d7f7d0aa
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
asmcomp/alpha/emit.mlp
View File

@ -272,9 +272,9 @@ let emit_call_gc gc =
let rdata_section = let rdata_section =
match Config.system with match Config.system with
"digital" -> ".rdata" "digital" | "openbsd" -> ".rdata"
| "linux" -> ".section .rodata" | "linux" | "netbsd" -> ".section .rodata"
| _ -> assert false | _ -> assert false
(* Names of various instructions *) (* Names of various instructions *)
@ -714,14 +714,14 @@ let emit_fundecl (fundecl, needs_gp) =
end; end;
` .end {emit_symbol fundecl.fun_name}\n`; ` .end {emit_symbol fundecl.fun_name}\n`;
if !bigint_constants <> [] then begin if !bigint_constants <> [] then begin
` .section .rodata\n`; ` {emit_string rdata_section}\n`;
` .align 3\n`; ` .align 3\n`;
List.iter List.iter
(fun (lbl, n) -> `{emit_label lbl}: .quad {emit_string(Nativeint.to_hexa_string n)}\n`) (fun (lbl, n) -> `{emit_label lbl}: .quad {emit_string(Nativeint.to_hexa_string n)}\n`)
!bigint_constants !bigint_constants
end; end;
if !float_constants <> [] then begin if !float_constants <> [] then begin
` .section .rodata\n`; ` {emit_string rdata_section}\n`;
` .align 3\n`; ` .align 3\n`;
List.iter List.iter
(fun (lbl, s) -> `{emit_label lbl}: .t_floating {emit_string s}\n`) (fun (lbl, s) -> `{emit_label lbl}: .t_floating {emit_string s}\n`)