From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Mon, 22 Aug 1988 20:10:18 +0000 (+0000)
Subject: Added support for the open coding of generic arithmetic.
X-Git-Tag: 20090517-FFI~12598
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=faa625f45f4e014174bdb2e21e4eaf19355086b2;p=mit-scheme.git

Added support for the open coding of generic arithmetic.
---

diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index d3e55f5b9..f583d15e0 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.7 1988/05/19 15:22:29 markf Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 4.8 1988/08/22 20:10:18 markf Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -57,6 +57,9 @@ MIT in each case. |#
 (define-rtl-expression offset-address rtl: register number)
 (define-rtl-expression unassigned rtl:)
 
+(define-rtl-expression generic-unary rtl: operator operand)
+(define-rtl-expression generic-binary rtl: operator operand-1 operand-2)
+
 (define-rtl-expression fixnum-1-arg rtl: operator operand)
 (define-rtl-expression fixnum-2-args rtl: operator operand-1 operand-2)
 
@@ -67,6 +70,8 @@ MIT in each case. |#
 (define-rtl-predicate type-test % expression type)
 (define-rtl-predicate unassigned-test % expression)
 
+(define-rtl-predicate overflow-test rtl:)
+
 (define-rtl-statement assign % address expression)
 
 (define-rtl-statement pop-return rtl:)