[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
branch master updated: remote: Use copies of message contents.
From: |
Mathieu Othacehe |
Subject: |
branch master updated: remote: Use copies of message contents. |
Date: |
Fri, 26 Feb 2021 03:40:27 -0500 |
This is an automated email from the git hooks/post-receive script.
mothacehe pushed a commit to branch master
in repository guix-cuirass.
The following commit(s) were added to refs/heads/master by this push:
new 5f77c39 remote: Use copies of message contents.
5f77c39 is described below
commit 5f77c39f324d05e012b1f321fd935501e42fa231
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Fri Feb 26 09:39:22 2021 +0100
remote: Use copies of message contents.
* src/cuirass/remote-server.scm (zmq-start-proxy): Use copies of message
contents.
---
src/cuirass/remote-server.scm | 11 +++++++----
1 file changed, 7 insertions(+), 4 deletions(-)
diff --git a/src/cuirass/remote-server.scm b/src/cuirass/remote-server.scm
index 17979ea..ead0695 100644
--- a/src/cuirass/remote-server.scm
+++ b/src/cuirass/remote-server.scm
@@ -374,14 +374,17 @@ frontend to the workers connected through the TCP
backend."
(when (zmq-socket-ready? items build-socket)
(match (zmq-message-receive build-socket)
((worker empty rest)
- (let ((reply-worker
+ (let* ((worker-name (bytevector-copy
+ (zmq-message-content worker)))
+ (rest-bv (bytevector-copy
+ (zmq-message-content rest)))
+ (reply-worker
(lambda (message)
(zmq-send-msg-parts-bytevector
build-socket
- (list (zmq-message-content worker)
+ (list worker-name
(zmq-empty-delimiter)
- (string->bv message)))))
- (rest-bv (zmq-message-content rest)))
+ (string->bv message))))))
(if (need-fetching? (bv->string rest-bv))
(zmq-send-bytevector fetch-socket rest-bv)
(read-worker-exp rest
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- branch master updated: remote: Use copies of message contents.,
Mathieu Othacehe <=