[Instantobjects-cvscommit] SF.net SVN: instantobjects: [760] trunk/Source/Core/InstantPersistence.pas

[<jcm...@us...>]

Revision: 760
          http://svn.sourceforge.net/instantobjects/revision/?rev=760&view=rev
Author:   jcmoraisjr
Date:     2007-02-24 11:35:00 -0800 (Sat, 24 Feb 2007)

Log Message:
-----------
Small fpc-compatibility optimization.

Modified Paths:
--------------
    trunk/Source/Core/InstantPersistence.pas

Modified: trunk/Source/Core/InstantPersistence.pas
===================================================================
--- trunk/Source/Core/InstantPersistence.pas	2007-02-24 19:31:26 UTC (rev 759)
+++ trunk/Source/Core/InstantPersistence.pas	2007-02-24 19:35:00 UTC (rev 760)
@@ -901,11 +901,7 @@
     procedure Changed; virtual;
     function ChangesDisabled: Boolean;
     procedure CheckId;
-{$IFDEF FPC}
-    class function ClassType: TInstantObjectClass;
-{$ELSE}
-    function ClassType: TInstantObjectClass;
-{$ENDIF}
+    {$IFDEF FPC}class{$ENDIF} function ClassType: TInstantObjectClass;
     procedure ClearObjects;
     function Clone(AConnector: TInstantConnector = nil): TInstantObject; overload;
     function ContainerByName(const ContainerName: string): TInstantContainer;
@@ -5412,11 +5408,7 @@
   end;
 end;
 
-{$IFDEF FPC}
-class function TInstantObject.ClassType: TInstantObjectClass;
-{$ELSE}
-function TInstantObject.ClassType: TInstantObjectClass;
-{$ENDIF}
+{$IFDEF FPC}class{$ENDIF} function TInstantObject.ClassType: TInstantObjectClass;
 begin
   Result := TInstantObjectClass(inherited ClassType);
 end;