paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 04:30:36 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't optimize not([lten,gten]) for setdefs

Browse Source
This commit is contained in:
peter 2002-08-25 11:32:33 +00:00
parent 160103faba
commit 3486c0c668
1 changed files with 18 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
compiler/nmat.pas
View File

@ -587,15 +587,20 @@ implementation
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 }
result:=left;
left.nodetype:=boolean_reverse[left.nodetype];
left:=nil;
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. This is not allowed for sets with the gten/lten,
because there is no ltn/gtn support }
if (taddnode(left).left.resulttype.def.deftype<>setdef) or
(left.nodetype in [equaln,unequaln]) then
begin
result:=left;
left.nodetype:=boolean_reverse[left.nodetype];
left:=nil;
exit;
end;
end;
{ constant folding }
if (left.nodetype=ordconstn) then
@ -754,7 +759,10 @@ begin
end.
{
$Log$
Revision 1.39 2002-08-25 09:10:58 peter
Revision 1.40 2002-08-25 11:32:33 peter
* don't optimize not([lten,gten]) for setdefs
Revision 1.39 2002/08/25 09:10:58 peter
* fixed not(not()) removal
Revision 1.38 2002/08/15 15:09:42 carl