paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 13:09:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* SysResetFPU fix for BeOS by Olivier Coursiere

Browse Source 
git-svn-id: trunk@9010 -
This commit is contained in:
florian 2007-10-30 22:00:58 +00:00
parent e207391454
commit 04086e9df2
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/beos/system.pp
View File

@ -348,12 +348,15 @@ end;
var var
s : string; s : string;
begin begin
SysResetFPU;
IsConsole := TRUE; IsConsole := TRUE;
IsLibrary := FALSE; IsLibrary := FALSE;
StackLength := CheckInitialStkLen(InitialStkLen); StackLength := CheckInitialStkLen(InitialStkLen);
StackBottom := Sptr - StackLength; StackBottom := Sptr - StackLength;
SysResetFPU;
if not(IsLibrary) then
SysInitFPU;
{ Set up signals handlers } { Set up signals handlers }
InstallSignals; InstallSignals;