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

+ m68k: default implementation of fpc_cpuinit, provides correct masking of floating-point exceptions and fixes test/testv8.pp.

Browse Source 
git-svn-id: trunk@28128 -
This commit is contained in:
sergei 2014-07-02 16:23:40 +00:00
parent a7a9440692
commit e232dd5066
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/m68k/m68k.inc
View File

@ -31,6 +31,9 @@
procedure fpc_cpuinit; procedure fpc_cpuinit;
begin begin
SysResetFPU;
if (not IsLibrary) then
SysInitFPU;
end; end;
{$define FPC_SYSTEM_HAS_GET_FRAME} {$define FPC_SYSTEM_HAS_GET_FRAME}