Changeset 9743


Ignore:
Timestamp:
Jun 13, 2008, 5:24:37 AM (11 years ago)
Author:
rme
Message:

Add forgotten vinsn %ref-symbol-value.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/X8632/x8632-vinsns.lisp

    r9693 r9743  
    31613161  :done)
    31623162
     3163(define-x8632-vinsn (%ref-symbol-value :call :subprim-call)
     3164    (((val :lisp))
     3165     ((sym (:lisp (:ne val)))))
     3166  (:talign 5)
     3167  (call (:@ .SPspecref))
     3168  (movl (:$self 0) (:%l x8632::fn)))
     3169
    31633170(define-x8632-vinsn %ref-symbol-value-inline (((dest :lisp))
    31643171                                              ((src (:lisp (:ne dest))))
     
    34403447   (movl (:%l src) (:%l dest)))
    34413448  (shll (:$ub (- x8632::charcode-shift x8632::fixnumshift)) (:%l dest))
    3442   ((:and (:pred >= (:apply %hard-regspec-value dest) x8632::eax)
    3443          (:pred <= (:apply %hard-regspec-value dest) x8632::ebx))
    3444    (addb (:$b x8632::subtag-character) (:%b dest)))
    3445   ((:pred > (:apply %hard-regspec-value dest) x8632::ebx)
     3449  ((:pred <= x8632::subtag-character #x7f)
     3450   (addl (:$b x8632::subtag-character) (:%l dest)))
     3451  ((:pred > x8632::subtag-character #x7f)
    34463452   (addl (:$l x8632::subtag-character) (:%l dest)))
    34473453  :done)
Note: See TracChangeset for help on using the changeset viewer.