Index: /branches/ia32/compiler/X86/x86-asm.lisp
===================================================================
--- /branches/ia32/compiler/X86/x86-asm.lisp	(revision 8072)
+++ /branches/ia32/compiler/X86/x86-asm.lisp	(revision 8073)
@@ -710,11 +710,11 @@
    (def-x86-opcode andl ((:imm8s :insert-imm8s) (:reg32 :insert-modrm-rm))
      #x83 #o340 #x00)
-   (def-x86-opcode andl ((:imm32s :insert-imm32s) (:acc :insert-nothing))
+   (def-x86-opcode andl (((:imm32s :imm32) :insert-imm32s) (:acc :insert-nothing))
      #x25 nil nil)
-   (def-x86-opcode andl ((:imm32s :insert-imm32s) (:reg32 :insert-modrm-rm))
+   (def-x86-opcode andl (((:imm32s :imm32) :insert-imm32s) (:reg32 :insert-modrm-rm))
      #x81 #o340 #x00)
    (def-x86-opcode andl ((:imm8s :insert-imm8s) (:anymem :insert-memory))
      #x83 #o040 #x00)
-   (def-x86-opcode andl ((:imm32s :insert-imm32s) (:anymem :insert-memory))
+   (def-x86-opcode andl (((:imm32s :imm32) :insert-imm32s) (:anymem :insert-memory))
      #x81 #o040 #x00)
 
@@ -3236,4 +3236,6 @@
    (def-x86-opcode psllq ((:anymem :insert-memory) (:regmmx :insert-mmx-reg))
      #x0ff3 #o000 #x0)
+   (def-x86-opcode psllq ((:imm8 :insert-imm8) (:regmmx :insert-mmx-rm))
+     #x0f73 #o360 #o0)
    (def-x86-opcode psllq ((:regxmm :insert-modrm-rm) (:regxmm :insert-modrm-reg))
      #x0ff3 #o300 #x0 #x66)