paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 17:19:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

* hopefully fixed bug tb0454 (merged from nppcadd)

Browse Source
This commit is contained in:
Jonas Maebe 2003-12-29 11:37:52 +00:00
parent da6a3d28c8
commit 7de6463c43
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/ncgadd.pas
View File

@ -99,7 +99,7 @@ interface
if (left.nodetype=ordconstn) then
swapleftright;
isjump:=(left.location.loc=LOC_JUMP);
isjump:=(left.expectloc=LOC_JUMP);
if isjump then
begin
otl:=truelabel;
@ -114,14 +114,16 @@ interface
begin
truelabel:=otl;
falselabel:=ofl;
end;
end
else
internalerror(2003122901);
{ are too few registers free? }
if left.location.loc=LOC_FPUREGISTER then
pushedfpu:=maybe_pushfpu(exprasmlist,right.registersfpu,left.location)
else
pushedfpu:=false;
isjump:=(right.location.loc=LOC_JUMP);
isjump:=(right.expectloc=LOC_JUMP);
if isjump then
begin
otl:=truelabel;
@ -136,7 +138,9 @@ interface
begin
truelabel:=otl;
falselabel:=ofl;
end;
end
else
internalerror(2003122902);
if pushedfpu then
begin
tmpreg := cg.getfpuregister(exprasmlist,left.location.size);
@ -749,7 +753,10 @@ begin
end.
{
$Log$
Revision 1.24 2003-12-23 14:38:07 florian
Revision 1.25 2003-12-29 11:37:52 jonas
* hopefully fixed bug tb0454 (merged from nppcadd)
Revision 1.24 2003/12/23 14:38:07 florian
+ second_floataddsse implemented
Revision 1.23 2003/12/21 11:28:41 daniel