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

* fixed currency division

Browse Source
This commit is contained in:
florian 2004-11-01 12:10:26 +00:00
parent 1cf3aef0f0
commit 13618bb9cd
1 changed files with 12 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/arm/narmcnv.pas
View File

@ -61,7 +61,8 @@ implementation
verbose,globals,systems,
symconst,symdef,aasmbase,aasmtai,
defutil,
cgbase,pass_1,pass_2,
cgbase,cgutils,
pass_1,pass_2,
ncon,ncal,
ncgutil,
cpubase,aasmcpu,
@ -77,8 +78,13 @@ implementation
fname: string[19];
begin
{ converting a 64bit integer to a float requires a helper }
if is_64bitint(left.resulttype.def) then
if is_64bitint(left.resulttype.def) or
is_currency(left.resulttype.def) then
begin
{ hack to avoid double division by 10000, as it's
already done by resulttypepass.resulttype_int_to_real }
if is_currency(left.resulttype.def) then
left.resulttype := s64inttype;
if is_signed(left.resulttype.def) then
fname := 'fpc_int64_to_double'
else
@ -220,7 +226,10 @@ begin
end.
{
$Log$
Revision 1.12 2004-10-31 21:45:03 peter
Revision 1.13 2004-11-01 12:10:26 florian
* fixed currency division
Revision 1.12 2004/10/31 21:45:03 peter
* generic tlocation
* move tlocation to cgutils