Changeset 14086


Ignore:
Timestamp:
Jul 29, 2010, 10:30:00 PM (9 years ago)
Author:
gz
Message:

in decomp-afunc, handle circular refs

Location:
trunk/source
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source

  • trunk/source/compiler/nx-basic.lisp

    r14044 r14086  
    838838        (if ref ;; seen before, mark that multiply referenced.
    839839            (setf (acode-afunc-ref-index ref) 0)
    840             (push (setq ref (make-acode-afunc-ref :afunc afunc
    841                                                   :object (decomp-form (afunc-acode afunc))))
    842                   *nx-acode-inner-refs*))
     840            (progn
     841              (push (setq ref (make-acode-afunc-ref :afunc afunc)) *nx-acode-inner-refs*)
     842              (setf (acode-afunc-ref-object ref) (decomp-form (afunc-acode afunc)))))
    843843        ref)
    844844      afunc))
Note: See TracChangeset for help on using the changeset viewer.