From 6c4d35fca373a55252f4bce0bd0102f78eb67037 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Mon, 17 Jun 2013 21:57:16 +0000
Subject: ProtoServiceExists moved to mir_core all another copies of it removed

git-svn-id: http://svn.miranda-ng.org/main/trunk@5006 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 include/delphi/m_core.inc    |  7 +++++++
 include/delphi/m_helpers.inc | 17 -----------------
 2 files changed, 7 insertions(+), 17 deletions(-)

(limited to 'include/delphi')

diff --git a/include/delphi/m_core.inc b/include/delphi/m_core.inc
index 0be77bbe48..04801f8702 100644
--- a/include/delphi/m_core.inc
+++ b/include/delphi/m_core.inc
@@ -518,6 +518,13 @@ function mir_vsntprintf(buffer:pWideChar;count:size_t;fmt:pWideChar;va:va_list):
                  external CoreDLL name 'mir_vsntprintf';
 
 
+///////////////////////////////////////////////////////////////////////////////
+// protocol functions
+
+function ProtoServiceExists(const szModule, szName:PAnsiChar):int; stdcall;
+                 external CoreDLL name 'ProtoServiceExists';
+
+
 ///////////////////////////////////////////////////////////////////////////////
 // sha1 functions
 type
diff --git a/include/delphi/m_helpers.inc b/include/delphi/m_helpers.inc
index e9bedfd7be..9c3881fe31 100644
--- a/include/delphi/m_helpers.inc
+++ b/include/delphi/m_helpers.inc
@@ -1,7 +1,5 @@
 {$IFDEF M_API_UNIT}
 
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-
 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
 function CreateVersionStringPlugin(pluginInfo:PPluginInfoEx;buf:PAnsiChar):PAnsiChar;
 function PLUGIN_MAKE_VERSION(a,b,c,d: Cardinal): int;
@@ -90,21 +88,6 @@ function Options_OpenPage(ood:POPENOPTIONSDIALOG):HWND;
 
 {$ELSE}
 
-function ProtoServiceExists(const proto,service: PAnsiChar): int;
-var
-  buf:array [0..127] of AnsiChar;
-begin
-  if (proto=nil) or (service=nil) then
-  begin
-    result:=0;
-    exit;
-  end;
-  lStrCpyA(@buf,proto);
-  lStrCatA(@buf,service);
-  result:=ServiceExists(@buf);
-end;
-
-
 function CreateVersionString(version:dword;buf:PAnsiChar):PAnsiChar;
 var
   vers:array [0..3] of integer;
-- 
cgit v1.2.3