Browse Source

+ turn on fpu exceptions for darwin/i386

git-svn-id: trunk@2928 -
Jonas Maebe 19 years ago
parent
commit
2a90c43cea
1 changed files with 3 additions and 0 deletions
  1. 3 0
      rtl/bsd/system.pp

+ 3 - 0
rtl/bsd/system.pp

@@ -234,6 +234,9 @@ begin
   argc:= argcparam;
   argv:= argvparam;
   envp:= envpparam;
+{$ifdef cpui386}
+  Set8087CW(Default8087CW);  
+{$endif cpui386}
 {$if not defined(FPC_DARWIN_PASCALMAIN) or defined(FPC_DARWIN_JMP_MAIN)}
   pascalmain;  {run the pascal main program}
 {$endif}