mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-03 23:50:36 +02:00
* class ref. properties can be published now
This commit is contained in:
parent
92244190a1
commit
c5c6df8237
@ -368,6 +368,7 @@ interface
|
||||
constructor ppuload(ppufile:tcompilerppufile);
|
||||
procedure ppuwrite(ppufile:tcompilerppufile);override;
|
||||
function gettypename:string;override;
|
||||
function is_publishable : boolean;override;
|
||||
{ debug }
|
||||
{$ifdef GDB}
|
||||
function stabstring : pchar;override;
|
||||
@ -2685,6 +2686,13 @@ implementation
|
||||
end;
|
||||
|
||||
|
||||
function tclassrefdef.is_publishable : boolean;
|
||||
begin
|
||||
is_publishable:=true;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
{***************************************************************************
|
||||
TSETDEF
|
||||
***************************************************************************}
|
||||
@ -6396,7 +6404,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.302 2005-03-28 15:04:13 peter
|
||||
Revision 1.303 2005-04-03 15:20:42 florian
|
||||
* class ref. properties can be published now
|
||||
|
||||
Revision 1.302 2005/03/28 15:04:13 peter
|
||||
fix loading of inline info
|
||||
|
||||
Revision 1.301 2005/03/25 21:55:43 jonas
|
||||
|
Loading…
Reference in New Issue
Block a user