X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fsparc%2Finsts.lisp;h=5f0b2750852c8159cb5ffcbf6eaa9fe4cc60df15;hb=4ae1b794a5d6a90794468cf8017f5307f2c30dfe;hp=bd3589cf368568ee75013c31b590193ab90d9a8d;hpb=9728093863d1ed201719d1f7ef61b9df29bb1d44;p=sbcl.git

diff --git a/src/compiler/sparc/insts.lisp b/src/compiler/sparc/insts.lisp
index bd3589c..5f0b275 100644
--- a/src/compiler/sparc/insts.lisp
+++ b/src/compiler/sparc/insts.lisp
@@ -15,6 +15,9 @@
 ;;;(def-assembler-params
 ;;;    :scheduler-p t
 ;;;  :max-locations 100)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (setf sb!assem:*assem-scheduler-p* t)
+  (setf sb!assem:*assem-max-locations* 100))
 
 ;;; Constants, types, conversion functions, some disassembler stuff.
 (defun reg-tn-encoding (tn)