tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 13:10:33 +02:00
Code Activity

utils: Define a target-x86-32? and target-x86-64? predicate.

Browse Source 
* guix/utils.scm (target-x86-32?, target-x86-64?): New predicates.
* tests/utils.scm ("target-x86-32?", "target-x86-64?"): New tests.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
This commit is contained in:
Maxime Devos
2021-07-14 13:12:49 +02:00
committed by Mathieu Othacehe
parent 42e4118150
commit f54852be22
2 changed files with 43 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
tests/utils.scm
View File

@@ -306,6 +306,29 @@ skip these tests."
'("i686-linux-gnu" "i686-pc-gnu"
"i686-w64-mingw32")))
(test-equal "target-x86-32?"
'(#f #f #f #t #t #t #t #f)
;; These are (according to Wikipedia) two RISC architectures
;; by Intel and presumably not compatible with the x86-32 series.
(map target-x86-32?
'("i860-gnu" "i960-gnu"
;; This is a 16-bit architecture
"i286-gnu"
;; These are part of the x86-32 series.
"i386-gnu" "i486-gnu" "i586-gnu" "i686-gnu"
;; Maybe this one will exist some day, but not yet.
"i786-gnu")))
(test-equal "target-x86-64?"
'(#t #f #f #f)
(map target-x86-64?
`("x86_64-linux-gnu" "i386-linux-gnu"
;; Just because it includes "64" doesn't make it 64-bit.
"aarch64-linux-gnu"
;; Note that (expt 2 109) in decimal notation starts with 64.
;; However, it isn't 32-bit.
,(format #f "x86_~a-linux-gnu" (expt 2 109)))))
(test-end)
(false-if-exception (delete-file temp-file))