paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-08-19 11:29:05 +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 private
FOwnerInterface: IInterface; FOwnerInterface: IInterface;
protected protected
function _AddRef: Integer; function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
function _Release: Integer; function _Release: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
public 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; procedure AfterConstruction; override;
end; end;
@ -591,15 +591,15 @@ type
procedure ValidateContainer(AComponent: TComponent); virtual; procedure ValidateContainer(AComponent: TComponent); virtual;
procedure ValidateInsert(AComponent: TComponent); virtual; procedure ValidateInsert(AComponent: TComponent); virtual;
protected protected
function _AddRef: Integer; function _AddRef: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
function _Release: Integer; function _Release: Integer; {$IFDEF MAKESTUB}stdcall;{$ENDIF}
public public
constructor Create(AOwner: TComponent); virtual; reintroduce; constructor Create(AOwner: TComponent); virtual; reintroduce;
destructor Destroy; override; destructor Destroy; override;
procedure BeforeDestruction; override; procedure BeforeDestruction; override;
procedure DestroyComponents; procedure DestroyComponents;
procedure Destroying; 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; procedure WriteState(Writer: TWriter); virtual;
// function ExecuteAction(Action: TBasicAction): Boolean; virtual; // function ExecuteAction(Action: TBasicAction): Boolean; virtual;
function FindComponent(const AName: string): TComponent; function FindComponent(const AName: string): TComponent;