packages/ide/test1.pas


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

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.