From 38c8dfe2266c15e5ecc57346b5c1bd4f7030e3e2 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 22 Jan 1998 02:24:22 +0000 Subject: [PATCH] Fix the simple array signed-byte 8 and 16 accessors result type which should be a tagged-num no a positive-fixnum. --- compiler/alpha/array.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/compiler/alpha/array.lisp b/compiler/alpha/array.lisp index 7da5a7856..130dc4bc3 100644 --- a/compiler/alpha/array.lisp +++ b/compiler/alpha/array.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (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 @@ unsigned-reg) #+signed-array -(def-partial-data-vector-frobs simple-array-signed-byte-8 positive-fixnum - :byte t signed-reg signed-reg) +(def-partial-data-vector-frobs simple-array-signed-byte-8 tagged-num + :byte t signed-reg) #+signed-array -(def-partial-data-vector-frobs simple-array-signed-byte-16 positive-fixnum - :short t signed-reg signed-reg) +(def-partial-data-vector-frobs simple-array-signed-byte-16 tagged-num + :short t signed-reg) #+signed-array (def-full-data-vector-frobs simple-array-signed-byte-30 tagged-num any-reg) -- GitLab