paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-13 11:09:13 +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;
lten :
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);
end;
gten :
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);
end;
end;
@ -1708,7 +1708,11 @@ begin
end.
{
$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
for ppc.