paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 16:19:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allow to disable __cpu_features_init by defining DISABLE_CPU_FEATURES_INIT

Browse Source 
git-svn-id: trunk@28938 -
This commit is contained in:
pierre 2014-10-27 22:10:51 +00:00
parent 721c5d0947
commit 9e4e667842
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/fpmingw.pas
View File

@ -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