Ignore:
Timestamp:
May 17, 2008, 2:53:19 AM (12 years ago)
Author:
rme
Message:

fasl-scan-dispatch: Call fasl-scan-clfun on x8632 functions.

fasl-scan-clfun: use archmacro function-to-function-vector.

File:
1 edited

Legend:

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

    r8372 r9543  
    997997             ((#.target::subtag-pool #.target::subtag-weak #.target::subtag-lock) (fasl-unknown exp))
    998998             (#+ppc-target #.target::subtag-symbol
    999                            #+x8632-target #.target::subtag-symbol
    1000                            #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp))
     999              #+x8632-target #.target::subtag-symbol
     1000              #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp))
    10011001             ((#.target::subtag-instance #.target::subtag-struct)
    10021002              (fasl-scan-user-form exp))
     
    10091009                  (fasl-scan-user-form exp))
    10101010                (fasl-scan-gvector exp)))
     1011             #+x8632-target
     1012             (#.target::subtag-function (fasl-scan-clfun exp))
    10111013             #+x8664-target
    10121014             (#.target::tag-function (fasl-scan-clfun exp))
     
    10361038    (fasl-scan-form (%svref vec i))))
    10371039
    1038 ;;; xxx x8664-target?
    10391040#+x86-target
    10401041(defun fasl-scan-clfun (f)
    1041   (let* ((fv (%function-to-function-vector f))
     1042  (let* ((fv (function-to-function-vector f))
    10421043         (size (uvsize fv))
    10431044         (ncode-words (%function-code-words f)))
     
    14061407    (fasl-xdump-clfun f)
    14071408    (let* ((code-size (%function-code-words f))
    1408            (function-vector (%function-to-function-vector f))
     1409           (function-vector (function-to-function-vector f))
    14091410           (function-size (uvsize function-vector)))
    14101411      (fasl-out-opcode $fasl-clfun f)
     
    14201421 
    14211422
    1422 ;;; Write a "concatenated function"; for now, assume that the target
    1423 ;;; is x8664.
    1424 ;;; xxx add ia-32 support here
     1423;;; Write a "concatenated function".
    14251424(defun fasl-xdump-clfun (f)
    14261425  (target-arch-case
Note: See TracChangeset for help on using the changeset viewer.