From f7e4b63cbb7c80841d6995d7503632c0eababcff Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Fri, 9 Jan 1987 20:16:35 +0000 Subject: [PATCH] Update popper offsets to match new microcode. --- v7/src/compiler/machines/bobcat/lapgen.scm | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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 -- 2.25.1