From 44b6b8e79643c5851dba2e6b5d7acb220e8e669f Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 6 Dec 1990 17:36:17 +0000
Subject: [PATCH] Defined ldfsr and stfsr for manipulating the floating-point
 modes.

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

diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index ea62df0b7..705feb820 100644
--- a/compiler/sparc/insts.lisp
+++ b/compiler/sparc/insts.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.1 1990/11/30 17:04:46 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.2 1990/12/06 17:36:17 ram Exp $
 ;;;
 ;;; Description of the SPARC architecture.
 ;;;
@@ -212,7 +212,19 @@
 (define-f3-inst ldstub #b11 #b001101 :load-store t)
 (define-f3-inst swap #b11 #b001111 :load-store t)
 
+(define-instruction (ldfsr)
+  (format-3-immed (op :constant #b11)
+		  (rd :constant 0)
+		  (op3 :constant #b100001)
+		  (rs1 :argument reg)
+		  (immed :argument (signed-byte 13))))
 
+(define-instruction (stfsr)
+  (format-3-immed (op :constant #b11)
+		  (rd :constant 0)
+		  (op3 :constant #b100101)
+		  (rs1 :argument reg)
+		  (immed :argument (signed-byte 13))))
 
 (define-f3-inst add #b10 #b000000 :fixup t)
 (define-f3-inst addcc #b10 #b010000)
-- 
GitLab