paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 10:45:08 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed full bool evalution and bool xor, if the left or right side have LOC_JUMP

Browse Source
This commit is contained in:
florian 2003-10-08 09:13:16 +00:00
parent bf1b07f088
commit b3064de6c0
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/i386/n386add.pas
View File

@ -434,7 +434,7 @@ interface
if left.nodetype in [ordconstn,realconstn] then
swapleftright;
isjump:=(left.location.loc=LOC_JUMP);
isjump:=(left.expectloc=LOC_JUMP);
if isjump then
begin
otl:=truelabel;
@ -449,9 +449,11 @@ interface
begin
truelabel:=otl;
falselabel:=ofl;
end;
end
else if left.location.loc=LOC_JUMP then
internalerror(200310081);
isjump:=(right.location.loc=LOC_JUMP);
isjump:=(right.expectloc=LOC_JUMP);
if isjump then
begin
otl:=truelabel;
@ -466,7 +468,9 @@ interface
begin
truelabel:=otl;
falselabel:=ofl;
end;
end
else if left.location.loc=LOC_JUMP then
internalerror(200310082);
{ left must be a register }
left_must_be_reg(opsize,false);
@ -1485,7 +1489,10 @@ begin
end.
{
$Log$
Revision 1.80 2003-10-01 20:34:49 peter
Revision 1.81 2003-10-08 09:13:16 florian
* fixed full bool evalution and bool xor, if the left or right side have LOC_JUMP
Revision 1.80 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose