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