ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-26 04:29:25 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

syscalls: 'getxattr' throws upon error.

Browse source 
* guix/build/syscalls.scm (getxattr): Throw in the negative SIZE case.
This commit is contained in:
Ludovic Courtès 2023-03-27 12:01:05 +02:00
parent 30cc651fba
commit 836297eae5
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/build/syscalls.scm
View file

@ -970,7 +970,10 @@ (define getxattr
(string->pointer key)
(string->pointer "")
0)))
(cond ((< size 0) #f)
(cond ((< size 0)
(throw 'system-error "getxattr" "~S: ~A"
(list file key (strerror err))
(list err)))
((zero? size) "")
;; Get VALUE in buffer of SIZE. XXX actual size can race.
(else (let*-values (((buf) (make-bytevector size))