[movitz-cvs] CVS movitz

[ffjeld]

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 at 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)