Ticket #361: sendfile.diff

File sendfile.diff, 2.0 KB (added by felix winkelmann, 14 years ago)

  • sendfile.scm

     
    208208                (when write-timeout
    209209                  (##sys#thread-block-for-timeout!
    210210                   ##sys#current-thread
    211                    (fx+ (##sys#fudge 16) write-timeout)))
    212                 (##sys#thread-block-for-i/o! ##sys#current-thread dst #f)
     211                   (+ (current-milliseconds) write-timeout)))
     212                (##sys#thread-block-for-i/o! ##sys#current-thread dst #:output)
    213213                (%yield)
    214214                (when (##sys#slot ##sys#current-thread 13)
    215215                  (%error "write operation timed out"))
    … …  
    254254              (when (write-timeout)
    255255                (##sys#thread-block-for-timeout!
    256256                 ##sys#current-thread
    257                  (fx+ (##sys#fudge 16) (write-timeout))))
    258               (##sys#thread-block-for-i/o! ##sys#current-thread dst #f)
     257                 (+ (current-milliseconds) (write-timeout))))
     258              (##sys#thread-block-for-i/o! ##sys#current-thread dst #:output)
    259259              (%yield)
    260260              (when (##sys#slot ##sys#current-thread 13)
    261261                (%error "write operation timed out"))
    … …  
    302302                                (when write-timeout
    303303                                  (##sys#thread-block-for-timeout!
    304304                                   ##sys#current-thread
    305                                    (fx+ (##sys#fudge 16) write-timeout)))
    306                                 (##sys#thread-block-for-i/o! ##sys#current-thread dst #f)
     305                                   (+ (current-milliseconds) write-timeout)))
     306                                (##sys#thread-block-for-i/o! ##sys#current-thread dst #:output)
    307307                                (%yield)
    308308                                (when (##sys#slot ##sys#current-thread 13)
    309309                                  (%error "write operation timed out"))