From 18722e3f41990ab0c2f6bc1dc361e5e4fa443c94 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 28 Sep 1992 16:35:41 +0000 Subject: [PATCH] Eliminate an additional instruction in the in-line combined stack and interrupt check; total is now four instructions. --- v7/src/compiler/machines/spectrum/rules3.scm | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/v7/src/compiler/machines/spectrum/rules3.scm b/v7/src/compiler/machines/spectrum/rules3.scm index 99752e155..39fc770ad 100644 --- a/v7/src/compiler/machines/spectrum/rules3.scm +++ b/v7/src/compiler/machines/spectrum/rules3.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Id: rules3.scm,v 4.35 1992/09/26 15:56:19 cph Exp $ +$Id: rules3.scm,v 4.36 1992/09/28 16:35:41 cph Exp $ Copyright (c) 1988-92 Massachusetts Institute of Technology @@ -449,12 +449,8 @@ MIT in each case. |# (LAP (LDW () ,reg:stack-guard ,regnum:first-arg) (COMB (>=) ,regnum:free-pointer ,regnum:memtop-pointer (@PCR ,gc-label)) - ;; I think the next two instructions could be interchanged, - ;; allowing the NOP to be eliminated, but since I don't have - ;; the PA-RISC programming manual here I can't be sure. -- CPH - (LDW () ,reg:memtop ,regnum:memtop-pointer) (COMB (<=) ,regnum:stack-pointer ,regnum:first-arg (@PCR ,gc-label)) - (NOP ()))))) + (LDW () ,reg:memtop ,regnum:memtop-pointer))))) (define-rule statement (CONTINUATION-ENTRY (? internal-label)) -- 2.25.1