mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-11 05:18:14 +02:00
005bdc1af4
(mantis #10927) * extended the tb0259 test a bit (tests similar constructs in case there is no getter/setter) git-svn-id: trunk@10456 -
40 lines
636 B
ObjectPascal
40 lines
636 B
ObjectPascal
{ Old file: tbs0302.pp }
|
|
{ inherited property generates wrong assembler OK 0.99.13 (PFV) }
|
|
|
|
{$ifdef fpc}{$mode objfpc}{$endif}
|
|
type
|
|
c1=class
|
|
Ffont : longint;
|
|
property Font:longint read Ffont write Ffont;
|
|
end;
|
|
|
|
c2=class(c1)
|
|
function GetFont:longint;
|
|
procedure setfont(l: longint);
|
|
end;
|
|
|
|
function c2.GetFont:longint;
|
|
begin
|
|
result:=inherited Font;
|
|
end;
|
|
|
|
|
|
procedure c2.SetFont(l: longint);
|
|
begin
|
|
inherited font := l;
|
|
end;
|
|
|
|
var
|
|
c: c2;
|
|
begin
|
|
c:=c2.create;
|
|
c.ffont:=5;
|
|
if c.getfont<>5 then
|
|
halt(1);
|
|
c.setfont(10);
|
|
if c.getfont<>10 then
|
|
halt(2);
|
|
if c.ffont<>10 then
|
|
halt(3);
|
|
end.
|