Changeset 6207


Ignore:
Timestamp:
Apr 8, 2007, 4:38:26 AM (13 years ago)
Author:
gb
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/nfcomp.lisp

    r5992 r6207  
    900900(defvar *make-load-form-hash*)
    901901
    902 ;Return a hash table containing subexp's which are referenced more than once.
     902;;;Return a hash table containing subexp's which are referenced more than once.
    903903(defun fasl-scan (forms)
    904904  (let* ((*fasdump-hash* (make-hash-table :size (length forms)          ; Crude estimate
     
    986986                                 (ash 1 x8664::fulltag-immheader-2))))
    987987           (case type-code
    988              ((#.target::subtag-macptr #.target::subtag-dead-macptr) (fasl-unknown exp))
     988             ((#.target::subtag-macptr #.target::subtag-dead-macptr) (unless (%null-ptr-p exp) (fasl-unknown exp)))
    989989             (t (fasl-scan-ref exp)))
    990990           (case type-code
Note: See TracChangeset for help on using the changeset viewer.