* 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

@@ -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