Ignore:
Timestamp:
Oct 14, 2008, 6:30:00 PM (13 years ago)
Author:
gz
Message:

Merge/bootstrap assorted low level stuff from trunk - kernel, syscall stuff, lowmem-bias, formatting tweaks, a few bug fixes included

File:
1 edited

Legend:

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

    r10972 r11089  
    3939  (defconstant futex-locked 1)
    4040  (defconstant futex-contended 2)
    41   (require "X8664-LINUX-SYSCALLS")
    4241  (declaim (inline %lock-futex %unlock-futex)))
    4342
     
    580579  (defun futex-wait (p val whostate)
    581580    (with-process-whostate (whostate)
    582       (syscall syscalls::futex p FUTEX-WAIT val (%null-ptr) (%null-ptr) 0)))
     581      (int-errno-ffcall
     582       (%kernel-import target::kernel-import-lisp-futex)
     583       :address p :int FUTEX-WAIT :int val :address (%null-ptr) :address (%null-ptr) :int 0 :int)))
    583584  #+monitor-futex-wait
    584585  (progn
     
    589590        (let* ((start (get-internal-real-time)))
    590591          (incf *total-futex-wait-calls*)
    591           (syscall syscalls::futex p FUTEX-WAIT val (%null-ptr) (%null-ptr) 0)
     592          (int-errno-ffcall
     593           (%kernel-import target::kernel-import-lisp-futex)
     594           :address p :int FUTEX-WAIT :int val :address (%null-ptr) :address (%null-ptr) :int 0 :int)
    592595          (incf *total-futex-wait-times* (- (get-internal-real-time) start)))))))
    593596   
     
    597600#+futex
    598601(defun futex-wake (p n)
    599   (syscall syscalls::futex p FUTEX-WAKE n (%null-ptr) (%null-ptr) 0))
     602  (int-errno-ffcall (%kernel-import target::kernel-import-lisp-futex)
     603                    :address p :int FUTEX-WAKE :int n :address (%null-ptr) :address (%null-ptr) :int 0 :int))
    600604
    601605#+futex
Note: See TracChangeset for help on using the changeset viewer.