From 3d481b87e1815cea2a0ed55052f534e07f9c34a8 Mon Sep 17 00:00:00 2001
From: jesusr <jesusr@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 23 Nov 2009 18:05:21 +0000
Subject: [PATCH] rx, fix 64 bit compile

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1017 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/rxmemds.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/rx/rxmemds.pas b/components/rx/rxmemds.pas
index 6cea00023..d9b9ddbc0 100644
--- a/components/rx/rxmemds.pas
+++ b/components/rx/rxmemds.pas
@@ -844,7 +844,7 @@ begin
       if Boolean(RecBuf[0]) then Move(Buffer^, RecBuf[1], DataSize);
     end;
     if not (State in [dsCalcFields, dsFilter, dsNewValue]) then
-      DataEvent(deFieldChange, Longint(Field));
+      DataEvent(deFieldChange, ptrint(Field));
   end;
 end;
 
@@ -1506,7 +1506,7 @@ begin
   if FOpened and FModified then FField.Modified := True;
   if FModified then
   try
-    FDataSet.DataEvent(deFieldChange, Longint(FField));
+    FDataSet.DataEvent(deFieldChange, ptrint(FField));
   except
     Application.HandleException(Self);
   end;