paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-15 16:50:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed constant set evaluation of new set handling for non-commutative

Browse Source 
operators
This commit is contained in:
Jonas Maebe 2002-07-23 13:08:16 +00:00
parent 1130395e7e
commit 6e43afc6e1
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/nadd.pas
View File

@ -580,12 +580,12 @@ implementation
end; end;
lten : lten :
begin begin
b:=tsetconstnode(right).value_set^ <= tsetconstnode(left).value_set^; b:=tsetconstnode(left).value_set^ <= tsetconstnode(right).value_set^;
t:=cordconstnode.create(byte(b),booltype); t:=cordconstnode.create(byte(b),booltype);
end; end;
gten : gten :
begin begin
b:=tsetconstnode(right).value_set^ >= tsetconstnode(left).value_set^; b:=tsetconstnode(left).value_set^ >= tsetconstnode(right).value_set^;
t:=cordconstnode.create(byte(b),booltype); t:=cordconstnode.create(byte(b),booltype);
end; end;
end; end;
@ -1708,7 +1708,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.56 2002-07-23 12:34:29 daniel Revision 1.57 2002-07-23 13:08:16 jonas
* fixed constant set evaluation of new set handling for non-commutative
operators
Revision 1.56 2002/07/23 12:34:29 daniel
* Readded old set code. To use it define 'oldset'. Activated by default * Readded old set code. To use it define 'oldset'. Activated by default
for ppc. for ppc.