From 4302e2ce1fa30f2a0a2126737b81361c2f872e36 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 22 Jun 1990 17:58:04 +0000 Subject: [PATCH] Added :arg-types and :result-types to sxhash-simple-{sub,}string. --- assembly/mips/array.lisp | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/assembly/mips/array.lisp b/assembly/mips/array.lisp index 6ad418ccb..3f6cac532 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) -- GitLab