diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-01-07 17:00:35 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-01-07 17:00:35 +0000 |
| commit | 8f5e150e48621dd3cf36bff9c70b327679425097 (patch) | |
| tree | 98ae7f30371a454feb967631855034d5bea26945 /asmcomp/emit_sparc.mlp | |
| parent | c8ea6d04fd732109970d9a686007fbfc97a56a33 (diff) | |
| download | ocaml-8f5e150e48621dd3cf36bff9c70b327679425097.tar.gz | |
Nettoyage portage PowerPC. Ajout de Config.model.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@597 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'asmcomp/emit_sparc.mlp')
| -rw-r--r-- | asmcomp/emit_sparc.mlp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/asmcomp/emit_sparc.mlp b/asmcomp/emit_sparc.mlp index a3521d9c1d..6096467ce0 100644 --- a/asmcomp/emit_sparc.mlp +++ b/asmcomp/emit_sparc.mlp @@ -61,12 +61,12 @@ let symbol_prefix = match Config.system with "sunos" -> "_" | "solaris" -> "" - | _ -> fatal_error "Emit_sparc.symbol_prefix" + | _ -> fatal_error "wrong $(SYSTEM)" let emit_symbol s = if String.length s >= 1 & s.[0] = '.' then emit_string s - else begin emit_string symbol_prefix; Emitaux.emit_symbol s end + else begin emit_string symbol_prefix; Emitaux.emit_symbol '$' s end (* Output a label *) @@ -74,7 +74,7 @@ let label_prefix = match Config.system with "sunos" -> "L" | "solaris" -> ".L" - | _ -> fatal_error "Emit_sparc.label_prefix" + | _ -> fatal_error "wrong $(SYSTEM)" let emit_label lbl = emit_string label_prefix; emit_int lbl |