mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 01:09:27 +02:00
e6ad8a0dfa
r46953 * fix for Mantis #37806: allow undefineddefs for Include() and Exclude() + added tests --------------------- r46218 * fix for Mantis #37187: inside generics the constant code in pexpr does not handle all cases and thus current_procinfo needs to be checked as well + added test --------------------- r45645 * correctly set the generic related defoptions for an outlined procdef --------------------- r45458 * make more use of is_typeparam --------------------- r45457 * constrained type parameters are not undefined defs, resolves #37107 --------------------- r44188 * keep track of the fileposinfo for generic constraints --------------------- r44172 * only resolve a dummy symbol if it is a type symbol (thus truly a dummy symbol) + added tests --------------------- git-svn-id: branches/fixes_3_2@47802 -
27 lines
472 B
ObjectPascal
27 lines
472 B
ObjectPascal
program tw37806;
|
|
|
|
{$mode delphi}
|
|
|
|
procedure TurnSetElem<TSet, TElem>(var aSet: TSet; aElem: TElem; aOn: Boolean);
|
|
begin
|
|
if aOn then
|
|
Include(aSet, aElem)
|
|
else
|
|
Exclude(aSet, aElem);
|
|
end;
|
|
|
|
type
|
|
TElem = (One, Two, Three, Four, Five);
|
|
TSet = set of TElem;
|
|
|
|
var
|
|
s: TSet = [];
|
|
|
|
begin
|
|
TurnSetElem<TSet, TElem>(s, Two, True);
|
|
TurnSetElem<TSet, TElem>(s, Five, True);
|
|
if not((Two in s) and (Five in s)) then
|
|
Halt(1);
|
|
//WriteLn('does not work');
|
|
end.
|