Changeset 10050


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

Conditionalize for Solaris.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/l0-io.lisp

    r8264 r10050  
    2828  #+freebsd-target
    2929  (require "X8664-FREEBSD-SYSCALLS")
     30  #+solarisx8664-target
     31  (require "X8664-SOLARIS-SYSCALLS")
    3032  )
    3133
     
    225227
    226228(defun fd-ftruncate (fd new)
    227   (syscall syscalls::ftruncate fd new))
     229  #-solaris-target
     230  (syscall syscalls::ftruncate fd new)
     231  #+solaris-target
     232  (rlet ((lck #>flock))
     233    (setf (pref lck :flock.l_whence) 0
     234          (pref lck :flock.l_start) new
     235          (pref lck :flock.l_type) #$F_WRLCK
     236          (pref lck :flock.l_len) 0)
     237    (syscall syscalls::fcntl fd #$F_FREESP lck)))
    228238
    229239(defun %string-to-stderr (str)
Note: See TracChangeset for help on using the changeset viewer.