Changeset 7240


Ignore:
Timestamp:
Sep 17, 2007, 5:28:03 PM (12 years ago)
Author:
rme
Message:

A few obvious changes for IA-32.

File:
1 edited

Legend:

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

    r6505 r7240  
    4040#+ppc64-target
    4141(require "PPC64-ARCH")
     42#+x8632-target
     43(require "X8632-ARCH")
    4244#+x8664-target
    4345(require "X8664-ARCH")
     
    970972          #.ppc64::fulltag-imm-2
    971973          #.ppc64::fulltag-imm-3))
     974        #+x8632-target
     975        (#.x8632::tag-imm)
    972976        #+x8664-target
    973977        ((#.x8664::fulltag-imm-0
     
    979983           #+ppc64-target
    980984           (= (the fixnum (logand type-code ppc64::lowtagmask)) ppc64::lowtag-immheader)
     985           #+x8632-target
     986           (= (the fixnum (logand type-code x8632::fulltagmask)) x8632::fulltag-immheader)
    981987           #+x8664-target
    982988           (and (= (the fixnum (lisptag exp)) x8664::tag-misc)
     
    991997             ((#.target::subtag-pool #.target::subtag-weak #.target::subtag-lock) (fasl-unknown exp))
    992998             (#+ppc-target #.target::subtag-symbol
    993                            #+x86-target #.target::tag-symbol (fasl-scan-symbol exp))
     999                           #+x8632-target #.target::subtag-symbol
     1000                           #+x8664-target #.target::tag-symbol (fasl-scan-symbol exp))
    9941001             ((#.target::subtag-instance #.target::subtag-struct)
    9951002              (fasl-scan-user-form exp))
     
    10021009                  (fasl-scan-user-form exp))
    10031010                (fasl-scan-gvector exp)))
    1004              #+x86-target
     1011             #+x8664-target
    10051012             (#.target::tag-function (fasl-scan-clfun exp))
    10061013             (t (fasl-scan-gvector exp)))))))))
     
    10291036    (fasl-scan-form (%svref vec i))))
    10301037
     1038;;; xxx x8664-target?
    10311039#+x86-target
    10321040(defun fasl-scan-clfun (f)
     
    14131421;;; Write a "concatenated function"; for now, assume that the target
    14141422;;; is x8664.
     1423;;; xxx add ia-32 support here
    14151424(defun fasl-xdump-clfun (f)
    14161425  (let* ((code (uvref f 0))
Note: See TracChangeset for help on using the changeset viewer.