diff options
| author | Dariqq <dariqq@posteo.net> | 2026-01-18 08:22:48 +0000 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2026-02-20 22:34:55 +0100 |
| commit | aa69f0f3e87c22904f3f65b77ebbcb957b546d8f (patch) | |
| tree | 59b5e2b1cf58d1c36177f922c8ff6659a6bf783c | |
| parent | 21a4e284d08e5576b596a283c100ed614b936519 (diff) | |
utils: Add target-32bit? procedure.
* guix/utils.scm (target-32bit?): New procedure.
Change-Id: Ifd31e404ab91fbcba96803983de832056f8a9097
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -rw-r--r-- | guix/utils.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix/utils.scm b/guix/utils.scm index 724af1a3f00..6bf3a317433 100644 --- a/guix/utils.scm +++ b/guix/utils.scm @@ -118,6 +118,7 @@ target-loongarch64? target-mips64el? target-64bit? + target-32bit? target-little-endian? ar-for-target as-for-target @@ -867,6 +868,10 @@ architecture (x86_64) using 32-bit data types?" (any (cut string-prefix? <> system) '("x86_64" "aarch64" "mips64" "powerpc64" "riscv64" "loongarch64"))) +(define* (target-32bit? #:optional (system (or (%current-target-system) + (%current-system)))) + (not (target-64bit? system))) + (define* (target-little-endian? #:optional (target (or (%current-target-system) (%current-system)))) "Is the architecture of TARGET little-endian?" |