blob: 0d60d8a3583c86d62f8d01f1bdb5449592d68929 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
{ Source provided for Free Pascal Bug Report 4599 }
{ Submitted by "Sam" on 2005-12-14 }
{ e-mail: sam_herzog@yahoo.com }
{$mode objfpc}
procedure Trace(_level:byte;_msg:String;_params:array of const);
var
i : integer;
begin
i:=SizeOf(_params);
end;
begin
end.
|
