diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp index 6ad418ccb9beb2f6e6921a977191753437563cdd..3f6cac532ab02aba29955a232cc4fa9e890e43c6 100644 --- a/assembly/mips/array.lisp +++ b/assembly/mips/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.11 1990/06/22 17:28:11 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/mips/array.lisp,v 1.12 1990/06/22 17:58:04 wlott Exp $ ;;; ;;; This file contains the support routines for arrays and vectors. ;;; @@ -120,7 +120,8 @@ (define-assembly-routine (sxhash-simple-string ((:translate %sxhash-simple-string) - (:policy :fast-safe)) + (:policy :fast-safe) + (:result-types positive-fixnum)) (:arg string descriptor-reg a0-offset) (:res result any-reg a0-offset) @@ -212,7 +213,9 @@ (define-assembly-routine (sxhash-simple-substring ((:translate %sxhash-simple-substring) - (:policy :fast-safe)) + (:policy :fast-safe) + (:arg-types * positive-fixnum) + (:result-types positive-fixnum)) (:arg string descriptor-reg a0-offset) (:arg length any-reg a1-offset) (:res result any-reg a0-offset)