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

* Try to compile with mingw64 gdb

Browse Source 
git-svn-id: trunk@16314 -
This commit is contained in:
pierre 2010-11-08 15:37:09 +00:00
parent fb13dfc18f
commit 64af782aca
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/gdbint/examples/mingw.pas
View File

@ -35,15 +35,25 @@ uses gdbint; // force dependancies that hopefully make it execute at the right m
Type
TAtexitFunction = function(p:TCFUnction):longint cdecl;
{$ifdef win64}
var __imp_atexit : TAtExitFunction; Cvar; external; // "true" atexit in mingw libs.
{$else not win64}
var _imp__atexit : TAtExitFunction; Cvar; external; // "true" atexit in mingw libs.
{$endif not win64}
function atexit(p:TCFunction):longint;cdecl; [public, alias : '_atexit'];
begin
{$ifdef win64}
atexit:=__imp_atexit(p); // simply route to "true" atexit
{$else not win64}
atexit:=_imp__atexit(p); // simply route to "true" atexit
{$endif not win64}
end;
{$ifdef win32}
procedure __cpu_features_init; cdecl; external;
{$endif win32}
procedure _pei386_runtime_relocator; cdecl; external;
procedure __main; cdecl;external;
@ -52,7 +62,9 @@ procedure doinit;
begin
// not (yet) done: set mingw exception handlers:
// SetUnhandledExceptionFilter (_gnu_exception_handler);
{$ifdef win32}
__cpu_features_init; // load CPU features. Might be useful for debugger :-)
{$endif win32}
// fpreset; // don't do this, we init our own fp mask