mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 12:58:11 +02:00
3ce7927096
- lowers build times - ide is not that important anymore than years before - other utils like pastojs are also located in the packages tree git-svn-id: trunk@37926 -
37 lines
558 B
ObjectPascal
37 lines
558 B
ObjectPascal
unit test1;
|
|
|
|
{$mode objfpc}
|
|
|
|
{ dummy unit for test of dbx stabs info PM }
|
|
|
|
interface
|
|
|
|
function TestOne : longint;
|
|
function TestOne(val : longint) : longint; overload;
|
|
function TestOne(val : string) : longint; overload;
|
|
|
|
|
|
implementation
|
|
|
|
function TestOne : longint;
|
|
begin
|
|
result:=1;
|
|
end;
|
|
|
|
function TestOne(val : longint) : longint; overload;
|
|
begin
|
|
result:=val;
|
|
end;
|
|
|
|
function TestOne(val : string) : longint; overload;
|
|
var
|
|
value, error : longint;
|
|
begin
|
|
system.val(val,value,error);
|
|
if error=0 then
|
|
result:=value
|
|
else
|
|
result:=-1;
|
|
end;
|
|
end.
|