blob: cbfa033f06fd45ef6b643c151f4307f8710a2478 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
{ Source provided for Free Pascal Bug Report 2210 }
{ Submitted by "peter" on 2002-10-30 }
{ e-mail: peter@casltd.co.uk }
{$mode objfpc}
unit tw2210;
interface
implementation
type
tclass = class
function blah (p:integer) : boolean;
end;
function tclass.blah(p:integer):boolean;
begin
blah := true;
end;
end.
|
