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

m68k: fix no FPU support

Browse Source 
git-svn-id: trunk@37227 -
This commit is contained in:
Károly Balogh 2017-09-16 18:13:57 +00:00
parent dd723f2c7b
commit e1501c86bf
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/m68k/cpuinfo.pas
View File

@ -117,7 +117,8 @@ Const
'cfv4e'
);
fputypestr : array[tfputype] of string[8] = ('',
fputypestr : array[tfputype] of string[8] = (
'NONE',
'SOFT',
'LIBGCC',
'68881',

6
rtl/inc/systemh.inc
View File

@ -218,10 +218,10 @@ Type
{ m68k int64 shl/shr uses soft helper for non constant values }
{$define FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
{$ifndef FPUNONE}
{$define SUPPORT_SINGLE}
{$define SUPPORT_DOUBLE}
ValReal = Real;
{$endif}

2
rtl/m68k/m68k.inc
View File

@ -75,9 +75,11 @@ procedure fpc_cpuinit;
procedure fpc_cpuinit;
begin
{$IFNDEF FPUNONE}
SysResetFPU;
if (not IsLibrary) then
SysInitFPU;
{$ENDIF}
end;
{$ENDIF}