Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

2 changed files:

Changes:

  • src/tools/cross-scripts/cross-x86-sparcv9.lisp
    ... ... @@ -10,7 +10,8 @@
    10 10
    
    
    11 11
    (c::new-backend "SPARC"
    
    12 12
       ;; Features to add here
    
    13
       '(:sparc
    
    13
       '(:sparc				; Any sparc processor
    
    14
         :sparc64				; For 64-bit sparc
    
    14 15
         :sparc-v9				; For Ultrasparc processors
    
    15 16
         :complex-fp-vops			; Some slightly faster FP vops on complex numbers
    
    16 17
         :linkage-table
    
    ... ... @@ -23,7 +24,7 @@
    23 24
         :hash-new
    
    24 25
         :random-mt19937			; MT-19937 generator
    
    25 26
         :cmu				; Announce this is CMUCL
    
    26
         :cmu20 :cmu20b			; Current version identifier
    
    27
         :cmu21 :cmu21b			; Current version identifier
    
    27 28
         :modular-arith			; Modular arithmetic
    
    28 29
         :double-double			; Double-double float support
    
    29 30
         :executable
    
    ... ... @@ -115,9 +116,9 @@
    115 116
    (setf (search-list "c:")
    
    116 117
          '("target:compiler/"))
    
    117 118
    (setf (search-list "vm:")
    
    118
          '("c:sparc/" "c:generic/"))
    
    119
          '("c:sparcv9/" "c:generic/"))
    
    119 120
    (setf (search-list "assem:")
    
    120
          '("target:assembly/" "target:assembly/sparc/"))
    
    121
          '("target:assembly/" "target:assembly/sparcv9/"))
    
    121 122
    
    
    122 123
    ;; Load the backend of the compiler.
    
    123 124
    
    

  • src/tools/setup.lisp
    ... ... @@ -304,6 +304,7 @@
    304 304
    	  ((c:target-featurep :sgi) "mips/")
    
    305 305
    	  ((c:target-featurep :ppc) "ppc/")
    
    306 306
    	  ((c:target-featurep :amd64) "amd64/")
    
    307
    	  ((c:target-featurep :sparc64) "sparcv9/")
    
    307 308
    	  (t
    
    308 309
    	   (error "What machine is this?")))
    
    309 310
        (make-pathname :directory (pathname-directory f)))))