Skip to content

Commit 8448b4b

Browse files
committed
para fix in delphi demo
1 parent 8cb4932 commit 8448b4b

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

Delphi/src/uMPFunctionsImpl.pas

+2-2
Original file line numberDiff line numberDiff line change
@@ -84,8 +84,8 @@ procedure OnMPStepFunction;
8484

8585
function OnMPRetrieveAbilities(const AObj: pointer; const AReg: TRegTSMasterFunction): s32;
8686
begin
87-
if not AReg(AObj, 'on_custom_callback', 'perform_add', 'const A1: s32; const A2: s32', @perform_add, 'add function example') then Exit(-1);
88-
if not AReg(AObj, 'on_custom_callback', 'perform_dec', 'const A1: s32', @perform_dec, 'dec function example') then Exit(-1);
87+
if not AReg(AObj, 'on_custom_callback', 'perform_add', 'const s32 A1, const s32 A2', @perform_add, 'add function example') then Exit(-1);
88+
if not AReg(AObj, 'on_custom_callback', 'perform_dec', 'const s32 A1' , @perform_dec, 'dec function example') then Exit(-1);
8989
Result := 2;
9090

9191
end;

0 commit comments

Comments
 (0)