Changeset 14025


Ignore:
Timestamp:
Jul 23, 2010, 1:09:47 PM (9 years ago)
Author:
gb
Message:

About 7 years late: use the current (GC) thread's binding of *PACKAGE*
for GCTWA, not the static binding.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lisp-kernel/gc-common.c

    r13897 r14025  
    14711471      {
    14721472        LispObj
    1473           itab;
     1473          itab,
     1474          pkgidx = nrs_PACKAGE.binding_index;
    14741475        natural
    14751476          dnode, ndnodes;
    14761477     
    1477         pkg = nrs_PACKAGE.vcell;
     1478        if ((pkgidx >= tcr->tlb_limit) ||
     1479            ((pkg = tcr->tlb_pointer[pkgidx>>fixnumshift]) ==
     1480             no_thread_local_binding_marker)) {
     1481          pkg = nrs_PACKAGE.vcell;
     1482        }
    14781483        if ((fulltag_of(pkg) == fulltag_misc) &&
    14791484            (header_subtag(header_of(pkg)) == subtag_package)) {
Note: See TracChangeset for help on using the changeset viewer.