From dec436a332ba7a86ab45063ae78f9006fd7e2aa5 Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 14 Jul 2011 15:52:47 +0200
Subject: GDI: minor change to IUnknown interface code for FPC 2.5.1
 compatibility

---
 src/corelib/gdi/fpg_oledragdrop.pas | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'src/corelib')

diff --git a/src/corelib/gdi/fpg_oledragdrop.pas b/src/corelib/gdi/fpg_oledragdrop.pas
index fa17ba67..e4e7b9ed 100644
--- a/src/corelib/gdi/fpg_oledragdrop.pas
+++ b/src/corelib/gdi/fpg_oledragdrop.pas
@@ -78,9 +78,9 @@ type
     FOnDragDrop: TfpgOLEDragDropEvent;
   private
     { IInterface }
-    function    QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
-    function    _AddRef: Integer; stdcall;
-    function    _Release: Integer; stdcall;
+    function    QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid: TGuid; out obj): LongInt; stdcall;
+    function    _AddRef: longint; stdcall;
+    function    _Release: longint; stdcall;
     { IDropTarget }
     function    DragEnter(const dataObj: IDataObject; grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult;StdCall;
     function    DragOver(grfKeyState: DWORD; pt: TPoint; var dwEffect: DWORD): HResult; stdcall;
@@ -776,17 +776,17 @@ begin
   Result := S_OK;
 end;
 
-function TfpgOLEDropTarget._AddRef: Integer;
+function TfpgOLEDropTarget._AddRef: longint;
 begin
   Result := 1;
 end;
 
-function TfpgOLEDropTarget._Release: Integer;
+function TfpgOLEDropTarget._Release: longint;
 begin
   Result := 1;
 end;
 
-function TfpgOLEDropTarget.QueryInterface(const IID: TGUID; out Obj): HResult;
+function TfpgOLEDropTarget.QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid: TGuid; out obj): longint; stdcall;
 begin
   if GetInterface(IID, Obj) then
     Result := 0
-- 
cgit v1.2.3-70-g09d2