Skip to content
Snippets Groups Projects
Commit 9732beef authored by hallgren's avatar hallgren
Browse files

Added alpha support. Also bind *coalesce-contants* to t since it was

coming up up bound during compilation.
parent df2a2b96
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -43,7 +43,8 @@
(*elsewhere* nil) (*elsewhere* nil)
(*assembly-optimize* nil) (*assembly-optimize* nil)
(*compiler-trace-output* nil) (*compiler-trace-output* nil)
(*fixups* nil)) (*fixups* nil)
(*coalesce-constants* t))
(unwind-protect (unwind-protect
(let ((*features* (cons :assembler (backend-features *backend*)))) (let ((*features* (cons :assembler (backend-features *backend*))))
(when trace-file (when trace-file
...@@ -193,7 +194,8 @@ ...@@ -193,7 +194,8 @@
:key #'car) :key #'car)
(:generator ,cost (:generator ,cost
,@(mapcar #'(lambda (arg) ,@(mapcar #'(lambda (arg)
(if (target-featurep :hppa) (if (or (target-featurep :hppa)
(target-featurep :alpha))
`(move ,(reg-spec-name arg) `(move ,(reg-spec-name arg)
,(reg-spec-temp arg)) ,(reg-spec-temp arg))
`(move ,(reg-spec-temp arg) `(move ,(reg-spec-temp arg)
...@@ -201,7 +203,8 @@ ...@@ -201,7 +203,8 @@
args) args)
,@call-sequence ,@call-sequence
,@(mapcar #'(lambda (res) ,@(mapcar #'(lambda (res)
(if (target-featurep :hppa) (if (or (target-featurep :hppa)
(target-featurep :alpha))
`(move ,(reg-spec-temp res) `(move ,(reg-spec-temp res)
,(reg-spec-name res)) ,(reg-spec-name res))
`(move ,(reg-spec-name res) `(move ,(reg-spec-name res)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment