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

* fix bug with checking of duplicated items in sets (new sets bug only)

Browse Source
This commit is contained in:
carl 2002-11-30 10:45:14 +00:00
parent 9612a08120
commit 87e69126fb
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncnv.pas
View File

@ -299,7 +299,9 @@ implementation
Message(parser_e_illegal_set_expr); Message(parser_e_illegal_set_expr);
pconst32bitset(constset)^[l]:=pconst32bitset(constset)^[l] or mask; pconst32bitset(constset)^[l]:=pconst32bitset(constset)^[l] or mask;
{$else} {$else}
include(constset^,pos); if pos in constset^ then
Message(parser_e_illegal_set_expr);
include(constset^,pos);
{$endif} {$endif}
end; end;
@ -1992,7 +1994,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.92 2002-11-27 19:43:21 carl Revision 1.93 2002-11-30 10:45:14 carl
* fix bug with checking of duplicated items in sets (new sets bug only)
Revision 1.92 2002/11/27 19:43:21 carl
* updated notes and hints * updated notes and hints
Revision 1.91 2002/11/27 13:11:38 peter Revision 1.91 2002/11/27 13:11:38 peter