paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-03 02:58:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mark handled currencies correctly, so they are handled properly by simplify

Browse Source 
git-svn-id: trunk@44098 -
This commit is contained in:
florian 2020-02-02 18:28:42 +00:00
parent b777dc21d7
commit 53d2df07b6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncnv.pas
View File

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