mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:38:14 +02:00
e9fab1bfee
psub.pas, tcgprocinfo.parse_body: * ensure that parse_generic and current_genericdef are set correctly when parsing a generic routine pgenutil.pas, generate_specialization_phase2: * when we're specializing inside a generic we don't want to have the routine definitions, so let the compiler assume that the routine is no longer a forward definition + added test git-svn-id: trunk@33275 -
48 lines
805 B
ObjectPascal
48 lines
805 B
ObjectPascal
unit tw29080;
|
|
|
|
{$mode delphi}
|
|
|
|
interface
|
|
|
|
function Min<T>(const A, B: T): T;
|
|
function Max<T>(const A, B: T): T;
|
|
procedure Test<T>(const A, B: T);
|
|
|
|
implementation
|
|
|
|
function Min<T>(const A, B: T): T;
|
|
// Error on line below, GenericTest.pas(14,1) Error: Internal error 200301231
|
|
begin
|
|
if A < B then
|
|
Result := A
|
|
else
|
|
Result := B;
|
|
end;
|
|
|
|
function Max<T>(const A, B: T): T;
|
|
begin
|
|
if A > B then
|
|
Result := A
|
|
else
|
|
Result := B;
|
|
end;
|
|
|
|
procedure Test<T>(const A, B: T);
|
|
var
|
|
Value: T;
|
|
begin
|
|
// This should be legal
|
|
Value := Min<T>(A, B);
|
|
WriteLn('The Min<T> of values, ', A, ' and ', B, ' are: ', Value);
|
|
// As well as this
|
|
Value := Max<T>(A, B);
|
|
WriteLn('The Max<T> of values, ', A, ' and ', B, ' are: ', Value);
|
|
end;
|
|
|
|
procedure TestFix;
|
|
begin
|
|
Test<LongInt>(42, 21);
|
|
end;
|
|
|
|
end.
|