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

- removed "Set8087CW(Default8087CW)" call from SysEntry:

Browse Source 
o it is already performed in fpc_cpucodeinit
   o in libraries, fpc_cpucodeinit first sets Default8087CW to the current x87
     control word to avoid them enabling fpu exceptions if the host platform
     had first disabled them

git-svn-id: trunk@33993 -
This commit is contained in:
Jonas Maebe 2016-06-15 18:32:07 +00:00
parent 899add8c7d
commit 11c90a73b1
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
rtl/bsd/system.pp
View File

@ -315,9 +315,6 @@ end;
procedure SysEntry(constref info: TEntryInformation);[public,alias:'FPC_SysEntry']; procedure SysEntry(constref info: TEntryInformation);[public,alias:'FPC_SysEntry'];
begin begin
SetupEntryInformation(info); SetupEntryInformation(info);
{$ifdef cpui386}
Set8087CW(Default8087CW);
{$endif cpui386}
info.PascalMain(); info.PascalMain();
end; end;