Changeset 11166


Ignore:
Timestamp:
Oct 18, 2008, 11:45:14 PM (11 years ago)
Author:
gb
Message:

check_all_areas() takes the current tcr as argument.

Location:
trunk/source/lisp-kernel
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lisp-kernel/gc-common.c

    r10814 r11166  
    11061106    GCDebug = ((nrs_GC_EVENT_STATUS_BITS.vcell & gc_integrity_check_bit) != 0);
    11071107    if (GCDebug) {
    1108       check_all_areas();
     1108      check_all_areas(tcr);
    11091109    }
    11101110  }
     
    13581358
    13591359  if (GCDebug) {
    1360     check_all_areas();
     1360    check_all_areas(tcr);
    13611361  }
    13621362
  • trunk/source/lisp-kernel/gc.h

    r10885 r11166  
    210210LispObj locative_forwarding_address(LispObj);
    211211void check_refmap_consistency(LispObj *, LispObj *, bitvector);
    212 void check_all_areas(void);
     212void check_all_areas(TCR *);
    213213void mark_tstack_area(area *);
    214214void mark_vstack_area(area *);
Note: See TracChangeset for help on using the changeset viewer.