mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-31 21:44:42 +02:00
dce9b3849b
o add accessibility info for fields and methods (public/protected/private)
o write method type info for methods not implemented in the current module
(for tf_dwarf_only_local_labels systems)
git-svn-id: trunk@13833 -
45 lines
615 B
ObjectPascal
45 lines
615 B
ObjectPascal
{ %opt=-gw}
|
|
{ %interactive }
|
|
{$mode objfpc}
|
|
|
|
{
|
|
1) check that all fields/procedures are shown in the correct visibility section
|
|
when doing "ptype TC"
|
|
2) check that "ptype TOBJECT" shows TOBJECT's methods even if the system
|
|
unit is not compiled with debuginfo
|
|
}
|
|
|
|
type
|
|
tc = class
|
|
private
|
|
f: longint;
|
|
procedure priv(a: longint);
|
|
protected
|
|
d: byte;
|
|
procedure prot; virtual;
|
|
public
|
|
c: longint;
|
|
procedure pub;
|
|
end;
|
|
|
|
procedure tc.priv(a: longint);
|
|
begin
|
|
end;
|
|
|
|
procedure tc.prot;
|
|
begin
|
|
end;
|
|
|
|
procedure tc.pub;
|
|
begin
|
|
end;
|
|
|
|
procedure myproc(a,b,c: longint);
|
|
begin
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|
|
|