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

Erreur dans Iintoffloat quand l'arg est au sommet de la pile 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@527 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1995-12-10 16:41:38 +00:00
parent 99c691f6a4
commit 514026d3fe
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
asmcomp/emit_i386.mlp
View File

@ -488,6 +488,10 @@ let emit_instr i =
end;
incr fp_offset
| Lop(Iintoffloat) ->
if i.arg.(0).loc <> Reg 100 then begin
` fldl {emit_reg i.arg.(0)}\n`;
incr fp_offset
end;
stack_offset := !stack_offset - 8;
` subl $8, %esp\n`;
` fnstcw 4(%esp)\n`;
@ -495,7 +499,6 @@ let emit_instr i =
` movb $12, %ah\n`;
` movl %eax, (%esp)\n`;
` fldcw (%esp)\n`;
` fldl {emit_reg i.arg.(0)}\n`;
begin match i.res.(0).loc with
Stack s ->
` fistpl {emit_reg i.res.(0)}\n`
@ -503,6 +506,7 @@ let emit_instr i =
` fistpl (%esp)\n`;
` movl (%esp), {emit_reg i.res.(0)}\n`
end;
decr fp_offset;
` fldcw 4(%esp)\n`;
` addl $8, %esp\n`;
stack_offset := !stack_offset + 8