paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-02 12:10:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@16181 -
This commit is contained in:
joost 2010-10-18 15:22:53 +00:00
parent 07bf44517c
commit 56cd935acf
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/winunits-base/src/comobj.pp
View File

@ -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

8
packages/winunits-base/src/oleserver.pp
View File

@ -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;