From: Chris Hanson Date: Mon, 28 Sep 1992 16:35:41 +0000 (+0000) Subject: Eliminate an additional instruction in the in-line combined stack and X-Git-Tag: 20090517-FFI~8891 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=18722e3f41990ab0c2f6bc1dc361e5e4fa443c94;p=mit-scheme.git Eliminate an additional instruction in the in-line combined stack and interrupt check; total is now four instructions. --- 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))