From f4592c0cd37dd5b1d2b3d7a78565ef8eec447b56 Mon Sep 17 00:00:00 2001
From: florian <florian@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 6 Apr 2011 20:32:45 +0000
Subject: * forbid <ordinal> in <set type>

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@17263 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/nset.pas | 16 ----------------
 1 file changed, 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
-- 
cgit v1.2.1