Emettre symbol - N plutot que symbol + -N

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2256 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
1999-01-28 15:39:09 +00:00 · 1999-01-28 15:39:09 +00:00 · e69a4030c0
parent 91c1787f1b
commit e69a4030c0
1 changed files with 3 additions and 1 deletions
--- a/asmcomp/mips/emit.mlp
+++ b/asmcomp/mips/emit.mlp
@ -84,7 +84,9 @@ let emit_addressing addr r n =
  | Ibased(s, 0) ->
      `{emit_symbol s}`
  | Ibased(s, ofs) ->
-      `{emit_symbol s} + {emit_int ofs}`
+      `{emit_symbol s}`;
+      if ofs > 0 then ` + {emit_int ofs}`;
+      if ofs < 0 then ` - {emit_int(-ofs)}`

 (* Communicate live registers at call points to the assembler *)