Changeset 7553


Ignore:
Timestamp:
Oct 30, 2007, 6:37:30 PM (12 years ago)
Author:
gb
Message:

No #$ futex constants.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/l0-misc.lisp

    r7545 r7553  
    2424#+futex
    2525(eval-when (:compile-toplevel :execute)
    26   (or  #$?FUTEX_WAKE (error "Need new interfaces to compile this code."))
     26  ;; We only need a few constants from <linux/futex.h>, which may
     27  ;; not have been included in the :libc .cdb files.
     28  (defconstant FUTEX-WAIT 0)
     29  (defconstant FUTEX-WAKE 1)
    2730  (defconstant futex-avail 0)
    2831  (defconstant futex-locked 1)
     
    537540#+futex
    538541(defun futex-wait (p val)
    539   (syscall syscalls::futex p #$FUTEX_WAIT val (%null-ptr) (%null-ptr) 0))
     542  (syscall syscalls::futex p FUTEX-WAIT val (%null-ptr) (%null-ptr) 0))
    540543
    541544#+futex
    542545(defun futex-wake (p n)
    543   (syscall syscalls::futex p #$FUTEX_WAKE n (%null-ptr) (%null-ptr) 0))
     546  (syscall syscalls::futex p FUTEX-WAKE n (%null-ptr) (%null-ptr) 0))
    544547
    545548#+futex
Note: See TracChangeset for help on using the changeset viewer.