paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-08 15:17:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed not(not()) removal

Browse Source
This commit is contained in:
peter 2002-08-25 09:10:58 +00:00
parent 4aa03c0656
commit 160103faba
1 changed files with 25 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/nmat.pas
View File

@ -578,20 +578,19 @@ implementation
resulttype:=left.resulttype;
{Try optmimizing ourself away.}
{ Try optmimizing ourself away }
if left.nodetype=notn then
begin
{Double not. Remove both.}
t:=Tnotnode(left).left;
{ Double not. Remove both }
result:=Tnotnode(left).left;
Tnotnode(left).left:=nil;
left:=t;
result:=t;
exit;
end;
if left.nodetype in [ltn,lten,equaln,unequaln,gtn,gten] then
begin
{ Not of boolean expression. Turn around the operator and remove
the not.}
the not }
result:=left;
left.nodetype:=boolean_reverse[left.nodetype];
left:=nil;
@ -755,7 +754,10 @@ begin
end.
{
$Log$
Revision 1.38 2002-08-15 15:09:42 carl
Revision 1.39 2002-08-25 09:10:58 peter
* fixed not(not()) removal
Revision 1.38 2002/08/15 15:09:42 carl
+ fpu emulation helpers (ppu checking also)
Revision 1.37 2002/08/14 19:26:55 carl