From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 30 Oct 2009 21:41:55 +0000 (-0400)
Subject: Disable i386 LAP optimizer for AMD x86-64.
X-Git-Tag: 20100708-Gtk~289
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=69894a9ad9efad1fb4f0e4bbcf87c26efcce6995;p=mit-scheme.git

Disable i386 LAP optimizer for AMD x86-64.

To be rewritten later.
---

diff --git a/src/compiler/machines/x86-64/lapopt.scm b/src/compiler/machines/x86-64/lapopt.scm
index 78c55acb7..567b2cadf 100644
--- a/src/compiler/machines/x86-64/lapopt.scm
+++ b/src/compiler/machines/x86-64/lapopt.scm
@@ -23,11 +23,15 @@ USA.
 
 |#
 
-;;;; LAP Optimizer for Intel i386.
+;;;; LAP Optimizer for AMD x86-64
 ;;; package: (compiler lap-optimizer)
 
 (declare (usual-integrations))
 
+(define (optimize-linear-lap instructions)
+  instructions)
+
+#|
 (define (optimize-linear-lap instructions)
   (rewrite-lap instructions))
 
@@ -376,3 +380,4 @@ USA.
   (lambda (dict)
     `((LEA ,(dict 'reg-object) (@RO UW ,(dict 'regno-closure) #xA0000000))
       (MOV W (@RO B ,regnum:free-pointer -4) ,(dict 'reg-object)))))
+|#
\ No newline at end of file