paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 07:39:13 +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 if left.nodetype in [ordconstn,realconstn] 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;
@ -449,9 +449,11 @@ interface
begin begin
truelabel:=otl; truelabel:=otl;
falselabel:=ofl; 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 if isjump then
begin begin
otl:=truelabel; otl:=truelabel;
@ -466,7 +468,9 @@ interface
begin begin
truelabel:=otl; truelabel:=otl;
falselabel:=ofl; falselabel:=ofl;
end; end
else if left.location.loc=LOC_JUMP then
internalerror(200310082);
{ left must be a register } { left must be a register }
left_must_be_reg(opsize,false); left_must_be_reg(opsize,false);
@ -1485,7 +1489,10 @@ begin
end. end.
{ {
$Log$ $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 * procinfo unit contains tprocinfo
* cginfo renamed to cgbase * cginfo renamed to cgbase
* moved cgmessage to verbose * moved cgmessage to verbose