mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 20:29:32 +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 -
20 lines
305 B
ObjectPascal
20 lines
305 B
ObjectPascal
program genTest;
|
|
|
|
{$IFDEF FPC}{$mode Delphi}{$ENDIF}
|
|
|
|
type
|
|
TTest<T: Record> = class(TObject)
|
|
procedure testit();
|
|
end;
|
|
|
|
procedure TTest<T>.testit();
|
|
begin
|
|
WriteLn('=== ', 1 div SizeOf(T));
|
|
if SizeOf(T) > 0 then
|
|
WriteLn('I''m reachable!')
|
|
end;
|
|
|
|
begin
|
|
TTest<Char>.Create().TestIt();
|
|
end.
|