paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Classes unit functions related to exceptions and stacktraces updated to use CodePointer

Browse Source 
git-svn-id: trunk@25516 -
This commit is contained in:
nickysn 2013-09-17 22:13:31 +00:00
parent 5e09b7a56f
commit fccbbd92b2
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/objpas/classes/classesh.inc
View File

@ -1692,7 +1692,7 @@ type
NameCount, LocaleID: Integer; DispIDs: Pointer): HResult; stdcall;
function Invoke(DispID: Integer; const IID: TGUID; LocaleID: Integer;
Flags: Word; var Params; VarResult, ExcepInfo, ArgErr: Pointer): HResult; stdcall;
function SafeCallException(ExceptObject: TObject; ExceptAddr: Pointer): HResult;
function SafeCallException(ExceptObject: TObject; ExceptAddr: CodePointer): HResult;
procedure FreeOnRelease;
end;
@ -1809,7 +1809,7 @@ type
procedure InsertComponent(AComponent: TComponent);
procedure RemoveComponent(AComponent: TComponent);
function SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult; override;
ExceptAddr: CodePointer): HResult; override;
procedure SetSubComponent(ASubComponent: Boolean);
function UpdateAction(Action: TBasicAction): Boolean; dynamic;
property ComObject: IUnknown read GetComObject;

2
rtl/objpas/classes/compon.inc
View File

@ -622,7 +622,7 @@ end;
Function TComponent.SafeCallException(ExceptObject: TObject;
ExceptAddr: Pointer): HResult;
ExceptAddr: CodePointer): HResult;
begin
if Assigned(VCLComObject) then
Result := IVCLComObject(VCLComObject).SafeCallException(ExceptObject, ExceptAddr)