Changeset 10104


Ignore:
Timestamp:
Jul 18, 2008, 8:51:12 PM (11 years ago)
Author:
rme
Message:

Remove unused function interned_pname_bytes_in_range().

File:
1 edited

Legend:

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

    r10010 r10104  
    16871687}
    16881688
    1689 
    1690 
    1691 
    1692 /*
    1693   This may overestimate a bit, if the same symbol is accessible from multiple
    1694   packages.
    1695 */
    1696 natural
    1697 interned_pname_bytes_in_range(LispObj *start, LispObj *end)
    1698 {
    1699   lispsymbol *rawsym = (lispsymbol *)(&(nrs_ALL_PACKAGES));
    1700   LispObj pkg_list = rawsym->vcell, htab, obj, pname, pname_header;
    1701   package *p;
    1702   cons *c;
    1703   natural elements, i, nbytes = 0;
    1704 
    1705   while (fulltag_of(pkg_list) == fulltag_cons) {
    1706     c = (cons *) ptr_from_lispobj(untag(pkg_list));
    1707     p = (package *) ptr_from_lispobj(untag(c->car));
    1708     pkg_list = c->cdr;
    1709     c = (cons *) ptr_from_lispobj(untag(p->itab));
    1710     htab = c->car;
    1711     elements = header_element_count(header_of(htab));
    1712     for (i = 1; i<= elements; i++) {
    1713       obj = deref(htab,i);
    1714       if (fulltag_of(obj) == fulltag_symbol) {
    1715         rawsym = (lispsymbol *) ptr_from_lispobj(untag(obj));
    1716         pname = rawsym->pname;
    1717 
    1718         if ((pname >= (LispObj)start) && (pname < (LispObj)end)) {
    1719           pname_header = header_of(pname);
    1720           nbytes += ((8 + (header_element_count(pname_header)<<2) + 15) &~15);
    1721         }
    1722       }
    1723     }
    1724     c = (cons *) ptr_from_lispobj(untag(p->etab));
    1725     htab = c->car;
    1726     elements = header_element_count(header_of(htab));
    1727     for (i = 1; i<= elements; i++) {
    1728       obj = deref(htab,i);
    1729       if (fulltag_of(obj) == fulltag_symbol) {
    1730         rawsym = (lispsymbol *) ptr_from_lispobj(untag(obj));
    1731         pname = rawsym->pname;
    1732 
    1733         if ((pname >= (LispObj)start) && (pname < (LispObj)end)) {
    1734           pname_header = header_of(pname);
    1735           nbytes += ((8 + (header_element_count(pname_header)<<2) + 15) &~15);
    1736         }
    1737       }
    1738     }
    1739   }
    1740   return nbytes;
    1741 }
    1742 
    17431689Boolean
    17441690copy_ivector_reference(LispObj *ref, BytePtr low, BytePtr high, area *dest)
Note: See TracChangeset for help on using the changeset viewer.