Browse Source

Remove assigned but unused local variable i64 in taddnode.pass_typecheck_internal as suggested by Ondrej Pokorny
This also solves the "Invalid TypeCast Error" in rtl-objpas when compiled with -CriotR option.

git-svn-id: trunk@43631 -

pierre 5 years ago
parent
commit
91e550edb6
1 changed files with 0 additions and 2 deletions
  1. 0 2
      compiler/nadd.pas

+ 0 - 2
compiler/nadd.pas

@@ -1449,7 +1449,6 @@ implementation
         b           : boolean;
         b           : boolean;
         lt,rt       : tnodetype;
         lt,rt       : tnodetype;
         ot          : tnodetype;
         ot          : tnodetype;
-        i64         : int64;
 {$ifdef state_tracking}
 {$ifdef state_tracking}
         factval     : Tnode;
         factval     : Tnode;
         change      : boolean;
         change      : boolean;
@@ -2752,7 +2751,6 @@ implementation
                   hp:=nil;
                   hp:=nil;
                   if s64currencytype.typ=floatdef then
                   if s64currencytype.typ=floatdef then
                     begin
                     begin
-                      move(trealconstnode(right).value_currency,i64,sizeof(i64));
                       { if left is a currency integer constant, we can get rid of the factor 10000 }
                       { 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 }
                       { 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
                       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