Changeset 6207

Timestamp:

Apr 7, 2007, 9:38:26 PM (18 years ago)

Author:

Gary Byers

Message:

FASL-SCAN: null-pointers as constants are OK.

File:

• trunk/ccl/lib/nfcomp.lisp (modified) (2 diffs)

trunk/ccl/lib/nfcomp.lisp

@@ -900 +900 @@
 (defvar *make-load-form-hash*)
 
-;Return a hash table containing subexp's which are referenced more than once.
+;;;Return a hash table containing subexp's which are referenced more than once.
 (defun fasl-scan (forms)
   (let* ((*fasdump-hash* (make-hash-table :size (length forms)          ; Crude estimate
@@ -986 +986 @@
                                  (ash 1 x8664::fulltag-immheader-2))))
            (case type-code
-             ((#.target::subtag-macptr #.target::subtag-dead-macptr) (fasl-unknown exp))
+             ((#.target::subtag-macptr #.target::subtag-dead-macptr) (unless (%null-ptr-p exp) (fasl-unknown exp)))
              (t (fasl-scan-ref exp)))
            (case type-code