[Openmcl-cvs-notifications] r10104 - /trunk/source/lisp-kernel/x86-gc.c

[rme at clozure.com]

Author: rme
Date: Fri Jul 18 16:51:12 2008
New Revision: 10104

Log:
Remove unused function interned_pname_bytes_in_range().

Modified:
    trunk/source/lisp-kernel/x86-gc.c

Modified: trunk/source/lisp-kernel/x86-gc.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/x86-gc.c (original)
+++ trunk/source/lisp-kernel/x86-gc.c Fri Jul 18 16:51:12 2008
@@ -1685,60 +1685,6 @@
   return purify_displaced_object(obj, dest, fulltag_of(obj));
 }
 =

-
-
-
-/*
-  This may overestimate a bit, if the same symbol is accessible from multi=
ple
-  packages.
-*/
-natural
-interned_pname_bytes_in_range(LispObj *start, LispObj *end)
-{
-  lispsymbol *rawsym =3D (lispsymbol *)(&(nrs_ALL_PACKAGES));
-  LispObj pkg_list =3D rawsym->vcell, htab, obj, pname, pname_header;
-  package *p;
-  cons *c;
-  natural elements, i, nbytes =3D 0;
-
-  while (fulltag_of(pkg_list) =3D=3D fulltag_cons) {
-    c =3D (cons *) ptr_from_lispobj(untag(pkg_list));
-    p =3D (package *) ptr_from_lispobj(untag(c->car));
-    pkg_list =3D c->cdr;
-    c =3D (cons *) ptr_from_lispobj(untag(p->itab));
-    htab =3D c->car;
-    elements =3D header_element_count(header_of(htab));
-    for (i =3D 1; i<=3D elements; i++) {
-      obj =3D deref(htab,i);
-      if (fulltag_of(obj) =3D=3D fulltag_symbol) {
-        rawsym =3D (lispsymbol *) ptr_from_lispobj(untag(obj));
-        pname =3D rawsym->pname;
-
-        if ((pname >=3D (LispObj)start) && (pname < (LispObj)end)) {
-          pname_header =3D header_of(pname);
-          nbytes +=3D ((8 + (header_element_count(pname_header)<<2) + 15) =
&~15);
-        }
-      }
-    }
-    c =3D (cons *) ptr_from_lispobj(untag(p->etab));
-    htab =3D c->car;
-    elements =3D header_element_count(header_of(htab));
-    for (i =3D 1; i<=3D elements; i++) {
-      obj =3D deref(htab,i);
-      if (fulltag_of(obj) =3D=3D fulltag_symbol) {
-        rawsym =3D (lispsymbol *) ptr_from_lispobj(untag(obj));
-        pname =3D rawsym->pname;
-
-        if ((pname >=3D (LispObj)start) && (pname < (LispObj)end)) {
-          pname_header =3D header_of(pname);
-          nbytes +=3D ((8 + (header_element_count(pname_header)<<2) + 15) =
&~15);
-        }
-      }
-    }
-  }
-  return nbytes;
-}
-
 Boolean
 copy_ivector_reference(LispObj *ref, BytePtr low, BytePtr high, area *dest)
 {