diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp index ea62df0b779e6f18c0203f134288a2f2e9244520..705feb820f17fbe79d171c1b0511b1555402371e 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)