Browse Source

Recent mingw64 does not seem to provide fctMsvcrtLongJmp

git-svn-id: trunk@19833 -
pierre 13 years ago
parent
commit
4e21fc6373
1 changed files with 4 additions and 0 deletions
  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
 var
  hMsvcrt : HModule = 0;
  hMsvcrt : HModule = 0;
  free_Msvcrt : boolean;
  free_Msvcrt : boolean;
+{$ifdef win32}
  fctMsvcrtLongJmp : pointer;cvar;external;
  fctMsvcrtLongJmp : pointer;cvar;external;
+{$else not win32}
+ fctMsvcrtLongJmp : pointer;cvar;
+{$endif not win32}
 
 
 function atexit(p:TCFunction):longint;cdecl; [public, alias : '_atexit'];
 function atexit(p:TCFunction):longint;cdecl; [public, alias : '_atexit'];