From 43f22163de29f0cc5c58b2cc3bfcc580eb28caed Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Thu, 5 Sep 2002 15:19:51 +0000
Subject: [PATCH] Change LOADQ/STOREQ to LOAD64/STORE64, since they're not
 quadwords.

---
 compiler/sparc/macros.lisp |  8 ++++----
 compiler/sparc/move.lisp   | 10 +++++-----
 2 files changed, 9 insertions(+), 9 deletions(-)

diff --git a/compiler/sparc/macros.lisp b/compiler/sparc/macros.lisp
index df11bd7a7..0105b7c19 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.17 2002/09/04 14:04:18 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.18 2002/09/05 15:19:50 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.17 2002/09/04 14:04:18 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/macros.lisp,v 1.18 2002/09/05 15:19:50 toy Exp $
 ;;;
 ;;; This file contains various useful macros for generating SPARC code.
 ;;;
@@ -74,8 +74,8 @@
 		     (inst li ,temp ,offs)
 		     (inst ,',inst ,object ,base ,temp)))))
 	   `(inst ,',inst ,object ,base (- (ash ,offset ,',shift) ,lowtag))))))
-  (frob loadq ldx (* 2 word-shift))
-  (frob storeq stx (* 2 word-shift)))
+  (frob load64 ldx (* 2 word-shift))
+  (frob store64 stx (* 2 word-shift)))
 
 (defmacro load-symbol (reg symbol)
   `(inst add ,reg null-tn (static-symbol-offset ,symbol)))
diff --git a/compiler/sparc/move.lisp b/compiler/sparc/move.lisp
index deaa88849..24fc01571 100644
--- a/compiler/sparc/move.lisp
+++ b/compiler/sparc/move.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/move.lisp,v 1.8 2002/09/04 14:04:19 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.9 2002/09/05 15:19:51 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.8 2002/09/04 14:04:19 toy Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/move.lisp,v 1.9 2002/09/05 15:19:51 toy Exp $
 ;;;
 ;;;    This file contains the SPARC VM definition of operand loading/saving and
 ;;; the Move VOP.
@@ -374,14 +374,14 @@
   ((signed64-stack) (signed64-reg)
    (unsigned64-stack) (unsigned64-reg))
   (let ((nfp (current-nfp-tn vop)))
-    (loadq y nfp (tn-offset x))))
+    (load64 y nfp (tn-offset x))))
 
 ;; Save a 64-bit number to the stack
 (define-move-function (store-number-stack-64 5) (vop x y)
   ((signed64-reg) (signed64-stack)
    (unsigned64-reg) (unsigned64-stack))
   (let ((nfp (current-nfp-tn vop)))
-    (storeq x nfp (tn-offset y))))
+    (store64 x nfp (tn-offset y))))
 
 ;; Move a tagged integer to a raw double-word representation.
 (define-vop (move-to-64bit-word/fixnum)
@@ -630,7 +630,7 @@
       ((signed64-reg unsigned64-reg)
        (move y x))
       ((signed64-stack unsigned64-stack)
-       (storeq x fp (tn-offset y))))))
+       (store64 x fp (tn-offset y))))))
 
 (define-move-vop move-64bit-word-argument :move-argument
   (descriptor-reg signed64-reg unsigned64-reg) (signed64-reg unsigned64-reg))
-- 
GitLab