* forbid <ordinal> in <set type>

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

1 files changed, 0 insertions, 16 deletions

diff --git a/compiler/nset.pas b/compiler/nset.pas
index 5edc944ab5..015d4bf6f6 100644
--- a/compiler/nset.pas
+++ b/compiler/nset.pas
@@ -229,22 +229,6 @@ implementation
              exit;
           end;
 
-         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);
-             dispose(pst);
-             right.free;
-             right:=t;
-             typecheckpass(right);
-           end;
-
          typecheckpass(left);
          set_varstate(left,vs_read,[vsf_must_be_valid]);
          if codegenerror then