diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp index d58651fafab8c0fbbce17c0b6fa0c6ec5e184f99..674c93f541270de396cc5ea788c48f71f589baeb 100644 --- a/assembly/assemfile.lisp +++ b/assembly/assemfile.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.35 1993/05/25 21:23:52 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.36 1994/04/06 16:55:45 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -43,7 +43,8 @@ (*elsewhere* nil) (*assembly-optimize* nil) (*compiler-trace-output* nil) - (*fixups* nil)) + (*fixups* nil) + (*coalesce-constants* t)) (unwind-protect (let ((*features* (cons :assembler (backend-features *backend*)))) (when trace-file @@ -193,7 +194,8 @@ :key #'car) (:generator ,cost ,@(mapcar #'(lambda (arg) - (if (target-featurep :hppa) + (if (or (target-featurep :hppa) + (target-featurep :alpha)) `(move ,(reg-spec-name arg) ,(reg-spec-temp arg)) `(move ,(reg-spec-temp arg) @@ -201,7 +203,8 @@ args) ,@call-sequence ,@(mapcar #'(lambda (res) - (if (target-featurep :hppa) + (if (or (target-featurep :hppa) + (target-featurep :alpha)) `(move ,(reg-spec-temp res) ,(reg-spec-name res)) `(move ,(reg-spec-name res)