From 156de005f33424159d9932a5f0dc00f28e8e5895 Mon Sep 17 00:00:00 2001
From: Mark Friedman <edu/mit/csail/zurich/markf>
Date: Thu, 19 May 1988 15:32:53 +0000
Subject: [PATCH] Added expression cost for FIXNUM->OBJECT. Subtracted the
 boxing cost for the fixnum operations because we now do the boxing explicitly
 via FIXNUM->OBJECT.

---
 v7/src/compiler/machines/bobcat/machin.scm | 25 ++++++++--------------
 1 file changed, 9 insertions(+), 16 deletions(-)

diff --git a/v7/src/compiler/machines/bobcat/machin.scm b/v7/src/compiler/machines/bobcat/machin.scm
index c4a9e3542..acdca6758 100644
--- a/v7/src/compiler/machines/bobcat/machin.scm
+++ b/v7/src/compiler/machines/bobcat/machin.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.8 1988/05/09 19:48:57 mhwu Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/machin.scm,v 4.9 1988/05/19 15:32:53 markf Exp $
 
 Copyright (c) 1987 Massachusetts Institute of Technology
 
@@ -91,6 +91,9 @@ MIT in each case. |#
     ;; lsl.l #8,reg = 4
     ;; asr.l #8,reg = 6
     ((OBJECT->FIXNUM) 10)
+    ;; and.l d7,reg         = 3
+    ;; or.1  #x01AFFFFF,reg = 8
+    ((FIXNUM->OBJECT) 11)		
     ((OFFSET) 16)			;move.l d(reg),reg
     ((OFFSET-ADDRESS) 8)		;lea d(an),reg
     ((POST-INCREMENT) 12)		;move.l (reg)+,reg
@@ -101,32 +104,22 @@ MIT in each case. |#
      (case (rtl:fixnum-2-args-operator expression)
        ;; move.l reg,reg = 3
        ;; add.l  reg,reg = 3
-       ;; and.l  d7,reg  = 3
-       ;; or.l   #x01AFFFFF,reg = 8
-       ((PLUS-FIXNUM) 17)
+       ((PLUS-FIXNUM) 6)
        ;; move.l reg,reg = 3
        ;; muls.l reg,reg = 49
-       ;; and.l  d7,reg  = 3
-       ;; or.l   #x01AFFFFF,reg = 8
-       ((MULTIPLY-FIXNUM) 63)
+       ((MULTIPLY-FIXNUM) 52)
        ;; move.l reg,reg = 3
        ;; sub.l  reg,reg = 3
-       ;; and.l  d7,reg  = 3
-       ;; or.l   #x01AFFFFF,reg = 8
-       ((MINUS-FIXNUM) 17)
+       ((MINUS-FIXNUM) 6)
        (else (error "rtl:expression-cost - unknown fixnum operator" expression))))
     ((FIXNUM-1-ARG)
      (case (rtl:fixnum-1-arg-operator expression)
        ;; move.l reg,reg = 3
        ;; addq.l #1,reg = 3
-       ;; and.l  d7,reg  = 3
-       ;; or.l   #x01AFFFFF,reg = 8
-       ((ONE-PLUS-FIXNUM) 17)
+       ((ONE-PLUS-FIXNUM) 6)
        ;; move.l reg,reg = 3
        ;; subq.l #1,reg = 3
-       ;; and.l  d7,reg  = 3
-       ;; or.l   #x01AFFFFF,reg = 8
-       ((MINUS-ONE-PLUS-FIXNUM) 17)
+       ((MINUS-ONE-PLUS-FIXNUM) 6)
        (else (error "rtl:expression-cost - unknown fixnum operator" expression))))
     ;; The following are preliminary. Check with Jinx (mhwu)
     ((CHAR->ASCII) 4)
-- 
2.25.1