Quellcode durchsuchen

Allow to disable __cpu_features_init by defining DISABLE_CPU_FEATURES_INIT

git-svn-id: trunk@28938 -
pierre vor 10 Jahren
Ursprung
Commit
9e4e667842
1 geänderte Dateien mit 4 neuen und 0 gelöschten Zeilen
  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