paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:29:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* overload error

Browse Source
This commit is contained in:
peter 2002-10-06 20:13:36 +00:00
parent eab3951304
commit c88a6360aa
1 changed files with 66 additions and 0 deletions

66
tests/webtbs/tw1699.pp Normal file
View File

@ -0,0 +1,66 @@
{ Source provided for Free Pascal Bug Report 1699 }
{ Submitted by "SHADOW" on 2001-11-25 }
{ e-mail: mdikm@hotmail.com }
function bget(d:byte;p:byte):boolean;
begin
end;
procedure bset(var d:byte;p:byte;v:boolean);
begin
end;
function nget(d:byte;p,c:byte):byte;
begin
end;
procedure nset(var d:byte;p,c:byte;v:byte);
begin
end;
function bget(d:word;p:byte):boolean;
begin
end;
procedure bset(var d:word;p:byte;v:boolean);
begin
end;
function nget(d:word;p,c:byte):word;
begin
end;
procedure nset(var d:word;p,c:byte;v:word);
begin
end;
function bget(d:cardinal;p:byte):boolean;
begin
end;
procedure bset(var d:cardinal;p:byte;v:boolean);
begin
end;
function nget(d:cardinal;p,c:byte):cardinal;
begin
end;
procedure nset(var d:cardinal;p,c:byte;v:cardinal);
begin
end;
function bget(d:qword;p:byte):boolean;
begin
end;
procedure bset(var d:qword;p:byte;v:boolean);
begin
end;
function nget(d:qword;p,c:byte):qword;
begin
end;
procedure nset(var d:qword;p,c:byte;v:qword);
begin
end;
var
b : byte;
w : word;
c : cardinal;
q : qword;
begin
nset(b,0,0,0);
nset(w,0,0,0);
nset(c,0,0,0);
nset(q,0,0,0);
end.