From 4d1d52d7e11e9f4272bb42a2b718ec4a510e445a Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Tue, 10 Mar 1998 21:24:35 +0000
Subject: [PATCH] Add the V9s FMOVD and FMOVQ instructions.

---
 compiler/sparc/insts.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index b175b4b66..4d8714137 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.15 1998/03/03 16:12:12 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.16 1998/03/10 21:24:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -768,6 +768,8 @@
   (:dependencies (reads dst) (reads src1) (writes dst))
   (:delay 0)
   (:emitter (emit-fp-inst segment #b000000001 #b110100 dst nil src1 t)))
+(define-unary-fp-inst fmovd #b000000010)	; V9
+(define-unary-fp-inst fmovq #b000000011)	; V9
 
 (define-unary-fp-inst fnegs #b000000101)
 (define-unary-fp-inst fabss #b000001001)
-- 
GitLab