61/75: build/cargo-build-system: Support 16k page sizes on aarch64.

[guix-commits]

apteryx pushed a commit to branch core-updates
in repository guix.

commit 8fd4e3938dbb52bd6ecb6bb2bd52330fe57cba4b
Author: Roman Scherer <roman@burningswell.com>
AuthorDate: Fri Jan 5 14:30:48 2024 +0100

    build/cargo-build-system: Support 16k page sizes on aarch64.
    
    * guix/build/cargo-build-system.scm (configure): Support 16k page sizes on 
aarch64.
    
    Change-Id: I523c192159908483577301da246d75d16b694bc8
    Signed-off-by: Maxim Cournoyer <maxim.cournoyer@gmail.com>
---
 guix/build/cargo-build-system.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/guix/build/cargo-build-system.scm 
b/guix/build/cargo-build-system.scm
index ffb2ec898e..c5c2299a4c 100644
--- a/guix/build/cargo-build-system.scm
+++ b/guix/build/cargo-build-system.scm
@@ -119,7 +119,7 @@ libraries or executables."
       (error "Possible pre-generated files found:" pregenerated-files))))
 
 (define* (configure #:key inputs
-                    target
+                    target system
                     (vendor-dir "guix-vendor")
                     #:allow-other-keys)
   "Vendor Cargo.toml dependencies as guix inputs."
@@ -178,6 +178,10 @@ libraries or executables."
     ;; Prevent targeting the build machine.
     (setenv "CRATE_CC_NO_DEFAULTS" "1"))
 
+  ;; Support 16k kernel page sizes on aarch64 with jemalloc.
+  (when (string-prefix? "aarch64" (or target system))
+    (setenv "JEMALLOC_SYS_WITH_LG_PAGE" "14"))
+
   ;; Configure cargo to actually use this new directory with all the crates.
   (setenv "CARGO_HOME" (string-append (getcwd) "/.cargo"))
   (mkdir-p ".cargo")