anchor.diff:                                   (decode-gpr32 reg (rex-r info))
                                    imm))))))
   
  +(defun decode-ev-gv-cl (context info opcode16 opcode32 opcode64)
  +  (declare (ignore opcode16))
  +  (multiple-value-bind (reg r/m)
  +      (disassemble-ordinary-modr/m context info)
  +    (if (rex-w info)
  +        (and opcode64
  +             (make-instruction opcode64
  +                               (decode-gpr64-or-mem r/m (rex-b info))
  +                               (decode-gpr64 reg (rex-r info))
  +                               :cl))
  +        (and opcode32
  +             (make-instruction opcode32
  +                               (decode-gpr32-or-mem r/m (rex-b info))
  +                               (decode-gpr32 reg (rex-r info))
  +                               :cl)))))
  +
   (defun decode-ev-gv (context info opcode16 opcode32 opcode64)
     (declare (ignore opcode16))
     (multiple-value-bind (reg r/m)
  
positive.code:     nil
      nil
      (decode-ev-gv-ib sys.lap-x86:shrd16 sys.lap-x86:shrd32 sys.lap-x86:shrd64)
      nil
      nil
      nil
      (decode-eb-gb sys.lap-x86:cmpxchg) ; B0
  
negative.code:              (make-instruction opcode32
                                 (decode-gpr32 reg (rex-r info))
                                 (decode-gpr32-or-mem r/m (rex-b info)))))))
  
  (defun decode-gv-ev-ib (context info opcode16 opcode32 opcode64)
    (declare (ignore opcode16))
    (multiple-value-bind (reg r/m)
        (disassemble-ordinary-modr/m context info)
      (let ((imm (consume-sb8 context)))
        (if (rex-w info)
            (and opcode64
                 (make-instruction opcode64
                                   (decode-gpr64 reg (rex-r info))
                                   (decode-gpr64-or-mem r/m (rex-b info))
                                   imm))
            (and opcode32
                 (make-instruction opcode32
                                   (decode-gpr32 reg (rex-r info))
                                   (decode-gpr32-or-mem r/m (rex-b info))
                                   imm))))))
  
  (defun decode-ev64 (context info group-table)
    (multiple-value-bind (reg r/m)
  