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