paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-11 15:49:38 +01: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' 'cfv4e'
); );
fputypestr : array[tfputype] of string[8] = ('', fputypestr : array[tfputype] of string[8] = (
'NONE',
'SOFT', 'SOFT',
'LIBGCC', 'LIBGCC',
'68881', '68881',

2
rtl/inc/systemh.inc
View File

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

2
rtl/m68k/m68k.inc
View File

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