From c0c16a96a67312c05c1e836b885fc3ae6671f1a2 Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Wed, 27 Feb 2013 12:19:08 +0000
Subject: another attempt to fix problems with FPC & CALLSERVICE_NOTFOUND

git-svn-id: http://svn.miranda-ng.org/main/trunk@3793 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/ImportTXT/General.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/ImportTXT')

diff --git a/plugins/ImportTXT/General.pas b/plugins/ImportTXT/General.pas
index 637a394e18..709f6c27f6 100644
--- a/plugins/ImportTXT/General.pas
+++ b/plugins/ImportTXT/General.pas
@@ -373,7 +373,7 @@ begin
     if proto = '' then
       proto := GetContactProto(hContact);
     uid := PAnsiChar(CallProtoService(PAnsiChar(proto), PS_GETCAPS, PFLAG_UNIQUEIDSETTING, 0));
-    if (uint_ptr(uid) <> CALLSERVICE_NOTFOUND) and (uid <> nil) then
+    if (uid <> pAnsiChar(CALLSERVICE_NOTFOUND)) and (uid <> nil) then
     begin
       cgs.szModule := PAnsiChar(proto);
       cgs.szSetting := uid;
-- 
cgit v1.2.3