[press-svn] SF.net SVN: pressobjects:[1079] trunk/Source/Core/PressClasses.pas

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

Revision: 1079
          http://pressobjects.svn.sourceforge.net/pressobjects/?rev=1079&view=rev
Author:   jcmoraisjr
Date:     2011-05-11 01:53:23 +0000 (Wed, 11 May 2011)

Log Message:
-----------
[Core] Fixed fpc 2.5+ compilation.

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

Modified: trunk/Source/Core/PressClasses.pas
===================================================================
--- trunk/Source/Core/PressClasses.pas	2010-12-24 14:08:20 UTC (rev 1078)
+++ trunk/Source/Core/PressClasses.pas	2011-05-11 01:53:23 UTC (rev 1079)
@@ -79,7 +79,7 @@
     FRefCount: Integer;
   protected
     procedure Finit; virtual;
-    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function QueryInterface({$ifdef fpc_has_constref}constref{$else}const{$endif} IID: TGUID; out Obj): HResult; stdcall;
     function SupportsIntf(const IID: TGUID): Boolean;
     function _AddRef: Integer; stdcall;
     function _Release: Integer; stdcall;
@@ -389,7 +389,7 @@
 end;
 
 function TPressManagedObject.QueryInterface(
-  const IID: TGUID; out Obj): HResult; stdcall;
+  {$ifdef fpc_has_constref}constref{$else}const{$endif} IID: TGUID; out Obj): HResult; stdcall;
 begin
   if GetInterface(IID, Obj) then
     Result := 0


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.