Changeset 11758 for trunk/source/level-1


Ignore:
Timestamp:
Feb 22, 2009, 11:08:21 AM (11 years ago)
Author:
gb
Message:

Restart interrupted #_sendto/#_recvfrom syscalls (ticket:437).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-sockets.lisp

    r11209 r11758  
    12901290
    12911291(defun c_sendto (sockfd msgptr len flags addrp addrlen)
    1292   (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen)))
     1292  (ignoring-eintr (check-socket-error (#_sendto sockfd msgptr len flags addrp addrlen))))
    12931293
    12941294(defun c_recvfrom (sockfd bufptr len flags addrp addrlenp)
    1295   (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp)))
     1295  (ignoring-eintr (check-socket-error (#_recvfrom sockfd bufptr len flags addrp addrlenp))))
    12961296
    12971297(defun c_shutdown (sockfd how)
Note: See TracChangeset for help on using the changeset viewer.