From 89257f94c609bf5eaf53a0dc9f77f94cf819ab4b Mon Sep 17 00:00:00 2001
From: tom_at_work <tom_at_work@idefix.freepascal.org>
Date: Sun, 21 Jan 2007 22:09:32 +0000
Subject: [PATCH] * do not convert input of unaryminusnode to sint if the
 original is currency; fixes tfloattostr for 64 bit platforms which use int64
 as currency type

git-svn-id: trunk@6110 -
---
 compiler/nmat.pas | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/compiler/nmat.pas b/compiler/nmat.pas
index 7eab24f821..d2350025bf 100644
--- a/compiler/nmat.pas
+++ b/compiler/nmat.pas
@@ -651,8 +651,10 @@ implementation
 {$endif cpu64bit}
          else if (left.resultdef.typ=orddef) then
            begin
-              inserttypeconv(left,sinttype);
-              resultdef:=left.resultdef;
+              if (torddef(left.resultdef).ordtype <> scurrency) then begin
+                inserttypeconv(left,sinttype);
+                resultdef:=left.resultdef;
+              end;
            end
          else
            begin