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 90e3581c859c824d30bea42e7ebb11505aa377b1..0c4d2dcd7ea4acc0ddc8fe361b342c6263df55fa 100644 (file)
--- 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