paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 02:59:13 +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; end;
function changeOp(var o: toper; newReg, orgReg: tregister): boolean; function changeOp(var o: toper; newReg, orgReg: tregister): boolean;
var
tmpresult: boolean;
begin begin
changeOp := false;
case o.typ of case o.typ of
top_reg: changeOp := changeReg(o.reg,newReg,orgReg); top_reg: changeOp := changeReg(o.reg,newReg,orgReg);
top_ref: top_ref:
begin begin
changeOp := tmpresult := changeReg(o.ref^.base,newReg,orgReg);
changeReg(o.ref^.base,newReg,orgReg) or changeop := changeReg(o.ref^.index,newReg,orgReg) or tmpresult;
changeReg(o.ref^.index,newReg,orgReg);
end; end;
end; end;
end; end;
@ -1716,7 +1718,10 @@ End.
{ {
$Log$ $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 * resulttype rewrite
Revision 1.13 2001/01/10 08:52:40 michael Revision 1.13 2001/01/10 08:52:40 michael