* fixed crash when compiling certain invalid "in" constructions

    (mantis 8031)

git-svn-id: trunk@5748 -

.gitattributes

@@ -7168,6 +7168,7 @@ tests/webtbf/tw7438.pp svneol=native#text/plain
 tests/webtbf/tw7438a.pp svneol=native#text/plain
 tests/webtbf/tw7989.pp svneol=native#text/plain
 tests/webtbf/tw8019.pp svneol=native#text/plain
+tests/webtbf/tw8031.pp svneol=native#text/plain
 tests/webtbf/uw0744.pp svneol=native#text/plain
 tests/webtbf/uw0840a.pp svneol=native#text/plain
 tests/webtbf/uw0840b.pp svneol=native#text/plain

compiler/nset.pas

@@ -219,6 +219,9 @@ implementation
          if right.resultdef.typ<>setdef then
            CGMessage(sym_e_set_expected);
 
+         if codegenerror then
+           exit;
+
          if (right.nodetype=typen) then
            begin
              { we need to create a setconstn }

tests/webtbf/tw8031.pp

@@ -0,0 +1,10 @@
+{ %fail }
+
+program text;
+
+type TSQLDBTypes = (mysql40,mysql41,mysql50,postgresql,interbase,odbc,oracle);
+const MySQLdbTypes = [mysql40,mysql41,mysql50];
+
+begin
+  if (SQLDbType in TSQLDBTypes) then writeln('strange');
+end.