GNU bug report logs -
#33018
26.1.50; thread starvation with async processes and accept-process-output
Previous Next
Full log
View this message in rfc822 format
[Message part 1 (text/plain, inline)]
Michael Albinus <michael.albinus <at> gmx.de> writes:
> "Basil L. Contovounesios" <contovob <at> tcd.ie> writes:
>
>> I attach a sample program test.el whose central function, test-slave,
>> invokes wget asynchronously before waiting for the process to exit.
>>
>> The issue I'm facing is that running test-slave twice in succession,
>> each time in a new thread, causes accept-process-output to hang with no
>> output (unless a timeout argument is given, in which case the function
>> returns nil) the second time around.
>
> If you want a process to communicate in a given thread, you must call
> `set-process-thread'. See the elisp manual.
Thanks, this is the first thing I tried when earlier experiments started
to hang. I tried both the following redundant but explicit call:
[test.diff (text/x-diff, inline)]
diff -u --label /tmp/test.el --label \#\<buffer\ /tmp/test.el\> /tmp/test.el /tmp/buffer-content-hY0EDf
--- /tmp/test.el
+++ #<buffer /tmp/test.el>
@@ -24,6 +24,7 @@
:command '("wget" "-qO-" "https://en.wikipedia.org/wiki/Emacs")
:connection-type 'pipe
:sentinel #'test-sentinel)))
+ (set-process-thread proc (current-thread))
(while (eq (process-status proc) 'run)
(test-debug proc 'accept-output (accept-process-output proc 5)))
(test-debug proc 'exit (process-status proc) (process-exit-status proc))))
Diff finished. Sun Oct 14 16:04:48 2018
[Message part 3 (text/plain, inline)]
as well as replacing (current-thread) with nil, to unlock the process.
Adding test-debug calls before and after accept-process-output revealed
nothing out of the ordinary, and explicitly un/locking the process
didn't fix the hang. Should I be calling set-process-thread elsewhere?
--
Basil
This bug report was last modified 6 years and 239 days ago.
Previous Next
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997,2003 nCipher Corporation Ltd,
1994-97 Ian Jackson.