Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Emettre symbol - N plutot que symbol + -N 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2256 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1999-01-28 15:39:09 +00:00
parent 91c1787f1b
commit e69a4030c0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
asmcomp/mips/emit.mlp
View File

@ -84,7 +84,9 @@ let emit_addressing addr r n =
| Ibased(s, 0) -> | Ibased(s, 0) ->
`{emit_symbol s}` `{emit_symbol s}`
| Ibased(s, ofs) -> | 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 *) (* Communicate live registers at call points to the assembler *)