From be7e2f72ec650d0af448f95a568894079d661563 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Wed, 13 May 1987 10:59:51 +0000 Subject: [PATCH] Add operation to test whether a register has an alias. --- v7/src/compiler/back/lapgn1.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/back/lapgn1.scm b/v7/src/compiler/back/lapgn1.scm index 8c3d3b199..e512a5136 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.29 1987/05/07 04:39:55 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/back/lapgn1.scm,v 1.30 1987/05/13 10:59:51 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -170,6 +170,9 @@ 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-integrable (register-alias register type) (maybe-need-register! (pseudo-register-alias *register-map* type register))) -- 2.25.1