paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-16 01:00:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: fix compilation

Browse Source 
git-svn-id: trunk@45898 -
This commit is contained in:
juha 2014-07-16 20:16:04 +00:00
parent edbefdfd3d
commit 54b39f97e9
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/project.pp
View File

@ -4044,7 +4044,7 @@ begin
end;
end;
function TProject.QueryInterface(constref iid: TGuid; out obj): LongInt; stdcall;
function TProject.QueryInterface(constref iid: TGuid; out obj): LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
if GetInterface(iid, obj) then
Result := S_OK
@ -4052,12 +4052,12 @@ begin
Result := E_NOINTERFACE;
end;
function TProject._AddRef: LongInt; stdcall;
function TProject._AddRef: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;
function TProject._Release: LongInt; stdcall;
function TProject._Release: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;

6
packager/packagedefs.pas
View File

@ -2428,7 +2428,7 @@ begin
FAutoInstall:=AValue;
end;
function TLazPackage.QueryInterface(constref iid: TGuid; out obj): LongInt; stdcall;
function TLazPackage.QueryInterface(constref iid: TGuid; out obj): LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
if GetInterface(iid, obj) then
Result := S_OK
@ -2436,12 +2436,12 @@ begin
Result := E_NOINTERFACE;
end;
function TLazPackage._AddRef: LongInt; stdcall;
function TLazPackage._AddRef: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;
function TLazPackage._Release: LongInt; stdcall;
function TLazPackage._Release: LongInt; {$IFDEF WINDOWS}stdcall{$ELSE}cdecl{$ENDIF};
begin
Result := -1;
end;