paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 10:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

Remove assigned but unused local variable i64 in taddnode.pass_typecheck_internal as suggested by Ondrej Pokorny

Browse Source 
This also solves the "Invalid TypeCast Error" in rtl-objpas when compiled with -CriotR option.

git-svn-id: trunk@43631 -
This commit is contained in:
pierre 2019-12-02 23:11:21 +00:00
parent 10ddaab97a
commit 91e550edb6
1 changed files with 0 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nadd.pas
View File

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