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