mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 23:31:49 +02:00
29 lines
536 B
ObjectPascal
29 lines
536 B
ObjectPascal
{ Old file: tbs0045.pp }
|
|
{ shows problem with virtual private methods (might not be a true bugs but more of an incompatiblity?) the compiler warns now if there is a private and virtual method }
|
|
|
|
|
|
TYPE
|
|
tmyexample =object
|
|
public
|
|
constructor init;
|
|
destructor done; virtual;
|
|
private
|
|
procedure mytest;virtual; { syntax error --> should give only a
|
|
warning ? }
|
|
end;
|
|
|
|
constructor tmyexample.init;
|
|
begin
|
|
end;
|
|
|
|
destructor tmyexample.done;
|
|
Begin
|
|
end;
|
|
|
|
procedure tmyexample.mytest;
|
|
begin
|
|
end;
|
|
|
|
Begin
|
|
end.
|