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/HistoryPlusPlus/hpp_contacts.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'plugins/HistoryPlusPlus')

diff --git a/plugins/HistoryPlusPlus/hpp_contacts.pas b/plugins/HistoryPlusPlus/hpp_contacts.pas
index 288c083123..b78c4db72e 100644
--- a/plugins/HistoryPlusPlus/hpp_contacts.pas
+++ b/plugins/HistoryPlusPlus/hpp_contacts.pas
@@ -135,7 +135,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