* marked TObject.InitInstance as inline

git-svn-id: trunk@8400 -

rtl/inc/objpas.inc

@@ -184,7 +184,7 @@
             end;
         end;
 
-      class function TObject.InitInstance(instance : pointer) : tobject;
+      class function TObject.InitInstance(instance : pointer) : tobject; {$ifdef SYSTEMINLINE} inline; {$ENDIF}
 
         begin
            { the size is saved at offset 0 }

rtl/inc/objpash.inc

@@ -154,7 +154,7 @@
           procedure DefaultHandler(var message);virtual;
 
           procedure Free;
-          class function InitInstance(instance : pointer) : tobject;
+          class function InitInstance(instance : pointer) : tobject; {$ifdef SYSTEMINLINE} inline; {$endif}
           procedure CleanupInstance;
           class function ClassType : tclass;{$ifdef SYSTEMINLINE}inline;{$endif}
           class function ClassInfo : pointer;