paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 06:29:25 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for ID 388 removing real from stack was wrong

Browse Source
This commit is contained in:
pierre 1999-04-29 22:12:21 +00:00
parent 3816fb0f4d
commit f0a468fdef
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/cg386cal.pas
View File

@ -1133,7 +1133,7 @@ implementation
ungetiftemp(p^.location.reference)
else if p^.location.loc=LOC_FPU then
{ release FPU stack }
exprasmlist^.concat(new(pai386,op_none(A_FDECSTP,S_NO)));
exprasmlist^.concat(new(pai386,op_reg(A_FSTP,S_NO,R_ST0)));
end;
end;
@ -1215,7 +1215,10 @@ implementation
end.
{
$Log$
Revision 1.76 1999-04-25 22:33:19 pierre
Revision 1.77 1999-04-29 22:12:21 pierre
* fix for ID 388 removing real from stack was wrong
Revision 1.76 1999/04/25 22:33:19 pierre
* fix for TESTOBJEXT code
Revision 1.75 1999/04/19 09:45:46 pierre