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

* fixed bug due to short boolean evaluation

Browse Source
This commit is contained in:
Jonas Maebe 2001-04-06 16:24:38 +00:00
parent 2cc7d970e1
commit a022ac9bb2
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/i386/csopt386.pas
View File

@ -793,14 +793,16 @@ begin
end;
function changeOp(var o: toper; newReg, orgReg: tregister): boolean;
var
tmpresult: boolean;
begin
changeOp := false;
case o.typ of
top_reg: changeOp := changeReg(o.reg,newReg,orgReg);
top_ref:
begin
changeOp :=
changeReg(o.ref^.base,newReg,orgReg) or
changeReg(o.ref^.index,newReg,orgReg);
tmpresult := changeReg(o.ref^.base,newReg,orgReg);
changeop := changeReg(o.ref^.index,newReg,orgReg) or tmpresult;
end;
end;
end;
@ -1716,7 +1718,10 @@ End.
{
$Log$
Revision 1.14 2001-04-02 21:20:36 peter
Revision 1.15 2001-04-06 16:24:38 jonas
* fixed bug due to short boolean evaluation
Revision 1.14 2001/04/02 21:20:36 peter
* resulttype rewrite
Revision 1.13 2001/01/10 08:52:40 michael