Skip to content
Snippets Groups Projects
Commit 73f44800 authored by cwang's avatar cwang
Browse files

amd64 changes

parent 53fa188e
No related branches found
No related tags found
No related merge requests found
...@@ -3,7 +3,7 @@ ...@@ -3,7 +3,7 @@
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.38 2003/07/20 13:57:24 emarsden Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/setup.lisp,v 1.39 2004/06/01 23:36:07 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -302,12 +302,13 @@ ...@@ -302,12 +302,13 @@
((c:target-featurep :alpha) "alpha/") ((c:target-featurep :alpha) "alpha/")
((c:target-featurep :sgi) "mips/") ((c:target-featurep :sgi) "mips/")
((c:target-featurep :ppc) "ppc/") ((c:target-featurep :ppc) "ppc/")
((c:target-featurep :amd64) "amd64/")
(t (t
(error "What machine is this?"))) (error "What machine is this?")))
(make-pathname :directory (pathname-directory f))))) (make-pathname :directory (pathname-directory f)))))
;;; CAT-IF-ANYTHING-CHAGNED ;;; CAT-IF-ANYTHING-CHANGED
(defun cat-if-anything-changed (output-file &rest input-files) (defun cat-if-anything-changed (output-file &rest input-files)
(flet ((add-correct-type (pathname) (flet ((add-correct-type (pathname)
......
...@@ -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/tools/worldbuild.lisp,v 1.50 2003/09/08 16:07:04 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.51 2004/06/01 23:37:45 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -47,6 +47,11 @@ ...@@ -47,6 +47,11 @@
"target:assembly/x86/array.assem" "target:assembly/x86/array.assem"
"target:assembly/x86/arith.assem" "target:assembly/x86/arith.assem"
"target:assembly/x86/alloc.assem")) "target:assembly/x86/alloc.assem"))
,@(when (c:backend-featurep :amd64)
'("target:assembly/amd64/assem-rtns.assem"
"target:assembly/amd64/array.assem"
"target:assembly/amd64/arith.assem"
"target:assembly/amd64/alloc.assem"))
,@(when (c:backend-featurep :alpha) ,@(when (c:backend-featurep :alpha)
'("target:assembly/alpha/assem-rtns.assem" '("target:assembly/alpha/assem-rtns.assem"
"target:assembly/alpha/array.assem" "target:assembly/alpha/array.assem"
...@@ -159,6 +164,8 @@ ...@@ -159,6 +164,8 @@
'("target:code/hppa-vm")) '("target:code/hppa-vm"))
,@(when (c:backend-featurep :x86) ,@(when (c:backend-featurep :x86)
'("target:code/x86-vm")) '("target:code/x86-vm"))
,@(when (c:backend-featurep :amd64)
'("target:code/amd64-vm"))
,@(when (c:backend-featurep :alpha) ,@(when (c:backend-featurep :alpha)
'("target:code/alpha-vm")) '("target:code/alpha-vm"))
,@(when (c:backend-featurep :sgi) ,@(when (c:backend-featurep :sgi)
......
...@@ -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/tools/worldcom.lisp,v 1.91 2004/01/09 04:34:18 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldcom.lisp,v 1.92 2004/06/01 23:40:09 cwang Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -82,6 +82,12 @@ ...@@ -82,6 +82,12 @@
(comf "target:assembly/x86/arith" :assem t) (comf "target:assembly/x86/arith" :assem t)
(comf "target:assembly/x86/alloc" :assem t)) (comf "target:assembly/x86/alloc" :assem t))
(when (c:backend-featurep :amd64)
(comf "target:assembly/amd64/assem-rtns" :assem t)
(comf "target:assembly/amd64/array" :assem t)
(comf "target:assembly/amd64/arith" :assem t)
(comf "target:assembly/amd64/alloc" :assem t))
(when (c:backend-featurep :alpha) (when (c:backend-featurep :alpha)
(comf "target:assembly/alpha/assem-rtns" :assem t) (comf "target:assembly/alpha/assem-rtns" :assem t)
(comf "target:assembly/alpha/array" :assem t) (comf "target:assembly/alpha/array" :assem t)
...@@ -180,6 +186,8 @@ ...@@ -180,6 +186,8 @@
(comf "target:code/hppa-vm")) (comf "target:code/hppa-vm"))
(when (c:backend-featurep :x86) (when (c:backend-featurep :x86)
(comf "target:code/x86-vm")) (comf "target:code/x86-vm"))
(when (c:backend-featurep :amd64)
(comf "target:code/amd64-vm"))
(when (c:backend-featurep :alpha) (when (c:backend-featurep :alpha)
(comf "target:code/alpha-vm")) (comf "target:code/alpha-vm"))
(when (c:backend-featurep :sgi) (when (c:backend-featurep :sgi)
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.102 2004/01/09 04:34:18 toy Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.103 2004/06/01 23:43:03 cwang Exp $
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -62,6 +62,7 @@ ...@@ -62,6 +62,7 @@
#+rt "c:rt/" #+rt "c:rt/"
#+hppa "c:hppa/" #+hppa "c:hppa/"
#+x86 "c:x86/" #+x86 "c:x86/"
#+amd64 "c:amd64/"
#+alpha "c:alpha/" #+alpha "c:alpha/"
#+ppc "c:ppc/" #+ppc "c:ppc/"
"c:generic/")) "c:generic/"))
...@@ -71,6 +72,7 @@ ...@@ -71,6 +72,7 @@
#+rt "target:assembly/rt/" #+rt "target:assembly/rt/"
#+hppa "target:assembly/hppa/" #+hppa "target:assembly/hppa/"
#+x86 "target:assembly/x86/" #+x86 "target:assembly/x86/"
#+amd64 "target:assembly/amd64/"
#+alpha "target:assembly/alpha/" #+alpha "target:assembly/alpha/"
#+ppc "target:assembly/ppc/" #+ppc "target:assembly/ppc/"
"target:assembly/")) "target:assembly/"))
...@@ -92,6 +94,8 @@ ...@@ -92,6 +94,8 @@
(rename-package "RT" "RT" '("VM" "OLD-RT")) (rename-package "RT" "RT" '("VM" "OLD-RT"))
#+x86 #+x86
(rename-package "X86" "X86" '("VM" "OLD-X86")) (rename-package "X86" "X86" '("VM" "OLD-X86"))
#+amd64
(rename-package "AMD64" "AMD64" '("VM" "OLD-AMD64"))
#+hppa #+hppa
(rename-package "HPPA" "HPPA" '("VM" "OLD-HPPA")) (rename-package "HPPA" "HPPA" '("VM" "OLD-HPPA"))
#+alpha #+alpha
......
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