* Fixed compilation on Windows/WinCE after merging the XPCom branch in r16180

git-svn-id: trunk@16181 -

packages/winunits-base/src/comobj.pp

@@ -113,7 +113,7 @@ unit comobj;
         function IUnknown._Release = ObjRelease;
 
         { IUnknown methods for other interfaces }
-        function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+        function QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
         function _AddRef: Integer; stdcall;
         function _Release: Integer; stdcall;
 
@@ -126,7 +126,7 @@ unit comobj;
         destructor Destroy; override;
         procedure Initialize; virtual;
         function ObjAddRef: Integer; virtual; stdcall;
-        function ObjQueryInterface(const IID: TGUID; out Obj): HResult; virtual; stdcall;
+        function ObjQueryInterface(constref IID: TGUID; out Obj): HResult; virtual; stdcall;
         function ObjRelease: Integer; virtual; stdcall;
         function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult; override;
         property Controller: IUnknown read GetController;
@@ -161,7 +161,7 @@ unit comobj;
         function GetProgID: string;
       protected
         { IUnknown }
-        function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+        function QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
         function _AddRef: Integer; stdcall;
         function _Release: Integer; stdcall;
         { IClassFactory }
@@ -692,7 +692,7 @@ implementation
       end;
 
 
-    function TComObject.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function TComObject.QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
       begin
         if assigned(FController) then
           Result:=IUnknown(FController).QueryInterface(IID,Obj)
@@ -778,7 +778,7 @@ implementation
       end;
 
 
-    function TComObject.ObjQueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function TComObject.ObjQueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
       begin
         if GetInterface(IID,Obj) then
           Result:=S_OK
@@ -823,7 +823,7 @@ implementation
       end;
 
 
-    function TComObjectFactory.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function TComObjectFactory.QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
       begin
         if GetInterface(IID,Obj) then
           Result:=S_OK

packages/winunits-base/src/oleserver.pp

@@ -18,7 +18,7 @@ type
   private
     FServer : TOleServer;
   protected
-    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
     function _AddRef: Integer; stdcall;
     function _Release: Integer; stdcall;
     function GetTypeInfoCount(out Count: Integer): HResult; stdcall;
@@ -49,7 +49,7 @@ type
     FEventDispatch: TServerEventDispatch;
     FServerData: PServerData;
   protected
-    function QueryInterface(const IID: TGUID; out Obj): HResult; stdcall; override;
+    function QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall; override;
     function _AddRef: Integer; stdcall;
     function _Release: Integer; stdcall;
 
@@ -85,7 +85,7 @@ type
 
 implementation
 
-    function TServerEventDispatch.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function TServerEventDispatch.QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
       begin
       end;
 
@@ -132,7 +132,7 @@ implementation
       end;
 
 
-    function TOleServer.QueryInterface(const IID: TGUID; out Obj): HResult; stdcall;
+    function TOleServer.QueryInterface(constref IID: TGUID; out Obj): HResult; stdcall;
       begin
       end;