diff --git a/compiler/symdef.pas b/compiler/symdef.pas index 95125f400c..bfcdda392d 100644 --- a/compiler/symdef.pas +++ b/compiler/symdef.pas @@ -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