x11-wm/stumpwm.stumpwm
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm.git synced 2026-09-10 07:26:20 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix the ioloop timeout

Browse source 
1451b05 fixed the issues with unix-fast-select returning nil, however,
it replace a call to `multiple-value-call' to one with
`multiple-value-bind' to get the errno. However, (compute-timeouts)
returns multiple values: seconds and milliseconds remanining in the
timeout. 1451b05 passed the seconds value, and set the milliseconds to
nil, resulting in waiting for 0 seconds and 0 milliseconds whenever
the timeout was supposed to be less than a second

I also made the syscall-level errors from this debug level 1 instead
of 5
This commit is contained in:
Jim Greenleaf 2022-08-17 14:19:03 -04:00
parent ba45d916ef
commit 943127d11f
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ioloop.lisp
View file

@ -290,15 +290,16 @@
(values nil nil))))
;; Actually block for events
(multiple-value-bind (rval errno)
(sb-unix:unix-fast-select (1+ maxfd)
(sb-alien:addr rfds)
(sb-alien:addr wfds)
(sb-alien:addr efds)
(compute-timeout)
nil)
(multiple-value-call #'sb-unix:unix-fast-select
(1+ maxfd)
(sb-alien:addr rfds)
(sb-alien:addr wfds)
(sb-alien:addr efds)
(compute-timeout))
(declare (ignore rval))
(cond ((and errno (plusp errno))
(unless (eql errno sb-unix:eintr)
(dformat 5
(dformat 1
"Unexpected ~S error: ~A~%"
'sb-unix:unix-fast-select
(sb-int:strerror errno))))