From b27f585c0d98aa19b3a8784af732682a98007751 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 28 Jan 1991 23:11:05 +0000 Subject: [PATCH] Eliminate some unused incorrect code. --- v7/src/compiler/machines/bobcat/rules3.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/rules3.scm b/v7/src/compiler/machines/bobcat/rules3.scm index 1c92bc405..6b8bdf216 100644 --- a/v7/src/compiler/machines/bobcat/rules3.scm +++ b/v7/src/compiler/machines/bobcat/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.26 1990/08/21 02:23:26 jinx Rel $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/rules3.scm,v 4.27 1991/01/28 23:11:05 jinx Exp $ Copyright (c) 1988, 1989, 1990 Massachusetts Institute of Technology @@ -545,11 +545,7 @@ MIT in each case. |# (INST-EA (@A+ 5))) (MOV UL (& ,(* nentries #x10000)) (@A+ 5)) (MOV UW (& #x4eb9) ,temp2) - ,@(generate-entries entries - (if (= nentries 1) - 8 - 12) - true) + ,@(generate-entries entries 12 true) ,@(if (odd? nentries) (LAP (CLR W (@A+ 5))) (LAP)) -- 2.25.1