Changeset 10441


Ignore:
Timestamp:
Aug 11, 2008, 8:16:28 PM (11 years ago)
Author:
gb
Message:

FD-GET-FLAGS: just do ff-call, don't bother with syscall.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/linux-files.lisp

    r10260 r10441  
    413413
    414414(defun fd-get-flags (fd)
    415   (syscall syscalls::fcntl fd #$F_GETFL))
     415  (let* ((result (#_fcntl fd #$F_GETFL)))
     416    (declare (fixnum result))
     417    (if (< result 0)
     418      (%get-errno)
     419      result)))
    416420
    417421(defun fd-set-flags (fd new)
    418   (syscall syscalls::fcntl fd #$F_SETFL new))
     422  (let* ((result (#_fcntl fd #$F_SETFL :int new)))
     423    (declare (fixnum result))
     424    (if (< result 0)
     425      (%get-errno)
     426      result)))
    419427
    420428(defun fd-set-flag (fd mask)
Note: See TracChangeset for help on using the changeset viewer.