blob: 1dc9f04d828f06c14cc7fe6d8f1d4d7328c1eb0d (
plain)
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
|
{$ifdef fpc}{$mode objfpc}{$endif}
unit ub0386;
interface
type
tobj = class
procedure proc1 (a: integer);overload; virtual;
end;
tobj1 = class(tobj)
{ this proc1 definition should not been seen by tobj2 }
private
procedure proc1 (a: char);
end;
implementation
procedure tobj.proc1 (a: integer);
begin
end;
procedure tobj1.proc1 (a: char);
begin
end;
end.
|
