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

* fixed fmtbcd for CPUs having no natural comp type

Browse Source 
git-svn-id: trunk@5084 -
This commit is contained in:
florian 2006-10-30 08:36:49 +00:00
parent 797c8de846
commit 6093708e65
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/objpas/fmtbcd.pp
View File

@ -201,11 +201,9 @@ INTERFACE
{$define myRealtype := extended} {$define myRealtype := extended}
{$endif} {$endif}
{$if declared ( comp ) } {$ifdef SUPPORT_COMP}
{$if declared ( int64 ) }
{$define comproutines} {$define comproutines}
{$endif} {$endif SUPPORT_COMP}
{$endif}
{$define __low_Fraction := 0 } {$define __low_Fraction := 0 }
{$define __high_Fraction := ( ( MaxFmtBCDFractionSize DIV 2 ) - 1 ) } {$define __high_Fraction := ( ( MaxFmtBCDFractionSize DIV 2 ) - 1 ) }