Skip to content
Snippets Groups Projects
Commit 7cc3289c authored by wlott's avatar wlott
Browse files

Fixed set-auto-gc-trigger to look for the free pointer in

*allocation-pointer* on the RT instead of in current_dyn_space_free_ptr,
'cause it's not there.
parent 83f1f03e
No related branches found
No related tags found
No related merge requests found
/*
* Stop and Copy GC based on Cheney's algorithm.
*
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.28 1991/05/24 17:36:47 wlott Exp $
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.29 1991/09/27 10:45:45 wlott Exp $
*
* Written by Christopher Hoover.
*/
......@@ -1900,13 +1900,20 @@ void set_auto_gc_trigger(dynamic_usage)
os_vm_size_t length=
DYNAMIC_SPACE_SIZE + (os_vm_address_t)current_dynamic_space - addr;
if(addr<(os_vm_address_t)current_dynamic_space_free_pointer){
#ifdef ibmrt
#define CURDYNFREEPTR (os_vm_address_t)SymbolValue(ALLOCATION_POINTER)
#else
#define CURDYNFREEPTR (os_vm_address_t)current_dynamic_space_free_pointer
#endif
if(addr < CURDYNFREEPTR) {
fprintf(stderr,
"set_auto_gc_trigger: tried to set gc trigger too low! (%d < %d)\n",
dynamic_usage,
current_dynamic_space_free_pointer-current_dynamic_space);
CURDYNFREEPTR - (os_vm_address_t)current_dynamic_space);
return;
}else if(length<0){
}
else if (length < 0) {
fprintf(stderr,
"set_auto_gc_trigger: tried to set gc trigger too high! (%d)\n",
dynamic_usage);
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment