Pascal: service executing fix)

git-svn-id: http://svn.miranda-ng.org/main/trunk@12427 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 5 insertions, 5 deletions

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;