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

* fixed evaluation of expressions with empty sets that are calculated

Browse Source 
at compile time
This commit is contained in:
Jonas Maebe 2002-07-23 13:19:40 +00:00
parent 6e43afc6e1
commit aa2fef1733
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
compiler/nset.pas
View File

@ -259,7 +259,13 @@ implementation
inserttypeconv(left,tsetdef(right.resulttype.def).elementtype);
{ empty set then return false }
if not assigned(tsetdef(right.resulttype.def).elementtype.def) then
if not assigned(tsetdef(right.resulttype.def).elementtype.def) or
((right.nodetype = setconstn) and
{$ifdef oldset}
(byteset(tsetconstnode(right).value_set^) = [])) then
{$else oldset}
(tsetconstnode(right).value_set^ = [])) then
{$endif oldset}
begin
t:=cordconstnode.create(0,booltype);
resulttypepass(t);
@ -591,7 +597,11 @@ begin
end.
{
$Log$
Revision 1.29 2002-07-23 12:34:30 daniel
Revision 1.30 2002-07-23 13:19:40 jonas
* fixed evaluation of expressions with empty sets that are calculated
at compile time
Revision 1.29 2002/07/23 12:34:30 daniel
* Readded old set code. To use it define 'oldset'. Activated by default
for ppc.