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

Use PInt64(@value_currency)^ construct to avoid internal error when starting from 3.0.4 ppcarm compiler

Browse Source 
git-svn-id: trunk@43634 -
This commit is contained in:
pierre 2019-12-03 16:05:30 +00:00
parent 91e550edb6
commit c87facbae1
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/nadd.pas
View File

@ -2756,14 +2756,22 @@ implementation
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
begin
{ trealconstnode expects that value_real and value_currency contain valid values }
trealconstnode(left).value_currency:=trealconstnode(left).value_currency {$ifdef FPC_CURRENCY_IS_INT64}div{$else}/{$endif} 10000;
{$ifdef FPC_CURRENCY_IS_INT64}
trealconstnode(left).value_currency:=pint64(@(trealconstnode(left).value_currency))^ div 10000;
{$else}
trealconstnode(left).value_currency:=trealconstnode(left).value_currency / 10000;
{$endif}
trealconstnode(left).value_real:=trealconstnode(left).value_real/10000;
end
{ or if right is an integer constant, we can get rid of its factor 10000 }
else if (right.nodetype=realconstn) and (is_currency(right.resultdef)) and (not(nf_is_currency in right.flags)) and ((trunc(trealconstnode(right).value_real) mod 10000)=0) then
begin
{ trealconstnode expects that value and value_currency contain valid values }
trealconstnode(right).value_currency:=trealconstnode(right).value_currency {$ifdef FPC_CURRENCY_IS_INT64}div{$else}/{$endif} 10000;
{$ifdef FPC_CURRENCY_IS_INT64}
trealconstnode(right).value_currency:=pint64(@(trealconstnode(right).value_currency))^ div 10000;
{$else}
trealconstnode(right).value_currency:=trealconstnode(right).value_currency / 10000;
{$endif}
trealconstnode(right).value_real:=trealconstnode(right).value_real/10000;
end
else