paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 14:29:44 +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 if (left.nodetype=ordconstn) then
swapleftright; swapleftright;
isjump:=(left.location.loc=LOC_JUMP); isjump:=(left.expectloc=LOC_JUMP);
if isjump then if isjump then
begin begin
otl:=truelabel; otl:=truelabel;
@ -114,14 +114,16 @@ interface
begin begin
truelabel:=otl; truelabel:=otl;
falselabel:=ofl; falselabel:=ofl;
end; end
else
internalerror(2003122901);
{ are too few registers free? } { are too few registers free? }
if left.location.loc=LOC_FPUREGISTER then if left.location.loc=LOC_FPUREGISTER then
pushedfpu:=maybe_pushfpu(exprasmlist,right.registersfpu,left.location) pushedfpu:=maybe_pushfpu(exprasmlist,right.registersfpu,left.location)
else else
pushedfpu:=false; pushedfpu:=false;
isjump:=(right.location.loc=LOC_JUMP); isjump:=(right.expectloc=LOC_JUMP);
if isjump then if isjump then
begin begin
otl:=truelabel; otl:=truelabel;
@ -136,7 +138,9 @@ interface
begin begin
truelabel:=otl; truelabel:=otl;
falselabel:=ofl; falselabel:=ofl;
end; end
else
internalerror(2003122902);
if pushedfpu then if pushedfpu then
begin begin
tmpreg := cg.getfpuregister(exprasmlist,left.location.size); tmpreg := cg.getfpuregister(exprasmlist,left.location.size);
@ -749,7 +753,10 @@ begin
end. end.
{ {
$Log$ $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 + second_floataddsse implemented
Revision 1.23 2003/12/21 11:28:41 daniel Revision 1.23 2003/12/21 11:28:41 daniel