mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
54c1e638ad
* pgenutil.pas, generate_specialization: * return a generrordef instead of Nil when returning because of an error * always check "genname" for a generic count string as a mode ObjFPC generic specialized in a mode Delphi unit will already contain a "$X" suffix and only symname will be set. + add (corrected) test git-svn-id: trunk@22462 -
21 lines
215 B
ObjectPascal
21 lines
215 B
ObjectPascal
unit uw22428;
|
|
|
|
{$MODE OBJFPC}
|
|
{$modeswitch advancedrecords}
|
|
|
|
interface
|
|
|
|
type
|
|
generic TWrapper<T> = record
|
|
class procedure Test; static;
|
|
end;
|
|
|
|
implementation
|
|
|
|
class procedure TWrapper.Test;
|
|
begin
|
|
|
|
end;
|
|
|
|
end.
|