suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix GC setup so that it doesn't call an XP-only function

Browse Source 
svn: r13285
This commit is contained in:
Matthew Flatt 2009-01-26 16:46:49 +00:00
parent 4ad2f76b06
commit daa1261780
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/mzscheme/gc2/sighand.c
View File

@ -149,14 +149,17 @@ static void initialize_signal_handler(GCTYPE *gc)
# ifdef NEED_SIGWIN
{
HMODULE hm;
PVOID (WINAPI*aveh)(ULONG, gcPVECTORED_EXCEPTION_HANDLER);
hm = LoadLibrary("kernel32.dll");
if (hm) {
PVOID (WINAPI*aveh)(ULONG, gcPVECTORED_EXCEPTION_HANDLER);
if (hm)
aveh = (PVOID (WINAPI*)(ULONG, gcPVECTORED_EXCEPTION_HANDLER))GetProcAddress(hm, "AddVectoredExceptionHandler");
else
aveh = NULL;
if (aveh)
aveh(TRUE, fault_handler);
}
else /* WINDOWS 95 */
else /* older than Windows XP */
gc->generations_available = 0;
}
# endif