From 8810045c6dca50ff260c1c18cdada7ad1757e7e2 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 7 Nov 1988 13:57:02 +0000 Subject: [PATCH] (delete-dead-registers!): Rewrite to accomodate change to `delete-pseudo-registers'. --- v7/src/compiler/back/lapgn2.scm | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/back/lapgn2.scm b/v7/src/compiler/back/lapgn2.scm index 0083ee403..bcfbb8d33 100644 --- a/v7/src/compiler/back/lapgn2.scm +++ b/v7/src/compiler/back/lapgn2.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.8 1988/08/29 22:31:59 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn2.scm,v 1.9 1988/11/07 13:57:02 cph Rel $ Copyright (c) 1987, 1988 Massachusetts Institute of Technology @@ -88,9 +88,8 @@ MIT in each case. |# (memv register *dead-registers*)) (define (delete-dead-registers!) - (delete-pseudo-registers *register-map* *dead-registers* - (lambda (map aliases) - (set! *register-map* map))) + (set! *register-map* + (delete-pseudo-registers *register-map* *dead-registers*)) (set! *dead-registers* '())) ;; `*prefix-instructions*' is used to accumulate LAP instructions to -- 2.25.1