Changeset 13757


Ignore:
Timestamp:
Jun 1, 2010, 11:15:39 AM (9 years ago)
Author:
gb
Message:

xfunction-dumping changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/lib/nfcomp.lisp

    r13569 r13757  
    16751675           (= (typecode (uvref f 0)) target::subtag-u8-vector))
    16761676    (fasl-xdump-clfun f)
    1677     (let* ((code-size (%function-code-words f))
    1678            (function-vector (function-to-function-vector f))
    1679            (function-size (uvsize function-vector)))
    1680       (fasl-out-opcode $fasl-clfun f)
    1681       (fasl-out-count function-size)
    1682       (fasl-out-count code-size)
    1683       (fasl-out-ivect function-vector 0 (ash code-size target::word-shift))
    1684       (do* ((k code-size (1+ k)))
    1685            ((= k function-size))
    1686         (declare (fixnum k))
    1687         (fasl-dump-form (uvref function-vector k))))))
     1677    (if (= (typecode f) target::subtag-xfunction)
     1678      (let* ((n (uvsize f)))
     1679        (fasl-out-opcode $fasl-function f)
     1680        (fasl-out-count n)
     1681        (dotimes (i n)
     1682          (fasl-dump-form (%svref f i))))       
     1683
     1684      (let* ((code-size (%function-code-words f))
     1685             (function-vector (function-to-function-vector f))
     1686             (function-size (uvsize function-vector)))
     1687        (fasl-out-opcode $fasl-clfun f)
     1688        (fasl-out-count function-size)
     1689        (fasl-out-count code-size)
     1690        (fasl-out-ivect function-vector 0 (ash code-size target::word-shift))
     1691        (do* ((k code-size (1+ k)))
     1692             ((= k function-size))
     1693          (declare (fixnum k))
     1694          (fasl-dump-form (uvref function-vector k)))))))
    16881695       
    16891696
Note: See TracChangeset for help on using the changeset viewer.