X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Farray.lisp;h=67c59a796affbf79dbf4e8ef8619785caf31b3e8;hb=3a2c2a2217f77e0d1a44a581c83e0311ebc2594a;hp=0d56f1a1afbfd8235f9975a24a3a4433cd1d0efc;hpb=bf27595fb567015495b7131707cc85af361567fe;p=sbcl.git

diff --git a/src/compiler/sparc/array.lisp b/src/compiler/sparc/array.lisp
index 0d56f1a..67c59a7 100644
--- a/src/compiler/sparc/array.lisp
+++ b/src/compiler/sparc/array.lisp
@@ -673,3 +673,21 @@
   (:results (result :scs (unsigned-reg)))
   (:result-types unsigned-num)
   (:variant 0 other-pointer-lowtag))
+
+(define-vop (vector-raw-bits word-index-ref)
+  (:note "vector-raw-bits VOP")
+  (:translate %vector-raw-bits)
+  (:results (value :scs (unsigned-reg)))
+  (:result-types unsigned-num)
+  (:variant vector-data-offset other-pointer-lowtag))
+
+(define-vop (set-vector-raw-bits word-index-set)
+  (:note "setf vector-raw-bits VOP")
+  (:translate %set-vector-raw-bits)
+  (:args (object :scs (descriptor-reg))
+	 (index :scs (any-reg zero immediate))
+	 (value :scs (unsigned-reg)))
+  (:arg-types * tagged-num unsigned-num)
+  (:results (result :scs (unsigned-reg)))
+  (:result-types unsigned-num)
+  (:variant vector-data-offset other-pointer-lowtag))
\ No newline at end of file