paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:06:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ define DEFAULT_DOUBLE on m68k

Browse Source 
git-svn-id: trunk@8499 -
This commit is contained in:
florian 2007-09-16 10:20:16 +00:00
parent 334b9b4ee1
commit b11e861b0f
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/inc/systemh.inc
View File

@ -130,11 +130,13 @@ Type
{$endif CPUX86_64} {$endif CPUX86_64}
{$ifdef CPUM68K} {$ifdef CPUM68K}
ValReal = Real; {$define DEFAULT_DOUBLE}
{$define SUPPORT_SINGLE} {$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE} {$define SUPPORT_DOUBLE}
ValReal = Real;
{ Comp type does not exist on fpu } { Comp type does not exist on fpu }
Comp = int64; Comp = int64;
PComp = ^Comp; PComp = ^Comp;
@ -903,4 +905,3 @@ const
{$ifdef fpdocsystem} {$ifdef fpdocsystem}
{$i system.fpd} {$i system.fpd}
{$endif} {$endif}