Update popper offsets to match new microcode.
authorChris Hanson <org/chris-hanson/cph>
Fri, 9 Jan 1987 20:16:35 +0000 (20:16 +0000)
committerChris Hanson <org/chris-hanson/cph>
Fri, 9 Jan 1987 20:16:35 +0000 (20:16 +0000)
v7/src/compiler/machines/bobcat/lapgen.scm

index d56b4463c06287c418d3aa881dafebd262848ed1..594efaf522c0902e963ae9bffbd28a6ffc257e79 100644 (file)
@@ -37,7 +37,7 @@
 
 ;;;; RTL Rules for 68020
 
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.147 1987/01/09 19:42:20 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 1.148 1987/01/09 20:16:35 cph Exp $
 
 (declare (usual-integrations))
 (using-syntax (access lap-generator-syntax-table compiler-package)
 (define reg:compiled-memtop '(@A 6))
 
 (define popper:apply-closure '(@AO 6 #x0168))
-(define popper:apply-stack '(@AO 6 #x01C8))
-(define popper:value '(@AO 6 #x0228))
+(define popper:apply-stack '(@AO 6 #x01E8))
 \f
 ;;;; Transfers to Registers