From f702c027f8641a8b6f26a02dba9466cf5de39c7f Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Tue, 25 Sep 2001 21:28:34 +0000
Subject: [PATCH] Some updates for loadw/storew in case the tn-offset doesn't
 fit into the instruction offset field.

---
 compiler/sparc/char.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/compiler/sparc/char.lisp b/compiler/sparc/char.lisp
index 818a592b0..7b3b979b1 100644
--- a/compiler/sparc/char.lisp
+++ b/compiler/sparc/char.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/char.lisp,v 1.8 2001/05/18 16:22:54 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/char.lisp,v 1.9 2001/09/25 21:28:34 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;; 
@@ -73,13 +73,14 @@
 	 (fp :scs (any-reg)
 	     :load-if (not (sc-is y base-char-reg))))
   (:results (y))
+  (:temporary (:sc non-descriptor-reg) temp)
   (:note "character arg move")
   (:generator 0
     (sc-case y
       (base-char-reg
        (move y x))
       (base-char-stack
-       (storew x fp (tn-offset y))))))
+       (storew x fp (tn-offset y) 0 temp)))))
 ;;;
 (define-move-vop move-base-char-argument :move-argument
   (any-reg base-char-reg) (base-char-reg))
-- 
GitLab