branch master updated: remote: Use copies of message contents.

[Mathieu Othacehe]

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