TOPIC:

    
  procedure AddToStructInits(p:TObject;arg:pointer); //For CodeTyphon
    var
      StructList: TFPList absolute arg;
    begin
      if (tdef(p).typ in [objectdef,recorddef]) and
         not (df_generic in tdef(p).defoptions) then
        begin
          // first add the class... 
          if ([oo_has_class_constructor,oo_has_class_destructor] * tabstractrecorddef(p).objectoptions <> []) then
            StructList.Add(p);
          // ... and then also add all subclasses       
            
          {$IF DEFINED(CPU64) and DEFINED(SUNOS)}      // ct9999
             //tabstractrecorddef(p).symtable.deflist.foreachcall(@AddToStructInits,arg);
          {$ELSE} 
             tabstractrecorddef(p).symtable.deflist.foreachcall(@AddToStructInits,arg);   
          {$ENDIF}   
          
        end;
    end;