cmmgen: damned, j'avais oublie une conversion de constante.

emit_sparc: typo. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@364 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1995-10-26 16:40:23 +00:00 · 1995-10-26 16:40:23 +00:00 · 4f97e08558
parent cb1ccd6d81
commit 4f97e08558
2 changed files with 2 additions and 2 deletions
--- a/asmcomp/cmmgen.ml
+++ b/asmcomp/cmmgen.ml
@ -332,7 +332,7 @@ let structured_constants = ref ([] : (string * structured_constant) list)

 let transl_constant = function
    Const_base(Const_int n) ->
-      Cconst_int((n lsl 1) + 1)
+      int_const n
  | Const_base(Const_char c) ->
      Cconst_int(((Char.code c) lsl 1) + 1)
  | Const_pointer n ->
--- a/asmcomp/emit_sparc.mlp
+++ b/asmcomp/emit_sparc.mlp
@ -659,7 +659,7 @@ let emit_item = function
  | Cint n ->
      `	.word	{emit_int n}\n`
  | Cintlit s ->
-      `	.word	{emit_string n}\n`
+      `	.word	{emit_string s}\n`
  | Cfloat f ->
      `	.double	0r{emit_string f}\n`
  | Csymbol_address s ->