From 53d2df07b692ba14153013266c9d3e4f099746fa Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Sun, 2 Feb 2020 18:28:42 +0000
Subject: [PATCH]   * mark handled currencies correctly, so they are handled
 properly by simplify

git-svn-id: trunk@44098 -
---
 compiler/ncnv.pas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/compiler/ncnv.pas b/compiler/ncnv.pas
index 657c324704..2b2912ce5f 100644
--- a/compiler/ncnv.pas
+++ b/compiler/ncnv.pas
@@ -1523,11 +1523,13 @@ implementation
             begin
               result:=caddnode.create(muln,getcopy,cordconstnode.create(10000,resultdef,false));
               include(result.flags,nf_is_currency);
+              include(taddnode(result).left.flags,nf_internal);
             end
            else if is_currency(left.resultdef) then
             begin
               result:=cmoddivnode.create(divn,getcopy,cordconstnode.create(10000,resultdef,false));
               include(result.flags,nf_is_currency);
+              include(taddnode(result).left.flags,nf_internal);
             end;
          end;
       end;
@@ -3138,6 +3140,7 @@ implementation
               else if (convtype=tc_int_2_int) and
                 is_currency(resultdef) then
                 begin
+                  printnode(self);
                   v:=tordconstnode(left).value;
                   if not(nf_internal in flags) and not(is_currency(left.resultdef)) then
                     v:=v*10000;