[movitz-cvs] CVS movitz - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

4 Feb 2008

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv13579
Modified Files:
    asm-x86.lisp 
Log Message:
Add PREFETCH instructions.

--- /project/movitz/cvsroot/movitz/asm-x86.lisp	2008/02/04 11:48:27	1.15
+++ /project/movitz/cvsroot/movitz/asm-x86.lisp	2008/02/04 12:11:00	1.16
@@ -6,7 +6,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld frodef@acm.org
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: asm-x86.lisp,v 1.15 2008/02/04 11:48:27 ffjeld Exp $
+;;;; $Id: asm-x86.lisp,v 1.16 2008/02/04 12:11:00 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -1445,6 +1445,20 @@
 (define-operator* (:16 :popfw :32 :popfl :64 :popfr) ()
   (opcode #x9d))
+;;;;;;;;;;; PRFETCH
+
+(define-operator :prefetch-nta (m8)
+  (modrm m8 #x0f18 0))
+
+(define-operator :prefetch-t0 (m8)
+  (modrm m8 #x0f18 1))
+
+(define-operator :prefetch-t1 (m8)
+  (modrm m8 #x0f18 2))
+
+(define-operator :prefetch-t2 (m8)
+  (modrm m8 #x0f18 3))
+
 ;;;;;;;;;;; PUSH
(define-operator* (:16 :pushw :32 :pushl) (src)

    