diff --git a/compiler/mips/float.lisp b/compiler/mips/float.lisp index c2131e911e945f7b85fcff5e01750c3a78963867..a9e0d9dc27e2e9a0adf3ad4f4683ecb69af86a4f 100644 --- a/compiler/mips/float.lisp +++ b/compiler/mips/float.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/mips/float.lisp,v 1.26 1998/07/24 17:22:35 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/float.lisp,v 1.27 1999/04/30 11:50:55 dtc Rel $") ;;; ;;; ********************************************************************** ;;; @@ -115,7 +115,7 @@ (:results (y :scs (,sc))) (:note "pointer to float coercion") (:generator 2 - ,@(ecase (backend-byte-order *backend*) + ,@(ecase (backend-byte-order *target-backend*) (:big-endian (cond (double-p @@ -154,7 +154,7 @@ (inst fmove ,format y x))) (,stack-sc (let ((offset (* (tn-offset y) word-bytes))) - ,@(ecase (backend-byte-order *backend*) + ,@(ecase (backend-byte-order *target-backend*) (:big-endian (cond (double-p diff --git a/compiler/mips/sap.lisp b/compiler/mips/sap.lisp index a8aaf7e1b9014d35b8475d9fc2ee31de3eae0ef2..a1dd56b45daceb7383f334f479fb017852c5241b 100644 --- a/compiler/mips/sap.lisp +++ b/compiler/mips/sap.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/mips/sap.lisp,v 1.31 1998/03/04 14:56:40 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/sap.lisp,v 1.32 1999/04/30 11:50:55 dtc Rel $") ;;; ;;; ********************************************************************** ;;; @@ -182,7 +182,7 @@ (:single '((inst lwc1 result sap 0))) (:double - (ecase (backend-byte-order *backend*) + (ecase (backend-byte-order *target-backend*) (:big-endian '((inst lwc1 result sap word-bytes) (inst lwc1-odd result sap 0))) @@ -218,7 +218,7 @@ (:single '((inst lwc1 result object offset))) (:double - (ecase (backend-byte-order *backend*) + (ecase (backend-byte-order *target-backend*) (:big-endian '((inst lwc1 result object (+ offset word-bytes)) (inst lwc1-odd result object offset))) @@ -253,7 +253,7 @@ (unless (location= result value) (inst fmove :single result value)))) (:double - (ecase (backend-byte-order *backend*) + (ecase (backend-byte-order *target-backend*) (:big-endian '((inst swc1 value sap word-bytes) (inst swc1-odd value sap 0) @@ -295,7 +295,7 @@ (unless (location= result value) (inst fmove :single result value)))) (:double - (ecase (backend-byte-order *backend*) + (ecase (backend-byte-order *target-backend*) (:big-endian '((inst swc1 value object (+ offset word-bytes)) (inst swc1-odd value object (+ offset word-bytes))