bug#71936: [Cuirass] ‘cuirass remote-server’ crashes badly when it receives garbage

[Ludovic Courtès]

Ludovic Courtès <ludovic.courtes@inria.fr> skribis:

> 2024-07-01 13:33:38 In cuirass/scripts/remote-server.scm:
> 2024-07-01 13:33:38     430:6 11 (serve-build-requests _ #<<channel> getq: 
> #<atomic-box 7f5cf2dbaa60 value: (() #(#<atomic-box 7f5cd4f233d0 value: W> 
> #<procedure resume (thunk)>))> getq-gc-counter: #<atomic-box 7f5cf2dbaa50 
> value: 22> putq: #<atomic-box 7f5cf2dbaa30 value: (())> putq-gc-counter: 
> #<atomic-box 7f5cf2dbaa20 value: 39>>)
> 2024-07-01 13:33:38 In ice-9/boot-9.scm:
> 2024-07-01 13:33:38   1752:10 10 (with-exception-handler _ _ #:unwind? _ 
> #:unwind-for-type _)
> 2024-07-01 13:33:38 In cuirass/scripts/remote-server.scm:
> 2024-07-01 13:33:38    436:25  9 (_)
> 2024-07-01 13:33:38 In cuirass/remote.scm:
> 2024-07-01 13:33:38    483:41  8 (receive-message _ #:router? _)
> 2024-07-01 13:33:38 In ice-9/iconv.scm:
> 2024-07-01 13:33:38     75:20  7 (bytevector->string _ _ _)
> 2024-07-01 13:33:38 In ice-9/rdelim.scm:
> 2024-07-01 13:33:38    160:18  6 (read-string _)
> 2024-07-01 13:33:38 In ice-9/suspendable-ports.scm:
> 2024-07-01 13:33:38    591:33  5 (read-char _)
> 2024-07-01 13:33:38    522:13  4 (peek-char-and-next-cur/iconv #<input: 
> string 7f5cd6c72150>)
> 2024-07-01 13:33:38 In unknown file:
> 2024-07-01 13:33:38            3 (port-decode-char #<input: string 
> 7f5cd6c72150> #vu8(130 163 101 110 99 165 99 108 101 97 114 164 108 111 97 
> 100 129 163 99 109 100 175 95 112 114 101 112 95 97 117 116 104 95 105 110 
> 102 111 0 0 0 160 162 141 207 92 127 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 21 0 
> 0 0 0 0 0 0 96 163 159 214 92 127 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 21 0 0 
> 0 0 0 0 0 192 162 141 207 92 127 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 95 160 
> 108 42 163 128 255 255 0 0 0 0 0 0 0 0 95 139 120 42 163 128 255 # ?) ?)
> 2024-07-01 13:33:38 In ice-9/boot-9.scm:
> 2024-07-01 13:33:38   1685:16  2 (raise-exception _ #:continuable? _)
> 2024-07-01 13:33:38   1683:16  1 (raise-exception _ #:continuable? _)
> 2024-07-01 13:33:38   1685:16  0 (raise-exception _ #:continuable? _)
> 2024-07-01 13:33:38 ice-9/boot-9.scm:1685:16: In procedure raise-exception:
> 2024-07-01 13:33:38 Throw to key `decoding-error' with args `("decode-char" 
> "input decoding error" 84 #<input: string 7f5cd6c72150>)'.

Fixed in Cuirass commit fbfbc6641cadfa15d3cc05c11b0d46ee1278a6c6.

I’ll update the ‘cuirass’ package soonish.

Ludo’.