From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 2 Jun 1987 18:49:05 +0000 (+0000)
Subject: Optimize code being emitted for lookup-apply.
X-Git-Tag: 20090517-FFI~13423
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=839deffd826d9dea4b11af566d17516c7c4a1773;p=mit-scheme.git

Optimize code being emitted for lookup-apply.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index 90e3581c8..0c4d2dcd7 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.175 1987/06/02 11:35:46 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.176 1987/06/02 18:49:05 cph Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -646,7 +646,7 @@ MIT in each case. |#
      (delete-dead-registers!)
      `(,@set-extension
        ,@(generate-invocation-prefix prefix)
-       (MOVE W (& ,frame-size) (D 0))
+       ,(load-dnw frame-size 0)
        (LEA (@PCR ,*block-start-label*) (A 1))
        (JMP ,entry:compiler-cache-reference-apply)))))
 
@@ -659,7 +659,7 @@ MIT in each case. |#
      `(,@set-environment
        ,@(generate-invocation-prefix prefix)
        ,(load-constant name '(D 5))
-       (MOVE W (& ,frame-size) (D 0))
+       ,(load-dnw frame-size 0)
        (JMP ,entry:compiler-lookup-apply)))))
 
 (define-rule statement