From 26e1b2cc2a3eca24f8cd58735968a48be3e30ec7 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 19 Feb 1998 04:42:14 +0000 Subject: [PATCH] Ash dervie-type optimizer: increase the shift range for which numeric bounds are maintained from 32 to 64. --- compiler/srctran.lisp | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 57ea88977..348be5eef 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.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/srctran.lisp,v 1.80 1998/02/19 04:28:30 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/srctran.lisp,v 1.81 1998/02/19 04:42:14 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1384,7 +1384,7 @@ (when (numeric-type-p s-type) (let ((s-low (numeric-type-low s-type)) (s-high (numeric-type-high s-type))) - (if (and s-low s-high (<= s-low 32) (<= s-high 32)) + (if (and s-low s-high (<= s-low 64) (<= s-high 64)) (make-numeric-type :class 'integer :complexp :real :low (when n-low (min (ash n-low s-high) @@ -1405,7 +1405,7 @@ (n-high (numeric-type-high n-type)) (s-low (numeric-type-low shift)) (s-high (numeric-type-high shift))) - (if (and s-low s-high (<= s-low 32) (<= s-high 32)) + (if (and s-low s-high (<= s-low 64) (<= s-high 64)) (make-numeric-type :class 'integer :complexp :real :low (when n-low (min (ash n-low s-high) -- GitLab