Open-coding of floating-point arithmetic.

diff --git a/v7/src/compiler/machines/bobcat/compiler.pkg b/v7/src/compiler/machines/bobcat/compiler.pkg
index 505baaf1ef21f6fbcc53d3612157a4cb5bfb97ee..6f38a4bb2f89dcc52565e530368879d7440356bb 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.pkg
+++ b/v7/src/compiler/machines/bobcat/compiler.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.22 1989/04/26 05:11:52 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.pkg,v 1.23 1989/07/25 13:06:04 arthur Exp $
 
 Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
@@ -70,6 +70,7 @@ MIT in each case. |#
         "rtlbase/rtlcfg"               ;RTL: CFG types
         "rtlbase/rtlobj"               ;RTL: CFG objects
         "rtlbase/regset"               ;RTL: register sets
+        "rtlbase/valclass"             ;RTL: value classes
 
         "back/insseq"                  ;LAP instruction sequences
         )
@@ -137,18 +138,20 @@ MIT in each case. |#
          sc
          syntax-files!)
   (import (scode-optimizer top-level)
-         sf/internal
-         sf/pathname-defaulting)
+         sf/internal)
   (initialization (initialize-package!)))
 
 (define-package (compiler top-level)
-  (files "base/toplev")
+  (files "base/toplev"
+        "base/crstop")
   (parent (compiler))
   (export ()
          cf
          compile-bin-file
          compile-procedure
-         compiler:reset!)
+         compiler:reset!
+         cross-compile-bin-file
+         cross-compile-bin-file-end)
   (export (compiler fg-generator)
          compile-recursively)
   (export (compiler rtl-generator)
@@ -537,7 +540,10 @@ MIT in each case. |#
         "machines/bobcat/instr1"       ;68000 Effective addressing
         "machines/bobcat/instr2"       ;68000 Instructions
         "machines/bobcat/instr3"       ;  "        "
-        "machines/bobcat/instr4"       ;  "        "    )
+        "machines/bobcat/instr4"       ;  "        "
+        "machines/bobcat/flinstr1"     ;68881 Floating Point Instructions
+        "machines/bobcat/flinstr2"     ;  "        "     "        "
+        )
   (parent (compiler))
   (export (compiler)
          lap-generator/match-rtl-instruction

diff --git a/v7/src/compiler/machines/bobcat/compiler.sf b/v7/src/compiler/machines/bobcat/compiler.sf
index 84838af9f9582bc1c94e43826cddbe16441724be..555edbf48899d3d64d1de2a671760b8c0864110d 100644 (file)
--- a/v7/src/compiler/machines/bobcat/compiler.sf
+++ b/v7/src/compiler/machines/bobcat/compiler.sf
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.sf,v 1.7 1988/12/15 17:02:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/compiler.sf,v 1.8 1989/07/25 13:05:50 arthur Exp $
 
-Copyright (c) 1988 Massachusetts Institute of Technology
+Copyright (c) 1988, 1989 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -89,7 +89,9 @@ MIT in each case. |#
                    (load (string-append "machines/bobcat/" name ".scm")
                          '(COMPILER LAP-SYNTAXER)
                          early-syntax-table)
-                   (write-string " -- done"))            '("instr1" "instr2" "instr3" "instr4")))))
+                   (write-string " -- done"))            '("instr1" "instr2" "instr3" "instr4"
+                            "flinstr1" "flinstr2")))))
+
 ;; Resyntax any files that need it.
 ((access syntax-files! (->environment '(COMPILER))))