From: Mark Friedman Date: Thu, 1 Sep 1988 19:18:58 +0000 (+0000) Subject: Merged generic stuff with version 4.7.1.1 X-Git-Tag: 20090517-FFI~12547 X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=15e2ebc74314801952e340da6706eb785099b697;p=mit-scheme.git Merged generic stuff with version 4.7.1.1 --- diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm index 36f379c71..9b1be0a96 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 4.9 1988/08/24 16:29:46 markf Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 4.10 1988/09/01 19:18:58 markf Exp $ Copyright (c) 1987 Massachusetts Institute of Technology @@ -69,10 +69,11 @@ MIT in each case. |# (define-rtl-expression char->ascii rtl: expression) (define-rtl-expression byte-offset rtl: register number) (define-rtl-expression register % number) -(define-rtl-expression object->address rtl: register) +(define-rtl-expression object->address rtl: expression) (define-rtl-expression object->datum rtl: expression) -(define-rtl-expression object->type rtl: register) +(define-rtl-expression object->type rtl: expression) (define-rtl-expression object->fixnum rtl: expression) +(define-rtl-expression object->unsigned-fixnum rtl: expression) (define-rtl-expression fixnum->object rtl: expression) (define-rtl-expression offset rtl: register number) (define-rtl-expression pre-increment rtl: register number)