Skip to content
Snippets Groups Projects
Commit 078dfe2f authored by ram's avatar ram
Browse files

Fixed the DATA-VECTOR-REF transform for random SIMPLE-ARRAYs to transform

to DATA-VECTOR-SET rather than DATA-VECTOR-REF.
parent d409cd7e
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.17 1990/07/02 13:06:22 ram Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-tran.lisp,v 1.18 1990/07/24 21:38:59 ram Exp $
;;; ;;;
;;; This file contains impelemtentation-dependent transforms. ;;; This file contains impelemtentation-dependent transforms.
;;; ;;;
...@@ -145,7 +145,7 @@ ...@@ -145,7 +145,7 @@
(total-size (if (member '* dims) (total-size (if (member '* dims)
'* '*
(reduce #'* dims)))) (reduce #'* dims))))
`(data-vector-ref (truly-the (simple-array ,(type-specifier el-type) `(data-vector-set (truly-the (simple-array ,(type-specifier el-type)
(,total-size)) (,total-size))
(%array-data-vector array)) (%array-data-vector array))
index index
......
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