Changeset 10333


Ignore:
Timestamp:
Aug 5, 2008, 1:22:06 AM (11 years ago)
Author:
rme
Message:

x862-typechecked-form: changes for x8632

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/X86/x862.lisp

    r10205 r10333  
    89018901            (x862-one-targeted-reg-form seg form ($ *x862-arg-y*))
    89028902            (x862-store-immediate seg typespec ($ *x862-arg-z*))
    8903             (x862-store-immediate seg 'typep ($ x8664::fname))
     8903            (x862-store-immediate seg 'typep ($ *x862-fname*))
    89048904            (x862-set-nargs seg 2)
    89058905            (x862-vpush-register seg ($ *x862-arg-y*))
     
    89088908            (x862-vpop-register seg ($ *x862-arg-y*))
    89098909            (! cbranch-false (aref *backend-labels* ok) x86::x86-e-bits)
    8910             (x862-lri seg ($ x8664::arg_x) (ash $XWRONGTYPE *x862-target-fixnum-shift*))
    8911             (x862-store-immediate seg typespec ($ *x862-arg-z*))
    8912             (x862-set-nargs seg 3)
    8913             (! ksignalerr)
     8910            (target-arch-case
     8911             (:x8632
     8912              (let* ((*x862-vstack* *x862-vstack*)
     8913                     (*x862-top-vstack-lcell* *x862-top-vstack-lcell*))
     8914                (! reserve-outgoing-frame)
     8915                (incf *x862-vstack* (* 2 *x862-target-node-size*))
     8916                (! vpush-fixnum (ash $XWRONGTYPE *x862-target-fixnum-shift*))
     8917                (x862-store-immediate seg typespec ($ *x862-arg-z*))
     8918                (x862-set-nargs seg 3)
     8919                (! ksignalerr)))
     8920             (:x8664
     8921              (x862-lri seg ($ x8664::arg_x) (ash $XWRONGTYPE *x862-target-fixnum-shift*))
     8922              (x862-store-immediate seg typespec ($ *x862-arg-z*))
     8923              (x862-set-nargs seg 3)
     8924              (! ksignalerr)))
    89148925            (@ ok)
    89158926            (<- ($ *x862-arg-y*))
Note: See TracChangeset for help on using the changeset viewer.