mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-11 18:25:58 +02:00
Allow to disable __cpu_features_init by defining DISABLE_CPU_FEATURES_INIT
git-svn-id: trunk@28938 -
This commit is contained in:
parent
721c5d0947
commit
9e4e667842
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user