From 6fec6f714a9d921a6375a301df8a1c34639fbca5 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Fri, 18 Dec 1998 17:15:40 +0000
Subject: [PATCH]   * added 'in []' support

---
 compiler/tcset.pas | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

diff --git a/compiler/tcset.pas b/compiler/tcset.pas
index 1217fbc9b8..a71dd3e2fa 100644
--- a/compiler/tcset.pas
+++ b/compiler/tcset.pas
@@ -94,8 +94,18 @@ implementation
          if codegenerror then
            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);
          if codegenerror then
            exit;
@@ -234,7 +244,10 @@ implementation
 end.
 {
   $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
 
   Revision 1.3  1998/11/13 10:17:06  peter