From f18a22f5a6eb3a7cc4b552f7b04148d4d32586de Mon Sep 17 00:00:00 2001
From: marco <marco@freepascal.org>
Date: Sun, 3 Apr 2005 11:50:58 +0000
Subject: [PATCH]  * patch for 3854 added. There are probably more places that
 need explicit currency handling.

---
 rtl/objpas/typinfo.pp | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/rtl/objpas/typinfo.pp b/rtl/objpas/typinfo.pp
index 1d3d8ff625..f5e2b38ec0 100644
--- a/rtl/objpas/typinfo.pp
+++ b/rtl/objpas/typinfo.pp
@@ -1309,6 +1309,10 @@ begin
         ftComp:
           PComp(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
 {$endif FPC_COMP_IS_INT64}
+{$ifdef HASCURRENCY}
+        ftCurr:
+ 	  PCurrency(Pointer(Instance)+PtrUInt(PropInfo^.SetProc))^:=Value;
+{$endif HASCURRENCY}
        end;
     ptStatic,
     ptVirtual:
@@ -1525,7 +1529,11 @@ end;
 end.
 {
   $Log$
-  Revision 1.41  2005-03-14 21:15:52  florian
+  Revision 1.42  2005-04-03 11:50:58  marco
+   * patch for 3854 added. There are probably more places that need explicit
+  currency handling.
+
+  Revision 1.41  2005/03/14 21:15:52  florian
     * fixed compilation on i386
 
   Revision 1.40  2005/03/14 19:16:06  peter