paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 01:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* make all sets equal when reading an array of sets. Before it could

Browse Source 
mix normal and small sets in the same array!
This commit is contained in:
peter 2001-10-20 17:24:26 +00:00
parent 7edaf1332f
commit f7af97c2a5
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ptconst.pas
View File

@ -414,6 +414,9 @@ implementation
p:=comp_expr(true); p:=comp_expr(true);
if p.nodetype=setconstn then if p.nodetype=setconstn then
begin begin
{ be sure to convert to the correct result, else
it can generate smallset data instead of normalset (PFV) }
inserttypeconv(p,t);
{ we only allow const sets } { we only allow const sets }
if assigned(tsetconstnode(p).left) then if assigned(tsetconstnode(p).left) then
Message(cg_e_illegal_expression) Message(cg_e_illegal_expression)
@ -947,7 +950,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.34 2001-09-19 11:06:03 michael Revision 1.35 2001-10-20 17:24:26 peter
* make all sets equal when reading an array of sets. Before it could
mix normal and small sets in the same array!
Revision 1.34 2001/09/19 11:06:03 michael
* realname updated for some hints * realname updated for some hints
* realname used for consts,labels * realname used for consts,labels