paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 12:05:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ 302

Browse Source
This commit is contained in:
peter 1999-11-05 00:14:58 +00:00
parent 338a386280
commit 2a0156c6df
2 changed files with 21 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
bugs/bug0302.pp Normal file
View File

@ -0,0 +1,19 @@
{$ifdef fpc}{$mode objfpc}{$endif}
type
c1=class
Ffont : longint;
property Font:longint read Ffont;
end;
c2=class(c1)
function GetFont:longint;
end;
function c2.GetFont:longint;
begin
result:=Font;
result:=inherited Font;
end;
begin
end.

3
bugs/readme.txt
View File

@ -355,7 +355,8 @@ Fixed bugs:
bug0298.pp l1+l2:=l1+l2 gives no error OK 0.99.13 (PFV) bug0298.pp l1+l2:=l1+l2 gives no error OK 0.99.13 (PFV)
bug0300.pp crash if method on non existing object is parsed (form bug 651) OK 0.99.13 (PFV) bug0300.pp crash if method on non existing object is parsed (form bug 651) OK 0.99.13 (PFV)
bug0301.pp crash if destructor without object name is parsed OK 0.99.13 (PFV) bug0301.pp crash if destructor without object name is parsed OK 0.99.13 (PFV)
bug0302.pp inherited property generates wrong assembler OK 0.99.13 (PFV)
Unproducable bugs: Unproducable bugs:
------------------ ------------------