Raymond Toy pushed to branch sparc64-dev at cmucl / cmucl

Commits:

3 changed files:

Changes:

  • src/tools/worldbuild.lisp
    ... ... @@ -27,11 +27,17 @@
    27 27
    	  "target:assembly/mips/array.assem"
    
    28 28
    	  "target:assembly/mips/arith.assem"
    
    29 29
    	  "target:assembly/mips/alloc.assem"))
    
    30
        ,@(when (c:backend-featurep :sparc)
    
    30
        ,@(when (and (c:backend-featurep :sparc)
    
    31
    		 (not (c:backend-featurep :sparc64)))
    
    31 32
    	'("target:assembly/sparc/assem-rtns.assem"
    
    32 33
    	  "target:assembly/sparc/array.assem"
    
    33 34
    	  "target:assembly/sparc/arith.assem"
    
    34 35
    	  "target:assembly/sparc/alloc.assem"))
    
    36
        ,@(when (c:backend-featurep :sparc64)
    
    37
    	'("target:assembly/sparc64/assem-rtns.assem"
    
    38
    	  "target:assembly/sparc64/array.assem"
    
    39
    	  "target:assembly/sparc64/arith.assem"
    
    40
    	  "target:assembly/sparc64/alloc.assem"))
    
    35 41
        ,@(when (c:backend-featurep :rt)
    
    36 42
    	'("target:assembly/rt/assem-rtns.assem"
    
    37 43
    	  "target:assembly/rt/array.assem"
    

  • src/tools/worldcom.lisp
    ... ... @@ -58,12 +58,19 @@
    58 58
      (comf "target:assembly/mips/arith" :assem t)
    
    59 59
      (comf "target:assembly/mips/alloc" :assem t))
    
    60 60
    
    
    61
    (when (c:backend-featurep :sparc)
    
    61
    (when (and (c:backend-featurep :sparc)
    
    62
    	   (not (c:backend-featurep :sparc64)))
    
    62 63
      (comf "target:assembly/sparc/assem-rtns" :assem t)
    
    63 64
      (comf "target:assembly/sparc/array" :assem t)
    
    64 65
      (comf "target:assembly/sparc/arith" :assem t)
    
    65 66
      (comf "target:assembly/sparc/alloc" :assem t))
    
    66 67
    
    
    68
    (when (c:backend-featurep :sparc64)
    
    69
      (comf "target:assembly/sparc64/assem-rtns" :assem t)
    
    70
      (comf "target:assembly/sparc64/array" :assem t)
    
    71
      (comf "target:assembly/sparc64/arith" :assem t)
    
    72
      (comf "target:assembly/sparc64/alloc" :assem t))
    
    73
    
    
    67 74
    (when (c:backend-featurep :rt)
    
    68 75
      (comf "target:assembly/rt/assem-rtns" :assem t)
    
    69 76
      (comf "target:assembly/rt/array" :assem t)
    

  • src/tools/worldload.lisp
    ... ... @@ -59,7 +59,8 @@
    59 59
    (setf (ext:search-list "c:") '("target:compiler/"))
    
    60 60
    (setf (ext:search-list "vm:")
    
    61 61
          '(#+(or pmax sgi) "c:mips/"
    
    62
            #+sparc "c:sparc/"
    
    62
            #+(and sparc (not sparc64)) "c/sparc/"
    
    63
    	#+sparc64 "c/sparc64/"
    
    63 64
    	#+rt "c:rt/"
    
    64 65
    	#+hppa "c:hppa/"
    
    65 66
    	#+x86 "c:x86/"
    
    ... ... @@ -69,7 +70,8 @@
    69 70
    	"c:generic/"))
    
    70 71
    (setf (ext:search-list "assem:")
    
    71 72
          '(#+(or pmax sgi) "target:assembly/mips/"
    
    72
    	#+sparc "target:assembly/sparc/"
    
    73
    	#+sparc64 "target:assembly/sparc64/"
    
    74
    	#+(and sparc (not sparc64)) "target:assembly/sparc/"
    
    73 75
    	#+rt "target:assembly/rt/"
    
    74 76
    	#+hppa "target:assembly/hppa/"
    
    75 77
    	#+x86 "target:assembly/x86/"