瀏覽代碼

+ turn on fpu exceptions for darwin/i386

git-svn-id: trunk@2928 -
Jonas Maebe 19 年之前
父節點
當前提交
2a90c43cea
共有 1 個文件被更改,包括 3 次插入0 次删除
  1. 3 0
      rtl/bsd/system.pp

+ 3 - 0
rtl/bsd/system.pp

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