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

Distinction code/data pour nativeint_ops, etc 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@3131 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2000-04-21 13:33:51 +00:00
parent ccf1c01d14
commit f6fac01592
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
asmcomp/hppa/emit.mlp
View File

@ -130,14 +130,17 @@ let call_symbol s =
(* An external symbol is code if either it is branched to, or (* An external symbol is code if either it is branched to, or
it does not start with an uppercase letter (for calls to it does not start with an uppercase letter (for calls to
runtime functions). We need to special-case "caml_globals_inited" runtime functions). We need to special-case a few data symbols
as a data symbol, though. *) that start with a lower case. *)
let data_imports =
["caml_globals_inited"; "nativeint_ops"; "int32_ops"; "int64_ops"]
let emit_import s = let emit_import s =
if not(StringSet.mem s !defined_symbols) then begin if not(StringSet.mem s !defined_symbols) then begin
` .import {emit_symbol s}`; ` .import {emit_symbol s}`;
if (StringSet.mem s !called_symbols || s.[0] < 'A' or s.[0] > 'Z') if (StringSet.mem s !called_symbols || s.[0] < 'A' || s.[0] > 'Z')
&& s <> "caml_globals_inited" && not (List.mem s data_imports)
then `, code\n` then `, code\n`
else `, data\n` else `, data\n`
end end