paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 04:39:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* forbid <ordinal> in <set type>

Browse Source 
git-svn-id: trunk@17263 -
This commit is contained in:
florian 2011-04-06 20:32:45 +00:00
parent b911e3d1c3
commit 6fb666135f
1 changed files with 0 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/nset.pas
View File

@ -229,22 +229,6 @@ implementation
exit; exit;
end; 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); typecheckpass(left);
set_varstate(left,vs_read,[vsf_must_be_valid]); set_varstate(left,vs_read,[vsf_must_be_valid]);
if codegenerror then if codegenerror then