blob: f24f4e53ce86fbe3804a09c021bfea039da407fb (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
{ %version=1.1 }
{$ifdef fpc}{$mode objfpc}{$endif}
uses ub0386;
type
tobj2 = class (tobj1)
{ this will try to override tobj.proc1, it should not
see tobj1.proc1 }
procedure proc1 (a: integer);override;
end;
procedure tobj2.proc1 (a: integer);
begin
end;
begin
end.
|
