[Git][cmucl/cmucl][master] 2 commits: Set vmdir correctly for sparc64.

[Raymond Toy]

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/0082cee611d78cdfa0e9d8bcaa19674ffe37097c...18dc7c123174d9f30fd34314708bfa21085ff3dd
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/cmucl-cvs/attachments/20161204/814d4d3c/attachment-0001.html>