From 3da4ccfb3eebfac1803c6d647987cb64e19751ff Mon Sep 17 00:00:00 2001 From: pierre Date: Mon, 2 Dec 2019 23:20:40 +0000 Subject: [PATCH] Merge r43631 to fixes branch ------------------------------------------------------------------------ --- Merging r43631 into '.': U compiler/nadd.pas --- Recording mergeinfo for merge of r43631 into '.': U . git-svn-id: branches/fixes_3_2@43633 - --- compiler/nadd.pas | 2 -- 1 file changed, 2 deletions(-) diff --git a/compiler/nadd.pas b/compiler/nadd.pas index 7a45fc4dff..13a4c741b2 100644 --- a/compiler/nadd.pas +++ b/compiler/nadd.pas @@ -1197,7 +1197,6 @@ implementation b : boolean; lt,rt : tnodetype; ot : tnodetype; - i64 : int64; {$ifdef state_tracking} factval : Tnode; change : boolean; @@ -2457,7 +2456,6 @@ implementation hp:=nil; if s64currencytype.typ=floatdef then begin - move(trealconstnode(right).value_currency,i64,sizeof(i64)); { if left is a currency integer constant, we can get rid of the factor 10000 } { int64(...) causes a cast on currency, so it is the currency value multiplied by 10000 } if (left.nodetype=realconstn) and (is_currency(left.resultdef)) and (not(nf_is_currency in left.flags)) and ((trunc(trealconstnode(left).value_real) mod 10000)=0) then