From caf37fd9fc986824818c2a935a992c4fe5853b13 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 11 Jun 1987 20:44:20 +0000 Subject: [PATCH] Add `need-registers!' operation. --- v7/src/compiler/back/lapgn1.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm index 6e679a4bc..eff72f573 100644 --- a/v7/src/compiler/back/lapgn1.scm +++ b/v7/src/compiler/back/lapgn1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.35 1987/05/29 17:57:40 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.36 1987/06/11 20:44:20 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -172,6 +172,10 @@ MIT in each case. |# (define-integrable (need-register! register) (set! *needed-registers* (cons register *needed-registers*))) +(define-integrable (need-registers! registers) + ;; **** Assume EQ? works on registers here. **** + (set! *needed-registers* (eq-set-union registers *needed-registers*))) + (define (maybe-need-register! register) (if register (need-register! register)) register) -- 2.25.1