ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-11-07 15:36:20 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

system: vm: Use 2^32 - 1 as hash size.

Browse source 
* gnu/system/vm.scm (operating-system-uuid): Use 2^32 - 1 instead of
  2^32 as hash size.

On some 32 bit system (ARM for example), 2^32 exceeds hash max
size (ULONG_MAX = 2^32 - 1).
This commit is contained in:
Mathieu Othacehe 2017-11-03 13:40:07 +01:00
parent dd208b936c
commit b1a3079347
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
gnu/system/vm.scm
View file

@ -372,13 +372,13 @@ (define* (operating-system-uuid os #:optional (type 'dce))
(bytevector->uuid
(uint-list->bytevector
(list (hash file-system-type
(expt 2 32))
(- (expt 2 32) 1))
(hash (operating-system-host-name os)
(expt 2 32))
(- (expt 2 32) 1))
(hash (operating-system-services os)
(expt 2 32))
(- (expt 2 32) 1))
(hash (operating-system-file-systems os)
(expt 2 32)))
(- (expt 2 32) 1)))
(endianness little)
4)
type)))