From 69894a9ad9efad1fb4f0e4bbcf87c26efcce6995 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Fri, 30 Oct 2009 17:41:55 -0400 Subject: [PATCH] Disable i386 LAP optimizer for AMD x86-64. To be rewritten later. --- src/compiler/machines/x86-64/lapopt.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) 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 -- 2.25.1