|
|
@@ -135,6 +135,7 @@ interface
|
|
|
function gettypename:string;override;
|
|
|
procedure ppuwrite(ppufile:tcompilerppufile);override;
|
|
|
procedure setsize;
|
|
|
+ function is_publishable : boolean;override;
|
|
|
function needs_inittable : boolean;override;
|
|
|
procedure write_rtti_data(rt:trttitype);override;
|
|
|
{$ifdef GDB}
|
|
|
@@ -2509,6 +2510,13 @@ implementation
|
|
|
end;
|
|
|
{$endif GDB}
|
|
|
|
|
|
+
|
|
|
+ function tvariantdef.is_publishable : boolean;
|
|
|
+ begin
|
|
|
+ is_publishable:=true;
|
|
|
+ end;
|
|
|
+
|
|
|
+
|
|
|
{****************************************************************************
|
|
|
TPOINTERDEF
|
|
|
****************************************************************************}
|
|
|
@@ -6399,7 +6407,10 @@ implementation
|
|
|
end.
|
|
|
{
|
|
|
$Log$
|
|
|
- Revision 1.304 2005-04-25 13:15:18 peter
|
|
|
+ Revision 1.305 2005-05-07 16:43:02 florian
|
|
|
+ + made variant publishable
|
|
|
+
|
|
|
+ Revision 1.304 2005/04/25 13:15:18 peter
|
|
|
* extended stabs use size of 10
|
|
|
|
|
|
Revision 1.303 2005/04/03 15:20:42 florian
|
florian