From c031b263a9f1951c470e45512778bfbcb2cbb1d4 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 2 Nov 1994 03:39:51 +0000 Subject: [PATCH] Fix arg type in %set-raw-bits so that it will consistenly be open-coded. --- compiler/sparc/array.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/sparc/array.lisp b/compiler/sparc/array.lisp index 5b71eb006..1f81df33e 100644 --- a/compiler/sparc/array.lisp +++ b/compiler/sparc/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/sparc/array.lisp,v 1.12 1994/10/31 04:46:41 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.13 1994/11/02 03:39:51 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -423,7 +423,7 @@ (:args (object :scs (descriptor-reg)) (index :scs (any-reg zero immediate)) (value :scs (unsigned-reg))) - (:arg-types * positive-fixnum unsigned-num) + (:arg-types * tagged-num unsigned-num) (:results (result :scs (unsigned-reg))) (:result-types unsigned-num) (:variant 0 vm:other-pointer-type)) -- GitLab