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 78c55acb74a6a38a7eda6cd9746034c58f4e932d..567b2cadf3f16e5bba178a836ff8a1f1b7201a2d 100644 (file)
--- 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))
 \f
+(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