mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-17 08:59:25 +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 -
21 lines
236 B
ObjectPascal
21 lines
236 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0668b;
|
|
|
|
{$mode objfpc}
|
|
|
|
generic procedure FreeAndNil<T: class>(var Obj: T);
|
|
begin
|
|
end;
|
|
|
|
procedure FreeAndNil(var Obj);
|
|
begin
|
|
end;
|
|
|
|
var
|
|
t: TObject;
|
|
begin
|
|
FreeAndNil(t);
|
|
specialize FreeAndNil<TObject>(t);
|
|
end.
|