From d329c6c4ba6dfdc4c6e241fd4bb306bb41ab60ff Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Thu, 27 Aug 2009 17:14:25 +0200
Subject: Fix 64bit compiler errors

---
 extras/tiopf/gui/tiRtfReport.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'extras/tiopf/gui')

diff --git a/extras/tiopf/gui/tiRtfReport.pas b/extras/tiopf/gui/tiRtfReport.pas
index 4f2d50d5..627d6d26 100644
--- a/extras/tiopf/gui/tiRtfReport.pas
+++ b/extras/tiopf/gui/tiRtfReport.pas
@@ -2901,7 +2901,7 @@ begin
     if AFieldName = '' then begin
       //Its a (nested) dataset
       Token := etDataset;
-      Value := integer(ADataset);
+      Value := PtrInt(ADataset);
     end
     else ResolveFieldValue(ADataset, AFieldName);
   end else begin
@@ -2927,7 +2927,7 @@ begin
   else begin
     //Its a dataset or objectlist reference
     Token := etDataset;
-    Value := integer(ADataset);
+    Value := PtrInt(ADataset);
   end;
 end;
 
@@ -4053,7 +4053,7 @@ begin
   AObject := TObject(Ptrint(AArgument.Value));
   ADataset := Datasets.Add(AObject, AAliasname, true);
   AArgument.Token := etDataset;
-  AArgument.Value := integer(ADataset);
+  AArgument.Value := PtrInt(ADataset);
 end;
 
 procedure TtiRtfParser.UdfLower(AArgument: TRtfArgument);
-- 
cgit v1.2.3-70-g09d2