From 4b88b28247ce3ab8f8184c9216e75a9ab00be576 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Thu, 2 Jul 1987 21:02:31 +0000 Subject: [PATCH] Add new expression type 'UUO-LINK. --- v7/src/compiler/rtlbase/rtlty1.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm index 838fe0f5a..6abddf5ab 100644 --- a/v7/src/compiler/rtlbase/rtlty1.scm +++ b/v7/src/compiler/rtlbase/rtlty1.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.10 1987/06/17 19:43:14 cph Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 1.11 1987/07/02 21:02:31 cph Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -47,6 +47,7 @@ MIT in each case. |# (define-rtl-expression cons-pointer rtl: type datum) (define-rtl-expression constant % value) (define-rtl-expression variable-cache rtl: name) +(define-rtl-expression uuo-link rtl: name) (define-rtl-expression entry:continuation % continuation) (define-rtl-expression entry:procedure % procedure) (define-rtl-expression offset-address rtl: register number) -- 2.25.1