/[cmucl]/src/lisp/gencgc.c
ViewVC logotype

Diff of /src/lisp/gencgc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by dtc, Wed Dec 31 18:07:42 1997 UTC revision 1.9 by dtc, Wed Jan 14 10:40:58 1998 UTC
# Line 3838  search_static_space(lispobj *pointer) Line 3838  search_static_space(lispobj *pointer)
3838    
3839  /* Faster version for searching the dynamic space. This will work even  /* Faster version for searching the dynamic space. This will work even
3840     if the object is in a current allocation region. */     if the object is in a current allocation region. */
3841  static lispobj*  lispobj*
3842  search_dynamic_space(lispobj *pointer)  search_dynamic_space(lispobj *pointer)
3843  {  {
3844    int  page_index = find_page_index(pointer);    int  page_index = find_page_index(pointer);
# Line 3852  search_dynamic_space(lispobj *pointer) Line 3852  search_dynamic_space(lispobj *pointer)
3852    return (search_space(start, (pointer+2)-start, pointer));    return (search_space(start, (pointer+2)-start, pointer));
3853  }  }
3854    
3855  int  static int
3856  valid_dynamic_space_pointer(lispobj *pointer)  valid_dynamic_space_pointer(lispobj *pointer)
3857  {  {
3858    lispobj *start_addr;    lispobj *start_addr;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.5