Changeset 9543
- Timestamp:
- May 17, 2008, 2:53:19 AM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/ia32/lib/nfcomp.lisp
r8372 r9543 997 997 ((#.target::subtag-pool #.target::subtag-weak #.target::subtag-lock) (fasl-unknown exp)) 998 998 (#+ppc-target #.target::subtag-symbol 999 1000 999 #+x8632-target #.target::subtag-symbol 1000 #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp)) 1001 1001 ((#.target::subtag-instance #.target::subtag-struct) 1002 1002 (fasl-scan-user-form exp)) … … 1009 1009 (fasl-scan-user-form exp)) 1010 1010 (fasl-scan-gvector exp))) 1011 #+x8632-target 1012 (#.target::subtag-function (fasl-scan-clfun exp)) 1011 1013 #+x8664-target 1012 1014 (#.target::tag-function (fasl-scan-clfun exp)) … … 1036 1038 (fasl-scan-form (%svref vec i)))) 1037 1039 1038 ;;; xxx x8664-target?1039 1040 #+x86-target 1040 1041 (defun fasl-scan-clfun (f) 1041 (let* ((fv ( %function-to-function-vector f))1042 (let* ((fv (function-to-function-vector f)) 1042 1043 (size (uvsize fv)) 1043 1044 (ncode-words (%function-code-words f))) … … 1406 1407 (fasl-xdump-clfun f) 1407 1408 (let* ((code-size (%function-code-words f)) 1408 (function-vector ( %function-to-function-vector f))1409 (function-vector (function-to-function-vector f)) 1409 1410 (function-size (uvsize function-vector))) 1410 1411 (fasl-out-opcode $fasl-clfun f) … … 1420 1421 1421 1422 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". 1425 1424 (defun fasl-xdump-clfun (f) 1426 1425 (target-arch-case
Note: See TracChangeset
for help on using the changeset viewer.