paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 14:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Properly set FPU control word for wince. It fixes testv8.pp

Browse Source 
git-svn-id: trunk@5944 -
This commit is contained in:
yury 2007-01-13 15:10:44 +00:00
parent 34b731b44c
commit dfab1fbb7b
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/wince/system.pp
View File

@ -1781,8 +1781,9 @@ end;
initialization
StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := StackTop - StackLength;
{ Enable FPU exceptions }
_controlfp(1, $0008001F);
{ Enable FPU exceptions, but disable INEXACT, UNDERFLOW, DENORMAL }
{ FPU precision 64 bit, rounding to nearest, affine infinity }
_controlfp($000C0003, $030F031F);
{ some misc stuff }
hprevinst:=0;
if not IsLibrary then