Skip to content
Snippets Groups Projects
Commit 4a9970bd authored by wlott's avatar wlott
Browse files

Oops, can't use the move macro to move floating point values. You have to

test location= yourself and use the move instruction.
parent 03b8f78b
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.22 1990/08/02 03:28:43 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.23 1990/08/02 03:42:45 wlott Exp $
;;;
;;; This file contains the MIPS definitions for array operations.
;;;
......@@ -341,7 +341,8 @@
(inst swc1 value lip
(- (* vm:vector-data-offset vm:word-bytes)
vm:other-pointer-type))
(move result value)))
(unless (location= result value)
(inst move :single result value))))
(define-vop (data-vector-ref/simple-array-double-float)
(:translate data-vector-ref)
......@@ -384,7 +385,8 @@
(+ (- (* vm:vector-data-offset vm:word-bytes)
vm:other-pointer-type)
vm:word-bytes))
(move result value)))
(unless (location= result value)
(inst move :double result value))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment