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

+ infrastructure for DispInterface call dispatching

Browse Source 
git-svn-id: trunk@5793 -
This commit is contained in:
florian 2007-01-02 23:06:17 +00:00
parent abcf865224
commit 21955282d0
6 changed files with 22 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/inc/compproc.inc
View File

@ -313,6 +313,7 @@ procedure fpc_intf_assign(var D: pointer; const S: pointer); compilerproc;
procedure fpc_intf_assign_by_iid(var D: pointer; const S: pointer; const iid: TGUID); compilerproc;
function fpc_intf_as(const S: pointer; const iid: TGUID): IInterface; compilerproc;
function fpc_class_as_intf(const S: pointer; const iid: TGUID): IInterface; compilerproc;
procedure fpc_dispatch_by_id(Result: Pointer; const Dispatch: IDispatch;DispDesc: Pointer; Params: Pointer); compilerproc;
{$endif FPC_HAS_FEATURE_CLASSES}

14
rtl/inc/objpas.inc
View File

@ -13,6 +13,20 @@
**********************************************************************}
procedure DoDispCallByIDError(res : Pointer; const disp : IDispatch;desc : PDispDesc; params : Pointer);
begin
handleerrorframe(RuntimeErrorExitCodes[reVarDispatch],get_frame);
end;
procedure fpc_dispatch_by_id(Result: Pointer; const Dispatch: IDispatch;
DispDesc: Pointer; Params: Pointer); compilerproc;
type
TDispProc = procedure(res : Pointer; const disp : IDispatch;desc : PDispDesc; params : Pointer);
begin
TDispProc(DispCallByIDProc)(Result,Dispatch,DispDesc,Params);
end;
{****************************************************************************
Internal Routines called from the Compiler
****************************************************************************}

2
rtl/inc/objpash.inc
View File

@ -330,3 +330,5 @@
vtQWord : (VQWord: PQWord);
end;
var
DispCallByIDProc : pointer;

1
rtl/win32/system.pp
View File

@ -1143,4 +1143,5 @@ begin
initvariantmanager;
initwidestringmanager;
InitWin32Widestrings;
DispCallByIDProc:=@DoDispCallByIDError;
end.

1
rtl/win64/system.pp
View File

@ -1167,4 +1167,5 @@ begin
initvariantmanager;
initwidestringmanager;
InitWin32Widestrings;
DispCallByIDProc:=@DoDispCallByIDError;
end.

7
rtl/wince/system.pp
View File

@ -1807,9 +1807,8 @@ initialization
initvariantmanager;
initwidestringmanager;
InitWinCEWidestrings
finalization
{ Cleanup }
SysCleanup;
DispCallByIDProc:=@DoDispCallByIDError;
finalization
SysCleanup;
end.