From: Chris Hanson <org/chris-hanson/cph>
Date: Fri, 9 Jan 1987 20:16:35 +0000 (+0000)
Subject: Update popper offsets to match new microcode.
X-Git-Tag: 20090517-FFI~13756
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=f7e4b63cbb7c80841d6995d7503632c0eababcff;p=mit-scheme.git

Update popper offsets to match new microcode.
---

diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm
index d56b4463c..594efaf52 100644
--- a/v7/src/compiler/machines/bobcat/lapgen.scm
+++ b/v7/src/compiler/machines/bobcat/lapgen.scm
@@ -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)
@@ -235,8 +235,7 @@
 (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))
 
 ;;;; Transfers to Registers