Changeset 7018 for branches

Timestamp:

Aug 8, 2007, 4:22:06 PM (17 years ago)

Author:

R. Matthew Emerson

Message:

Recognize :self pseudo-operand.

File:

• branches/ia32/compiler/X86/x86-backend.lisp (modified) (2 diffs)

branches/ia32/compiler/X86/x86-backend.lisp

@@ -50 +50 @@
         (:$ul  (x86::encode-operand-type :imm32))
         (:$q (x86::encode-operand-type :imm64))
-        (:%shift (x86::encode-operand-type :shiftcount :reg8))))))
+        (:%shift (x86::encode-operand-type :shiftcount :reg8))
+        (:self (x86::encode-operand-type :self))))))
 
 (defun lookup-x86-opcode (form backend)
@@ -264 +265 @@
                               (cons :@
                                     (simplify-memory-operand (cdr op))))
+                             ((eq (car op) :self)
+                              (format t "~&found :self")
+                              :self)
                              ((member (car op)
                                       '(:% :%q :%l :%w :%b :$ :$1 :$b :$ub :$w :$l