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

* added 'in []' support

Browse Source
This commit is contained in:
peter 1998-12-18 17:15:40 +00:00
parent f4cf3069b4
commit 6fec6f714a
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
compiler/tcset.pas
View File

@ -94,8 +94,18 @@ implementation
if codegenerror then if codegenerror then
exit; exit;
p^.left:=gentypeconvnode(p^.left,psetdef(p^.right^.resulttype)^.setof); { empty set then return false }
if not assigned(psetdef(p^.right^.resulttype)^.setof) then
begin
t:=genordinalconstnode(0,booldef);
disposetree(p);
firstpass(t);
p:=t;
exit;
end;
{ type conversion/check }
p^.left:=gentypeconvnode(p^.left,psetdef(p^.right^.resulttype)^.setof);
firstpass(p^.left); firstpass(p^.left);
if codegenerror then if codegenerror then
exit; exit;
@ -234,7 +244,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.4 1998-12-11 00:03:58 peter Revision 1.5 1998-12-18 17:15:40 peter
* added 'in []' support
Revision 1.4 1998/12/11 00:03:58 peter
+ globtype,tokens,version unit splitted from globals + globtype,tokens,version unit splitted from globals
Revision 1.3 1998/11/13 10:17:06 peter Revision 1.3 1998/11/13 10:17:06 peter