Update of /project/movitz/cvsroot/movitz In directory clnet:/tmp/cvs-serv8206 Modified Files: asm-x86.lisp Log Message: Add MULL instruction. --- /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/04 07:45:12 1.14 +++ /project/movitz/cvsroot/movitz/asm-x86.lisp 2008/02/04 11:48:27 1.15 @@ -6,7 +6,7 @@ ;;;; Author: Frode Vatvedt Fjeld <frodef@acm.org> ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: asm-x86.lisp,v 1.14 2008/02/04 07:45:12 ffjeld Exp $ +;;;; $Id: asm-x86.lisp,v 1.15 2008/02/04 11:48:27 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -1358,6 +1358,13 @@ (define-operator* (:32 :movzxw) (src dst) (reg-modrm dst src #x0fb7)) +;;;;;;;;;;; MUL + +(define-operator/32 :mull (factor product1 &optional product2) + (when (and (eq product1 :eax) + (eq product2 :edx)) + (modrm factor #xf7 4))) + ;;;;;;;;;;; NEG (define-operator/8 :negb (dst)