[Openmcl-cvs-notifications] r10771 - /trunk/source/lib/compile-ccl.lisp

[gb at clozure.com]

Author: gb
Date: Tue Sep 16 08:26:40 2008
New Revision: 10771

Log:
Setup pathnames, target modules for :linuxx8632.



Modified:
    trunk/source/lib/compile-ccl.lisp

Modified: trunk/source/lib/compile-ccl.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/compile-ccl.lisp (original)
+++ trunk/source/lib/compile-ccl.lisp Tue Sep 16 08:26:40 2008
@@ -220,7 +220,7 @@
 	     '(ppc-error-signal ppc-trap-support
 	       ppc-threads-utils ppc-callback-support))
             ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664
-	      :darwinx8632 :win64)
+	      :darwinx8632 :win64  :linuxx8632)
              '(x86-error-signal x86-trap-support
                x86-threads-utils x86-callback-support)))))
 =

@@ -437,7 +437,8 @@
     (:freebsdx8664 "fx86-boot64")
     (:darwinx8664 "x86-boot64.image")
     (:solarisx8664 "sx86-boot64")
-    (:win64 "wx86-boot64.image")))
+    (:win64 "wx86-boot64.image")
+    (:linuxx8632 "x86-boot32")))
 =

 (defun standard-kernel-name (&optional (target (backend-name *host-backend=
*)))
   (ecase target
@@ -450,7 +451,8 @@
     (:freebsdx8664 "fx86cl64")
     (:darwinx8664 "dx86cl64")
     (:solarisx8664 "sx86cl64")
-    (:win64 "wx86cl64.exe")))
+    (:win64 "wx86cl64.exe")
+    (:linuxx8632 "lx86cl")))
 =

 (defun standard-image-name (&optional (target (backend-name *host-backend*=
)))
   (ecase target
@@ -463,7 +465,8 @@
     (:freebsdx8664 "FX86CL64")
     (:darwinx8664 "dx86cl64.image")
     (:solarisx8664 "SX86CL64")
-    (:win64 "wx86cl64.image")))
+    (:win64 "wx86cl64.image")
+    (:linuxx8632 "LX86CL")))
 =

 (defun kernel-build-directory (&optional (target (backend-name *host-backe=
nd*)))
   (ecase target
@@ -476,7 +479,8 @@
     (:freebsdx8664 "freebsdx8664")
     (:darwinx8664 "darwinx8664")
     (:solarisx8664 "solarisx64")
-    (:win64 "win64")))
+    (:win64 "win64")
+    (:linuxx8632 "linuxx8632")))
 =

 ;;; If we distribute (e.g.) 32- and 64-bit versions for the same
 ;;; machine and OS in the same svn directory, return the name of the