diff options
| author | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-12-12 16:49:49 +0000 |
|---|---|---|
| committer | pierre <pierre@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2011-12-12 16:49:49 +0000 |
| commit | ded5ce4125cffc629e12b07f3694fd4e00bb5553 (patch) | |
| tree | f246de2572ab57887f54d28ff74e78a32e9ce129 | |
| parent | 5c10b08baf74a215b80e3a6c9b15e3eb8340a36c (diff) | |
| download | fpc-ded5ce4125cffc629e12b07f3694fd4e00bb5553.tar.gz | |
Recent mingw64 does not seem to provide fctMsvcrtLongJmp
git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@19833 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | ide/fpmingw.pas | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/ide/fpmingw.pas b/ide/fpmingw.pas index 073dda77bc..c4d98c09f5 100644 --- a/ide/fpmingw.pas +++ b/ide/fpmingw.pas @@ -45,7 +45,11 @@ var _imp__atexit : TAtExitFunction; Cvar; external; // "true" atexit in mingw l var hMsvcrt : HModule = 0; free_Msvcrt : boolean; +{$ifdef win32} fctMsvcrtLongJmp : pointer;cvar;external; +{$else not win32} + fctMsvcrtLongJmp : pointer;cvar; +{$endif not win32} function atexit(p:TCFunction):longint;cdecl; [public, alias : '_atexit']; |