From: Taylor R Campbell <campbell@mumble.net>
Date: Sun, 1 Nov 2009 00:04:16 +0000 (-0400)
Subject: Comment out machines/x86-64/instrf.scm.
X-Git-Tag: 20100708-Gtk~282
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=47686c1c644aa8fcc8ea44d1ce0f1894170ab6d5;p=mit-scheme.git

Comment out machines/x86-64/instrf.scm.

Later this will be replaced by the SSEn instruction sets, but since
the instruction syntax syntax changed, it is necessary to ignore the
old x87 definitions for now.
---

diff --git a/src/compiler/machines/x86-64/instrf.scm b/src/compiler/machines/x86-64/instrf.scm
index 7c7284060..bbad64cf6 100644
--- a/src/compiler/machines/x86-64/instrf.scm
+++ b/src/compiler/machines/x86-64/instrf.scm
@@ -27,6 +27,8 @@ USA.
 ;;; package: (compiler lap-syntaxer)
 
 (declare (usual-integrations))
+
+#|
 
 (let-syntax
     ((define-binary-flonum
@@ -334,4 +336,6 @@ USA.
 (define-trivial-instruction FXAM    #xd9 #xe5)
 (define-trivial-instruction FXTRACT #xd9 #xf4)
 (define-trivial-instruction FYL2X   #xd9 #xf1)
-(define-trivial-instruction FYL2XP1 #xd9 #xf9)
\ No newline at end of file
+(define-trivial-instruction FYL2XP1 #xd9 #xf9)
+
+|#
\ No newline at end of file