Lors de l'emission de constantes, faire attention aux symboles de code / de donnees (suite)

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2330 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1999-03-04 10:55:46 +00:00 · 1999-03-04 10:55:46 +00:00 · 294aff94cf
parent 6ad4dff1f8
commit 294aff94cf
1 changed files with 2 additions and 1 deletions
--- a/asmcomp/hppa/emit.mlp
+++ b/asmcomp/hppa/emit.mlp
@ -1008,7 +1008,8 @@ let emit_item = function
  | Cfloat f ->
      `	.double	{emit_string f}\n`
  | Csymbol_address s ->
-      use_symbol s;
+      if hpux && String.length s >= 5 && String.sub s 0 5 = "caml_" then
+        `	.import	{emit_symbol s}, code\n`;
      `	.long	{emit_symbol s}\n`
  | Clabel_address lbl ->
      `	.long	{emit_label(lbl + 100000)}\n`