diff --git a/compiler/sparc/insts.lisp b/compiler/sparc/insts.lisp
index 705feb820f17fbe79d171c1b0511b1555402371e..c71a721d5ff5998cc3360d31495e2b5ff0248e76 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.2 1990/12/06 17:36:17 ram Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/insts.lisp,v 1.3 1990/12/17 19:36:52 wlott Exp $
 ;;;
 ;;; Description of the SPARC architecture.
 ;;;
@@ -296,6 +296,13 @@
 		   (op2 :constant #b010)
 		   (disp :argument relative-label)))
 
+(define-instruction (t)
+  (format-3-immed (op :constant #b10)
+		  (rd :argument branch-condition)
+		  (op3 :constant #b111010)
+		  (rs1 :constant 0)
+		  (immed :argument (or (signed-byte 13) (unsigned-byte 13)))))
+
 (define-instruction (fb)
   (format-2-branch (op :constant #b00)
 		   (a :constant 0)