From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Mon, 25 Apr 1988 21:27:54 +0000 (+0000)
Subject: Added the following RTL types for the support of fixnum operations:
X-Git-Tag: 20090517-FFI~12805
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=fa705ded3b53d45c67a08bab42d75df4cb599c71;p=mit-scheme.git

Added the following RTL types for the support of fixnum operations:
   FIXNUM-2-ARGS - for binary fixnum arithmetic operations
   FIXNUM-1-ARG  - for unary fixnum arithmetic operations
   FIXNUM-PRED-2-ARGS - for binary fixnum predicates
   FIXNUM-PRED-1-ARG  - for unary fixnum-predicates
   OBJECT->FIXNUM - for unboxing fixnum objects
---

diff --git a/v7/src/compiler/rtlbase/rtlty1.scm b/v7/src/compiler/rtlbase/rtlty1.scm
index 0f6fa5c8e..b79fa81ab 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.4 1988/03/14 21:04:51 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/rtlbase/rtlty1.scm,v 4.5 1988/04/25 21:27:54 markf Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -40,6 +40,7 @@ MIT in each case. |#
 (define-rtl-expression object->address rtl: register)
 (define-rtl-expression object->datum rtl: register)
 (define-rtl-expression object->type rtl: register)
+(define-rtl-expression object->fixnum rtl: expression)
 (define-rtl-expression offset rtl: register number)
 (define-rtl-expression pre-increment rtl: register number)
 (define-rtl-expression post-increment rtl: register number)
@@ -53,6 +54,11 @@ MIT in each case. |#
 (define-rtl-expression offset-address rtl: register number)
 (define-rtl-expression unassigned rtl:)
 
+(define-rtl-expression fixnum-1-arg rtl: operator operand)
+(define-rtl-expression fixnum-2-args rtl: operator operand-1 operand-2)
+
+(define-rtl-predicate fixnum-pred-1-arg % predicate operand)
+(define-rtl-predicate fixnum-pred-2-args % predicate operand-1 operand-2)
 (define-rtl-predicate eq-test % expression-1 expression-2)
 (define-rtl-predicate true-test % expression)
 (define-rtl-predicate type-test % expression type)