mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 21:48:01 +02:00
6e1d5e0aa0
* convert exit(x) into result:=x; exit;, enables further optimizations in the future git-svn-id: trunk@17829 -
22 lines
289 B
Plaintext
22 lines
289 B
Plaintext
{$MODE OBJFPC} { -*- text -*- }
|
|
program tests;
|
|
|
|
type
|
|
generic TTest <PTest> = class
|
|
FPointer: PTest;
|
|
procedure Foo();
|
|
end;
|
|
|
|
procedure TTest.Foo();
|
|
var
|
|
Result: Boolean;
|
|
begin
|
|
Result := FPointer = nil;
|
|
end;
|
|
|
|
type
|
|
TPointerTest = specialize TTest <Pointer>;
|
|
|
|
begin
|
|
end.
|