mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-07-20 15:06:03 +02:00
115 lines
482 B
ObjectPascal
115 lines
482 B
ObjectPascal
unit unit_gen1;
|
|
{$mode objfpc}
|
|
|
|
interface
|
|
|
|
generic function Log<T>: integer; overload;
|
|
function Log1: integer; overload;
|
|
|
|
implementation
|
|
|
|
// Code starts at line 100
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
// Must not have code before line 100
|
|
|
|
|
|
|
|
function Log1: integer;
|
|
begin
|
|
WriteLn('xxx'); // TEST_BREAKPOINT=BrkUnit1Log
|
|
end;
|
|
|
|
generic function Log<T>: integer;
|
|
begin
|
|
WriteLn('xxx'); // TEST_BREAKPOINT=BrkUnit1GenLog
|
|
end;
|
|
|
|
end.
|