From: Arthur Gleckler <edu/mit/csail/zurich/arthur>
Date: Tue, 25 Jul 1989 13:06:04 +0000 (+0000)
Subject: Open-coding of floating-point arithmetic.
X-Git-Tag: 20090517-FFI~11938
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=3330f322a421ef0cdd3ea0913d1aa38c11629fdf;p=mit-scheme.git

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 505baaf1e..6f38a4bb2 100644
--- 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 84838af9f..555edbf48 100644
--- 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))))