From 950b5d18344b2cce2ffb76d5a67112a68251f7b0 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 18 May 1987 17:57:18 +0000 Subject: [PATCH] Generalize `register-has-alias?' to handle machine registers also. --- v7/src/compiler/back/lapgn1.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm index 94af280b6..5f92d55b2 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.32 1987/05/15 19:51:47 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.33 1987/05/18 17:57:18 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -170,8 +170,10 @@ MIT in each case. |# (if register (need-register! register)) register) -(define-integrable (register-has-alias? register type) - (pseudo-register-alias *register-map* type register)) +(define (register-has-alias? register type) + (if (machine-register? register) + (register-type? register type) + (pseudo-register-alias *register-map* type register))) (define-integrable (register-alias register type) (maybe-need-register! (pseudo-register-alias *register-map* type register))) -- 2.25.1