diff --git a/code/numbers.lisp b/code/numbers.lisp index 433a06de5d68ea9697bd21514265da4b80347ea9..f8907d6449ae5f2a05f8d4b3e1f460ee85c80774 100644 --- a/code/numbers.lisp +++ b/code/numbers.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/code/numbers.lisp,v 1.64 2008/01/28 22:41:08 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/numbers.lisp,v 1.65 2008/08/12 20:38:23 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1601,6 +1601,8 @@ significant bit of INTEGER is bit 0." ;; calls ash-left-mod32 when the COUNT is known to be a (UNSIGNED-BYTE ;; 5), which is what %ASHL wants. #+modular-arith +(declaim (inline vm::ash-left-mod32)) +#+modular-arith (defun vm::ash-left-mod32 (integer count) (declare (type integer integer) (type (integer 0 31) count)) diff --git a/compiler/x86/arith.lisp b/compiler/x86/arith.lisp index 4857d89a145e2ff8f49e32a9a8ed9e8671d06d46..8207a1a600a6aaedc2eef0606dbf711303edc80e 100644 --- a/compiler/x86/arith.lisp +++ b/compiler/x86/arith.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.19 2008/08/12 13:37:16 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/arith.lisp,v 1.20 2008/08/12 20:38:23 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1591,12 +1591,4 @@ (specifier-type '(unsigned-byte 5)))) (cut-to-width integer width) 'vm::ash-left-mod32)) - -;; This should only get called when the ash modular function optimizer -;; succeeds, which is for a count of 0-31, which is just right for -;; %ashl. -(declaim (inline vm::ash-left-mod32)) -(defun vm::ash-left-mod32 (integer count) - (bignum::%ashl (ldb (byte 32 0) integer) count)) - )