mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
fa1bc0757d
pgenutil.pas, specialization_init: * don't push the localsymtable if the unit does not have one available + added test (needs manual execution though... :/ ) git-svn-id: trunk@29172 -
29 lines
320 B
ObjectPascal
29 lines
320 B
ObjectPascal
unit uw26922a;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
unit2_test;
|
|
|
|
Type
|
|
TTestAbstract = class
|
|
|
|
end;
|
|
|
|
TTest = class;
|
|
|
|
TTestObject = class(specialize TTestObjectAbstract<TTest>);
|
|
|
|
// Note: uncomment TTestAbstract when for recompilation
|
|
TTest = class//(TTestAbstract)
|
|
public
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
end.
|
|
|