* SysResetFPU fix for BeOS by Olivier Coursiere

git-svn-id: trunk@9010 -

rtl/beos/system.pp

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