Pārlūkot izejas kodu

* forbid <ordinal> in <set type>

git-svn-id: trunk@17263 -
florian 14 gadi atpakaļ
vecāks
revīzija
6fb666135f
1 mainītis faili ar 0 papildinājumiem un 16 dzēšanām
  1. 0 16
      compiler/nset.pas

+ 0 - 16
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