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

restore GC changes, since the problem seems to be elsewhere

Browse Source 
svn: r3918
This commit is contained in:
Matthew Flatt 2006-08-01 14:04:29 +00:00
parent 97af327701
commit 0b844b6780
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/gc2/newgc.c
View File

@ -593,7 +593,6 @@ inline static void resize_gen0(unsigned long new_size)
better to zero out on allocation, instead:
better locality, and we don't have to zero
for atomic allocations. */
bzero(PPTR(work) + HEADER_SIZEW, work->size - gcWORDS_TO_BYTES(HEADER_SIZEW)); /* REMOVEME */
alloced_size += GEN0_PAGE_SIZE;
work->size = HEADER_SIZEB;
prev = work;

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

@ -99,8 +99,9 @@ static void initialize_signal_handler()
memset(&act, sizeof(sigaction), 0);
act.sa_sigaction = fault_handler;
sigemptyset(&act.sa_mask);
sigaddset(&act.sa_mask, SIGCHLD); /* needed by MzScheme, since SIGCHLD handling
may trigger a write barrier */
/* In MzScheme, SIGCHLD or SIGINT handling may trigger a write barrier: */
sigaddset(&act.sa_mask, SIGINT);
sigaddset(&act.sa_mask, SIGCHLD);
act.sa_flags = SA_SIGINFO;
sigaction(USE_SIGACTON_SIGNAL_KIND, &act, &oact);
}