Changeset 7018


Ignore:
Timestamp:
Aug 8, 2007, 11:22:06 PM (13 years ago)
Author:
rme
Message:

Recognize :self pseudo-operand.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/compiler/X86/x86-backend.lisp

    r6466 r7018  
    5050        (:$ul  (x86::encode-operand-type :imm32))
    5151        (:$q (x86::encode-operand-type :imm64))
    52         (:%shift (x86::encode-operand-type :shiftcount :reg8))))))
     52        (:%shift (x86::encode-operand-type :shiftcount :reg8))
     53        (:self (x86::encode-operand-type :self))))))
    5354
    5455(defun lookup-x86-opcode (form backend)
     
    264265                              (cons :@
    265266                                    (simplify-memory-operand (cdr op))))
     267                             ((eq (car op) :self)
     268                              (format t "~&found :self")
     269                              :self)
    266270                             ((member (car op)
    267271                                      '(:% :%q :%l :%w :%b :$ :$1 :$b :$ub :$w :$l
Note: See TracChangeset for help on using the changeset viewer.