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

Fix the simple array signed-byte 8 and 16 accessors result type which

should be a tagged-num no a positive-fixnum.
parent 709f56e2
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.4 1998/01/21 22:30:43 dtc Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/alpha/array.lisp,v 1.5 1998/01/22 02:24:22 dtc Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -147,12 +147,12 @@ ...@@ -147,12 +147,12 @@
unsigned-reg) unsigned-reg)
#+signed-array #+signed-array
(def-partial-data-vector-frobs simple-array-signed-byte-8 positive-fixnum (def-partial-data-vector-frobs simple-array-signed-byte-8 tagged-num
:byte t signed-reg signed-reg) :byte t signed-reg)
#+signed-array #+signed-array
(def-partial-data-vector-frobs simple-array-signed-byte-16 positive-fixnum (def-partial-data-vector-frobs simple-array-signed-byte-16 tagged-num
:short t signed-reg signed-reg) :short t 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)
......
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