Explorar o código

Recent mingw64 does not seem to provide fctMsvcrtLongJmp

git-svn-id: trunk@19833 -
pierre %!s(int64=13) %!d(string=hai) anos
pai
achega
4e21fc6373
Modificáronse 1 ficheiros con 4 adicións e 0 borrados
  1. 4 0
      ide/fpmingw.pas

+ 4 - 0
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'];