From 129d57aa077fb46b1daf4e6c152a9cac1f488adc Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Mon, 27 Oct 2003 16:59:31 +0000
Subject: [PATCH] Use ldn/stn in loadw/storew.

---
 compiler/sparc/macros.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index 245507343..abda0576a 100644
--- a/compiler/sparc/macros.lisp
+++ b/compiler/sparc/macros.lisp
@@ -5,11 +5,11 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.27 2003/10/16 16:25:19 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.28 2003/10/27 16:59:31 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.27 2003/10/16 16:25:19 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.28 2003/10/27 16:59:31 toy Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -56,10 +56,10 @@
 		     (inst li ,temp ,offs)
 		     (inst ,',inst ,object ,base ,temp)))))
 	   `(inst ,',inst ,object ,base (- (ash ,offset ,',shift) ,lowtag))))))
-  (frob loadw ld word-shift)
+  (frob loadw ldn word-shift)
   #+(and sparc-v9 sparc-v8plus)
   (frob loadsw ldsw word-shift)
-  (frob storew st word-shift))
+  (frob storew stn word-shift))
 
 #+(and sparc-v9 sparc-v8plus)
 (macrolet
@@ -95,12 +95,12 @@
 			     (find-package "VM"))))
 	 `(progn
 	    (defmacro ,loader (reg symbol)
-	      `(inst ld ,reg null-tn
+	      `(inst ldn ,reg null-tn
 		     (+ (static-symbol-offset ',symbol)
 			(ash ,',offset word-shift)
 			(- other-pointer-type))))
 	    (defmacro ,storer (reg symbol)
-	      `(inst st ,reg null-tn
+	      `(inst stn ,reg null-tn
 		     (+ (static-symbol-offset ',symbol)
 			(ash ,',offset word-shift)
 			(- other-pointer-type))))))))
-- 
GitLab