* Avoid crash if right node of _IN keyword is a type node that is not a set

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17159 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 5 insertions, 0 deletions

diff --git a/compiler/nset.pas b/compiler/nset.pas
index 9e72455551..5edc944ab5 100644
--- a/compiler/nset.pas
+++ b/compiler/nset.pas
@@ -231,6 +231,11 @@ implementation
 
          if (right.nodetype=typen) then
            begin
+             if right.resultdef.typ<>setdef then
+               begin
+                 CGMessage(sym_e_set_expected);
+                 exit;
+               end;
              { we need to create a setconstn }
              pst:=createsetconst(tsetdef(ttypenode(right).resultdef));
              t:=csetconstnode.create(pst,ttypenode(right).resultdef);