paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-10 19:21:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix for fpuvaroffset for unused return value

Browse Source
This commit is contained in:
pierre 1999-11-04 00:23:58 +00:00
parent c3221c88a8
commit 7b5bae5ded
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/cg386cal.pas
View File

@ -1139,7 +1139,10 @@ implementation
begin
{ release FPU stack }
emit_reg(A_FSTP,S_NO,R_ST0);
dec(fpuvaroffset);
{
dec(fpuvaroffset);
do NOT decrement as the increment before
is not called for unused results PM }
end;
end;
end;
@ -1222,7 +1225,10 @@ implementation
end.
{
$Log$
Revision 1.108 1999-10-26 12:30:40 peter
Revision 1.109 1999-11-04 00:23:58 pierre
* fix for fpuvaroffset for unused return value
Revision 1.108 1999/10/26 12:30:40 peter
* const parameter is now checked
* better and generic check if a node can be used for assigning
* export fixes