From b27aea7e391af7ece8d31e0489d0abc3a4dfc8d3 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 8 Nov 1993 22:41:40 +0000 Subject: [PATCH] Fix bug in guaranteed-long/upper-limit and lower-limit. --- v7/src/compiler/machines/C/machin.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/compiler/machines/C/machin.scm b/v7/src/compiler/machines/C/machin.scm index e07d6340b..d617a5e5a 100644 --- a/v7/src/compiler/machines/C/machin.scm +++ b/v7/src/compiler/machines/C/machin.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: machin.scm,v 1.5 1993/10/28 02:55:01 gjr Exp $ +$Id: machin.scm,v 1.6 1993/11/08 22:41:40 gjr Exp $ Copyright (c) 1992-1993 Massachusetts Institute of Technology @@ -64,7 +64,7 @@ MIT in each case. |# (define-integrable max-tag-width 8) (define-integrable guaranteed-long/upper-limit - (expt 2 min-long-width)) + (expt 2 (-1+ min-long-width))) (define-integrable guaranteed-long/lower-limit (- (-1+ guaranteed-long/upper-limit))) -- 2.25.1