Skip to content
Snippets Groups Projects
Commit c9b3f860 authored by dtc's avatar dtc
Browse files

Complete the signed-array support for the Alpha backend.

Adding signed-byte 8 and 16 accessors which were trivial because there
was already support for signed partial accessors.
Fix a typo in define-partial-setter signed short constant.
parent e374088e
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/array.lisp,v 1.3 1998/01/21 19:23:48 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/array.lisp,v 1.4 1998/01/21 22:30:43 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -146,8 +146,17 @@ ...@@ -146,8 +146,17 @@
(def-full-data-vector-frobs simple-array-unsigned-byte-32 unsigned-num (def-full-data-vector-frobs simple-array-unsigned-byte-32 unsigned-num
unsigned-reg) unsigned-reg)
#+signed-array
(def-partial-data-vector-frobs simple-array-signed-byte-8 positive-fixnum
:byte t signed-reg signed-reg)
#+signed-array
(def-partial-data-vector-frobs simple-array-signed-byte-16 positive-fixnum
:short t signed-reg signed-reg)
#+signed-array #+signed-array
(def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num any-reg) (def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num any-reg)
#+signed-array #+signed-array
(def-full-data-vector-frobs simple-array-signed-byte-32 signed-num signed-reg) (def-full-data-vector-frobs simple-array-signed-byte-32 signed-num signed-reg)
......
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/macros.lisp,v 1.2 1994/10/31 04:39:51 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/macros.lisp,v 1.3 1998/01/21 22:30:44 dtc Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -441,8 +441,9 @@ ...@@ -441,8 +441,9 @@
`((inst ldq_u temp (- (+ (* ,offset word-bytes) `((inst ldq_u temp (- (+ (* ,offset word-bytes)
(* index ,scale)) ,lowtag) (* index ,scale)) ,lowtag)
object) object)
(inst lda temp1 (- (+ (* ,offset word-bytes) (inst lda temp1 (- (+ (* ,offset word-bytes)
(* index ,scale)) ,lowtag)) (* index ,scale)) ,lowtag)
object)
(inst extwl temp temp1 temp) (inst extwl temp temp1 temp)
(inst sll temp 48 temp) (inst sll temp 48 temp)
(inst sra temp 48 value)) (inst sra temp 48 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