X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;h=4cac73ab87da91c547febb26401c2b83c50c4679;hb=905a0fc4c21ff6c8c752b9436e0616b868f1dfcc;hp=8f9028b3becf6e85691e133910619141ba7dd02d;hpb=cd056980425e3fa67b8b77de3936ccb46508c3b0;p=sbcl.git diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c index 8f9028b..4cac73a 100644 --- a/src/runtime/gencgc.c +++ b/src/runtime/gencgc.c @@ -1970,9 +1970,9 @@ search_read_only_space(void *pointer) lispobj *end = (lispobj *) SymbolValue(READ_ONLY_SPACE_FREE_POINTER,0); if ((pointer < (void *)start) || (pointer >= (void *)end)) return NULL; - return (search_space(start, - (((lispobj *)pointer)+2)-start, - (lispobj *) pointer)); + return (gc_search_space(start, + (((lispobj *)pointer)+2)-start, + (lispobj *) pointer)); } lispobj * @@ -1982,9 +1982,9 @@ search_static_space(void *pointer) lispobj *end = (lispobj *)SymbolValue(STATIC_SPACE_FREE_POINTER,0); if ((pointer < (void *)start) || (pointer >= (void *)end)) return NULL; - return (search_space(start, - (((lispobj *)pointer)+2)-start, - (lispobj *) pointer)); + return (gc_search_space(start, + (((lispobj *)pointer)+2)-start, + (lispobj *) pointer)); } /* a faster version for searching the dynamic space. This will work even @@ -2001,9 +2001,9 @@ search_dynamic_space(void *pointer) return NULL; start = (lispobj *)((void *)page_address(page_index) + page_table[page_index].first_object_offset); - return (search_space(start, - (((lispobj *)pointer)+2)-start, - (lispobj *)pointer)); + return (gc_search_space(start, + (((lispobj *)pointer)+2)-start, + (lispobj *)pointer)); } /* Is there any possibility that pointer is a valid Lisp object @@ -4060,7 +4060,7 @@ gencgc_pickup_dynamic(void) page_table[page].bytes_used = PAGE_BYTES; page_table[page].large_object = 0; - first=search_space(prev,(ptr+2)-prev,ptr); + first=gc_search_space(prev,(ptr+2)-prev,ptr); if(ptr == first) prev=ptr; page_table[page].first_object_offset = (void *)prev - page_address(page);