paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 21:49:06 +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; result:=nil;
if is_currency(left.resulttype.def) and not(is_currency(resulttype.def)) then if is_currency(left.resulttype.def) and not(is_currency(resulttype.def)) then
begin begin
left:=caddnode.create(slashn,left,crealconstnode.create(10000.0,left.resulttype));
resulttypepass(left);
end end
else else
if is_currency(resulttype.def) then if is_currency(resulttype.def) and not(is_currency(left.resulttype.def)) then
begin begin
left:=caddnode.create(muln,left,crealconstnode.create(10000.0,left.resulttype));
resulttypepass(left);
end; end;
if left.nodetype=realconstn then if left.nodetype=realconstn then
begin begin
@ -1971,7 +1975,11 @@ begin
end. end.
{ {
$Log$ $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 * splitted defbase in defutil,symutil,defcmp
* merged isconvertable and is_equal into compare_defs(_ext) * merged isconvertable and is_equal into compare_defs(_ext)
* made operator search faster by walking the list only once * made operator search faster by walking the list only once