Changeset 10054


Ignore:
Timestamp:
Jul 16, 2008, 2:23:35 PM (11 years ago)
Author:
gb
Message:

Conditionalize for Solaris.

Location:
trunk/source/lib
Files:
1 added
5 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/compile-ccl.lisp

    r9910 r10054  
    133133             (:linuxx8664 'ffi-linuxx8664)
    134134             (:darwinx8664 'ffi-darwinx8664)
    135              (:freebsdx8664 'ffi-freebsdx8664)))))
     135             (:freebsdx8664 'ffi-freebsdx8664)
     136             (:solarisx8664 'ffi-solarisx8664)))))
    136137
    137138
     
    210211             '(ppc-error-signal ppc-trap-support
    211212               ppc-threads-utils ppc-callback-support))
    212             ((:linuxx8664 :freebsdx8664 :darwinx8664)
     213            ((:linuxx8664 :freebsdx8664 :darwinx8664 :solarisx8664)
    213214             '(x86-error-signal x86-trap-support
    214215               x86-threads-utils x86-callback-support)))))
     
    424425    (:linuxx8664 "x86-boot64")
    425426    (:freebsdx8664 "fx86-boot64")
    426     (:darwinx8664 "x86-boot64.image")))
     427    (:darwinx8664 "x86-boot64.image")
     428    (:solarisx8664 "sx86-boot64")))
    427429
    428430(defun standard-kernel-name (&optional (target (backend-name *host-backend*)))
     
    434436    (:linuxx8664 "lx86cl64")
    435437    (:freebsdx8664 "fx86cl64")
    436     (:darwinx8664 "dx86cl64")))
     438    (:darwinx8664 "dx86cl64")
     439    (:solarisx8664 "sx86cl64")))
    437440
    438441(defun standard-image-name (&optional (target (backend-name *host-backend*)))
     
    444447    (:linuxx8664 "LX86CL64")
    445448    (:freebsdx8664 "FX86CL64")
    446     (:darwinx8664 "dx86cl64.image")))
     449    (:darwinx8664 "dx86cl64.image")
     450    (:solarisx8664 "SX86CL64")))
    447451
    448452(defun kernel-build-directory (&optional (target (backend-name *host-backend*)))
     
    454458    (:linuxx8664 "linuxx8664")
    455459    (:freebsdx8664 "freebsdx8664")
    456     (:darwinx8664 "darwinx8664")))
     460    (:darwinx8664 "darwinx8664")
     461    (:solarisx8664 "solarisx64")))
    457462
    458463(defparameter *known-optional-features* '(:lock-accouting :count-gf-calls :monitor-futex-wait))
  • trunk/source/lib/foreign-types.lisp

    r9243 r10054  
    8686                        (:linuxx8664 "ccl:x86-headers64;")
    8787                        (:darwinx8664 "ccl:darwin-x86-headers64;")
    88                         (:freebsdx8664 "ccl:freebsd-headers64;"))
     88                        (:freebsdx8664 "ccl:freebsd-headers64;")
     89                        (:solarisx8664 "ccl:solarisx64-headers;"))
    8990                    :interface-package-name
    9091                    #.(ftd-interface-package-name *target-ftd*)
     
    14371438(make-built-in-class 'foreign-variable *istruct-class*)
    14381439
     1440(defun %cons-foreign-variable (name type &optional container)
     1441  (%istruct 'foreign-variable nil name type container))
     1442
     1443
    14391444(defmethod make-load-form ((fv foreign-variable) &optional env)
    14401445  (declare (ignore env))
  • trunk/source/lib/misc.lisp

    r9887 r10054  
    8888                  (%get-cstring ret)
    8989                  1)))
     90            #+solaris-target
     91            (rlet ((info :processor_info_t))
     92              (do* ((i 0 (1+ i)))
     93                   ((and (= 0 (#_processor_info i info))
     94                         (= (pref info :processor_info_t.pi_state)
     95                            #$P_ONLINE))
     96                    (%get-cstring (pref info :processor_info_t.pi_processor_type)))))
    9097            )))
    9198
  • trunk/source/lib/systems.lisp

    r7624 r10054  
    139139    (ffi-darwinx8664  "ccl:bin;ffi-darwinx8664"  ("ccl:lib;ffi-darwinx8664.lisp"))
    140140    (ffi-freebsdx8664 "ccl:bin;ffi-freebsdx8664" ("ccl:lib;ffi-freebsdx8664.lisp"))
     141    (ffi-solarisx8664 "ccl:bin;ffi-solarisx8664" ("ccl:lib;ffi-solarisx8664.lisp"))
    141142   
    142143    (db-io            "ccl:bin;db-io"            ("ccl:lib;db-io.lisp"))
  • trunk/source/lib/time.lisp

    r7955 r10054  
    6767          (values 0 nil)
    6868          (progn
    69             (values (floor (pref tm :tm.tm_gmtoff) -60)
     69            (values (floor #-solaris-target (pref tm :tm.tm_gmtoff)
     70                           #+solaris-target #&altzone
     71                           -60)
    7072                    (unless toobig (not (zerop (pref tm :tm.tm_isdst)))))))))))
    7173
Note: See TracChangeset for help on using the changeset viewer.