diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-03-04 10:49:25 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-03-04 10:49:25 +0000 |
| commit | 6ad4dff1f80e322feba2c489b940baf9d93183c8 (patch) | |
| tree | 94b5a8adbfc906b97983d26de87df6be66ba110f | |
| parent | 2cdc58017cd22cb4c98ca9573e363f2824c763a4 (diff) | |
Lors de l'emission de constantes, faire attention aux symboles de code / de donnees
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2329 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | asmcomp/hppa/emit.mlp | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/asmcomp/hppa/emit.mlp b/asmcomp/hppa/emit.mlp index b284da9cc..76de7a6d4 100644 --- a/asmcomp/hppa/emit.mlp +++ b/asmcomp/hppa/emit.mlp @@ -1008,6 +1008,7 @@ let emit_item = function | Cfloat f -> ` .double {emit_string f}\n` | Csymbol_address s -> + use_symbol s; ` .long {emit_symbol s}\n` | Clabel_address lbl -> ` .long {emit_label(lbl + 100000)}\n` |