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

* Avoid crash if right node of _IN keyword is a type node that is not a set

Browse Source 
git-svn-id: trunk@17159 -
This commit is contained in:
pierre 2011-03-21 07:57:37 +00:00
parent 0bdd15e0da
commit f49fb7329a
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/nset.pas
View File

@ -231,6 +231,11 @@ implementation
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);