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

* fixed currency to float conversion

Browse Source
This commit is contained in:
florian 2004-10-15 22:54:53 +00:00
parent ef41a11698
commit 39805b678a
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/sparc/ncpucnv.pas
View File

@ -74,8 +74,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
@ -292,7 +297,10 @@ begin
end.
{
$Log$
Revision 1.33 2004-10-03 19:21:56 florian
Revision 1.34 2004-10-15 22:54:53 florian
* fixed currency to float conversion
Revision 1.33 2004/10/03 19:21:56 florian
* fixed dword->single/double on sparc
Revision 1.32 2004/09/25 14:23:55 peter