Explorar o código

Allow to disable __cpu_features_init by defining DISABLE_CPU_FEATURES_INIT

git-svn-id: trunk@28938 -
pierre %!s(int64=10) %!d(string=hai) anos
pai
achega
9e4e667842
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      ide/fpmingw.pas

+ 4 - 0
ide/fpmingw.pas

@@ -14,6 +14,8 @@ unit fpmingw;
 
 
  **********************************************************************}
  **********************************************************************}
 
 
+{$I globdir.inc}
+
 interface
 interface
 
 
 // mingw put atexit in binaries, so that it can have one atexit, and call it from
 // mingw put atexit in binaries, so that it can have one atexit, and call it from
@@ -72,9 +74,11 @@ procedure doinit;
 begin
 begin
  // not (yet) done: set mingw exception handlers:
  // not (yet) done: set mingw exception handlers:
  // SetUnhandledExceptionFilter (_gnu_exception_handler);
  // SetUnhandledExceptionFilter (_gnu_exception_handler);
+{$ifndef DISABLE_CPU_FEATURES_INIT}
 {$ifdef win32}
 {$ifdef win32}
   __cpu_features_init;        // load CPU features. Might be useful for debugger :-)
   __cpu_features_init;        // load CPU features. Might be useful for debugger :-)
 {$endif win32}
 {$endif win32}
+{$endif ndef DISABLE_CPU_FEATURES_INIT}
 
 
  // fpreset; 		      // don't do this, we init our own fp mask
  // fpreset; 		      // don't do this, we init our own fp mask