From e1783ce81983e1a76655badb3f298126ead56ad4 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 18 Jan 1989 13:49:56 +0000 Subject: [PATCH] Fix stupid typo in `increment-machine-register'. --- v7/src/compiler/machines/bobcat/lapgen.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/machines/bobcat/lapgen.scm b/v7/src/compiler/machines/bobcat/lapgen.scm index 6e2494002..edf7aa35b 100644 --- a/v7/src/compiler/machines/bobcat/lapgen.scm +++ b/v7/src/compiler/machines/bobcat/lapgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.18 1988/11/08 12:36:18 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/lapgen.scm,v 4.19 1989/01/18 13:49:56 cph Rel $ -Copyright (c) 1988 Massachusetts Institute of Technology +Copyright (c) 1988, 1989 Massachusetts Institute of Technology This material was developed by the Scheme project at the Massachusetts Institute of Technology, Department of Electrical Engineering and @@ -123,8 +123,10 @@ MIT in each case. |# ((0) (LAP)) ((1 2) (LAP (ADDQ L (& ,(* 4 n)) ,target))) ((-1 -2) (LAP (SUBQ L (& ,(* -4 n)) ,target))) - ((< register 8) (LAP (ADD L (& ,(* 4 n)) ,target))) - (else (LAP (LEA (@AO ,(- register 8) ,(* 4 n)) ,target)))))) + (else + (if (< register 8) + (LAP (ADD L (& ,(* 4 n)) ,target)) + (LAP (LEA (@AO ,(- register 8) ,(* 4 n)) ,target))))))) (define (load-constant constant target) (if (non-pointer-object? constant) -- 2.25.1