Default value of the procedure/function parameter.
Original Reporter info from Mantis: avk @avk959
-
Reporter name: avk
Original Reporter info from Mantis: avk @avk959
- Reporter name: avk
Description:
This example does not compile in delphi mode, but does compile successfully in objfpc mode.
program def_param;
{$mode delphi}
function GTest<T>(a: T; b: T = T(1)): T;
begin
Result := a + b;
end;
function Foobar(a: Single; b: Single = Single(1)): Single;
begin
Result := a + b;
end;
begin
WriteLn(GTest<Single>(2, 1));
WriteLn(Foobar(2));
end.
Current trunk compiles the example successfully in both modes.
Mantis conversion info:
- Mantis ID: 37380
- OS: linux
- Build: 45770
- Platform: x86_64
- Version: 3.2.0