From 534eefa7029aaf49b0b673b6f6fb630752bb3fd5 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Wed, 18 Mar 2015 07:13:47 +0000 Subject: Pascal: service executing fix) git-svn-id: http://svn.miranda-ng.org/main/trunk@12427 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Actman/iac_global.pas | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'plugins/Actman/iac_global.pas') diff --git a/plugins/Actman/iac_global.pas b/plugins/Actman/iac_global.pas index df4f14bd05..aee55d1bfb 100644 --- a/plugins/Actman/iac_global.pas +++ b/plugins/Actman/iac_global.pas @@ -93,13 +93,13 @@ type const ModuleLink:pActModule=nil; -function ClearResult(var WorkData:tWorkData;num:integer=-1):uint_ptr; -function GetResultNumber(var WorkData:tWorkData;num:integer=-1):uint_ptr; +function ClearResult (var WorkData:tWorkData;num:integer=-1):uint_ptr; +function GetResultNumber(const WorkData:tWorkData;num:integer=-1):uint_ptr; procedure InsertString(wnd:HWND;num:dword;str:PAnsiChar); -function GetLinkName(hash:dword):PAnsiChar; -function GetLink(hash:dword):pActModule; +function GetLinkName (hash:dword ):PAnsiChar; +function GetLink (hash:dword ):pActModule; function GetLinkByName(name:pAnsiChar):pActModule; function ImportContact (node:HXML ):TMCONTACT; @@ -251,7 +251,7 @@ begin end; end; -function GetResultNumber(var WorkData:tWorkData;num:integer=-1):uint_ptr; +function GetResultNumber(const WorkData:tWorkData;num:integer=-1):uint_ptr; var rt:pbyte; lr:^uint_ptr; -- cgit v1.2.3