paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 08:47:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Add stdcall in case of makestub

Browse Source
This commit is contained in:
michael 2020-08-11 13:32:10 +00:00
parent 031890d363
commit 02a759f94d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/rtl/classes.pas
View File

@ -216,10 +216,10 @@ type
private
FOwnerInterface: IInterface;
protected
function _AddRef: Integer;
function _Release: Integer;
function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
function _Release: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
public
function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;{$IFDEF MAKESTUB} stdcall;{$ENDIF}
procedure AfterConstruction; override;
end;
@ -591,15 +591,15 @@ type
procedure ValidateContainer(AComponent: TComponent); virtual;
procedure ValidateInsert(AComponent: TComponent); virtual;
protected
function _AddRef: Integer;
function _Release: Integer;
function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
function _Release: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
public
constructor Create(AOwner: TComponent); virtual; reintroduce;
destructor Destroy; override;
procedure BeforeDestruction; override;
procedure DestroyComponents;
procedure Destroying;
function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual;
function QueryInterface(const IID: TGUID; out Obj): HRESULT; virtual; {$IFDEF MAKESTUB} stdcall;{$ENDIF}
procedure WriteState(Writer: TWriter); virtual;
// function ExecuteAction(Action: TBasicAction): Boolean; virtual;
function FindComponent(const AName: string): TComponent;