{ 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.
