paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 04:49:43 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed set operations which still had array constructor as type

Browse Source
This commit is contained in:
peter 1999-01-20 21:05:09 +00:00
parent aa5d87a3c0
commit 55640c751c
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/tcadd.pas
View File

@ -42,6 +42,7 @@ implementation
{$ifdef m68k}
,m68k
{$endif}
,tccnv
;
{*****************************************************************************
@ -530,8 +531,19 @@ implementation
else
{ left side a setdef ? }
if (ld^.deftype=setdef) then
if (ld^.deftype=setdef) or is_array_constructor(ld) then
begin
{ convert array constructors to sets }
if is_array_constructor(ld) then
begin
arrayconstructor_to_set(p^.left);
ld:=p^.left^.resulttype;
end;
if is_array_constructor(rd) then
begin
arrayconstructor_to_set(p^.right);
rd:=p^.right^.resulttype;
end;
{ trying to add a set element? }
if (p^.treetype=addn) and (rd^.deftype<>setdef) then
begin
@ -1001,7 +1013,10 @@ implementation
end.
{
$Log$
Revision 1.20 1999-01-20 17:39:26 jonas
Revision 1.21 1999-01-20 21:05:09 peter
* fixed set operations which still had array constructor as type
Revision 1.20 1999/01/20 17:39:26 jonas
+ fixed bug0163 (set1 <= set2 support)
Revision 1.19 1998/12/30 13:35:35 peter