[Git][cmucl/cmucl][master] 2 commits: Set vmdir correctly for sparc64. - cmucl-cvs - mailman3.common-lisp.net

4 Dec 2016

Raymond Toy pushed to branch master at cmucl / cmucl
Commits:
9075c97e by Raymond Toy at 2016-12-04T09:06:30-08:00
Set vmdir correctly for sparc64.
:sparc64 sources are in sparcv9.  (Should we rename the directory?)
- - - - -
18dc7c12 by Raymond Toy at 2016-12-04T09:07:43-08:00
Set up paths and *features* for sparc64.
Cross-compile to sparc-32 using this finishes. (Did not actually test
the result, though.)
- - - - -
2 changed files:
- src/tools/cross-scripts/cross-x86-sparcv9.lisp
- src/tools/setup.lisp
Changes:
=====================================
src/tools/cross-scripts/cross-x86-sparcv9.lisp
=====================================

--- a/src/tools/cross-scripts/cross-x86-sparcv9.lisp
+++ b/src/tools/cross-scripts/cross-x86-sparcv9.lisp
@@ -10,7 +10,8 @@
(c::new-backend "SPARC"
    ;; Features to add here
-   '(:sparc
+   '(:sparc				; Any sparc processor
+     :sparc64				; For 64-bit sparc
      :sparc-v9				; For Ultrasparc processors
      :complex-fp-vops			; Some slightly faster FP vops on complex numbers
      :linkage-table
@@ -23,7 +24,7 @@
      :hash-new
      :random-mt19937			; MT-19937 generator
      :cmu				; Announce this is CMUCL
-     :cmu20 :cmu20b			; Current version identifier
+     :cmu21 :cmu21b			; Current version identifier
      :modular-arith			; Modular arithmetic
      :double-double			; Double-double float support
      :executable
@@ -115,9 +116,9 @@
 (setf (search-list "c:")
       '("target:compiler/"))
 (setf (search-list "vm:")
-      '("c:sparc/" "c:generic/"))
+      '("c:sparcv9/" "c:generic/"))
 (setf (search-list "assem:")
-      '("target:assembly/" "target:assembly/sparc/"))
+      '("target:assembly/" "target:assembly/sparcv9/"))
;; Load the backend of the compiler.
=====================================
src/tools/setup.lisp
=====================================
--- a/src/tools/setup.lisp
+++ b/src/tools/setup.lisp
@@ -304,6 +304,7 @@
      ((c:target-featurep :sgi) "mips/")
      ((c:target-featurep :ppc) "ppc/")
      ((c:target-featurep :amd64) "amd64/")
+	  ((c:target-featurep :sparc64) "sparcv9/")
      (t
       (error "What machine is this?")))
     (make-pathname :directory (pathname-directory f)))))
View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/compare/0082cee611d78cdfa0e9d8bca...

    