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

Meilleur code genere pour Ialloc 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@1674 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1997-07-30 01:21:34 +00:00
parent d94d8a8f40
commit 987344133e
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
asmcomp/alpha/emit.mlp
View File

@ -495,12 +495,7 @@ let emit_instr i =
gc_return_lbl = lbl_redo;
gc_frame = lbl_frame;
gc_instr = i } :: !call_gc_sites;
if is_immediate n then
`{emit_label lbl_redo}: subq $13, {emit_int n}, $13\n`
else begin
`{emit_label lbl_redo}: ldiq $25, {emit_int n}\n`;
` subq $13, $25, $13\n`
end;
`{emit_label lbl_redo}: lda $13, -{emit_int n}($13)\n`;
` cmpult $13, $14, $25\n`;
` bne $25, {emit_label lbl_call_gc}\n`;
` addq $13, 8, {emit_reg i.res.(0)}\n`