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

* when converting from and to currency divide or multiple the

Browse Source 
result by 10000
This commit is contained in:
peter 2002-11-27 11:29:21 +00:00
parent 184ddcb6ed
commit 8351bb059b
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/ncnv.pas
View File

@ -791,10 +791,14 @@ implementation
result:=nil;
if is_currency(left.resulttype.def) and not(is_currency(resulttype.def)) then
begin
left:=caddnode.create(slashn,left,crealconstnode.create(10000.0,left.resulttype));
resulttypepass(left);
end
else
if is_currency(resulttype.def) then
if is_currency(resulttype.def) and not(is_currency(left.resulttype.def)) then
begin
left:=caddnode.create(muln,left,crealconstnode.create(10000.0,left.resulttype));
resulttypepass(left);
end;
if left.nodetype=realconstn then
begin
@ -1971,7 +1975,11 @@ begin
end.
{
$Log$
Revision 1.89 2002-11-25 17:43:18 peter
Revision 1.90 2002-11-27 11:29:21 peter
* when converting from and to currency divide or multiple the
result by 10000
Revision 1.89 2002/11/25 17:43:18 peter
* splitted defbase in defutil,symutil,defcmp
* merged isconvertable and is_equal into compare_defs(_ext)
* made operator search faster by walking the list only once