utils: Add target-32bit? procedure.

* guix/utils.scm (target-32bit?): New procedure.

Change-Id: Ifd31e404ab91fbcba96803983de832056f8a9097
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

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?"