paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix typo

Browse Source 
git-svn-id: trunk@42031 -
This commit is contained in:
svenbarth 2019-05-10 15:25:05 +00:00
parent 1c583d3e0d
commit 496fbb4fc1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -539,7 +539,7 @@ resourcestring
SErrInvokeNotImplemented = 'Invoke functionality is not implemented'; SErrInvokeNotImplemented = 'Invoke functionality is not implemented';
SErrInvokeResultTypeNoValue = 'Function has a result type, but no result pointer provided'; SErrInvokeResultTypeNoValue = 'Function has a result type, but no result pointer provided';
SErrInvokeFailed = 'Invoke call failed'; SErrInvokeFailed = 'Invoke call failed';
SErrCallbackNotImplented = 'Callback functionality is not implemented'; SErrCallbackNotImplemented = 'Callback functionality is not implemented';
SErrCallConvNotSupported = 'Calling convention not supported: %s'; SErrCallConvNotSupported = 'Calling convention not supported: %s';
SErrTypeKindNotSupported = 'Type kind is not supported: %s'; SErrTypeKindNotSupported = 'Type kind is not supported: %s';
SErrCallbackHandlerNil = 'Callback handler is Nil'; SErrCallbackHandlerNil = 'Callback handler is Nil';
@ -2074,7 +2074,7 @@ end;
function CreateCallbackProc(aHandler: TFunctionCallProc; aCallConv: TCallConv; aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags; aContext: Pointer): TFunctionCallCallback; function CreateCallbackProc(aHandler: TFunctionCallProc; aCallConv: TCallConv; aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags; aContext: Pointer): TFunctionCallCallback;
begin begin
if not Assigned(FuncCallMgr[aCallConv].CreateCallbackProc) then if not Assigned(FuncCallMgr[aCallConv].CreateCallbackProc) then
raise ENotImplemented.Create(SErrCallbackNotImplented); raise ENotImplemented.Create(SErrCallbackNotImplemented);
if not Assigned(aHandler) then if not Assigned(aHandler) then
raise EArgumentNilException.Create(SErrCallbackHandlerNil); raise EArgumentNilException.Create(SErrCallbackHandlerNil);
@ -2085,7 +2085,7 @@ end;
function CreateCallbackMethod(aHandler: TFunctionCallMethod; aCallConv: TCallConv; aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags; aContext: Pointer): TFunctionCallCallback; function CreateCallbackMethod(aHandler: TFunctionCallMethod; aCallConv: TCallConv; aArgs: array of TFunctionCallParameterInfo; aResultType: PTypeInfo; aFlags: TFunctionCallFlags; aContext: Pointer): TFunctionCallCallback;
begin begin
if not Assigned(FuncCallMgr[aCallConv].CreateCallbackMethod) then if not Assigned(FuncCallMgr[aCallConv].CreateCallbackMethod) then
raise ENotImplemented.Create(SErrCallbackNotImplented); raise ENotImplemented.Create(SErrCallbackNotImplemented);
if not Assigned(aHandler) then if not Assigned(aHandler) then
raise EArgumentNilException.Create(SErrCallbackHandlerNil); raise EArgumentNilException.Create(SErrCallbackHandlerNil);