gnu: coreutils: Modify gnulib-tests/test-lock for riscv64

* gnu/packages/base.scm (coreutils)[arguments]: Add ‘modify-test-lock’ phase
for riscv64-linux.

Change-Id: Ic3fc25de49d6aa233cead2a04d6a2aaed77f6151

1 files changed, 8 insertions, 0 deletions

diff --git a/gnu/packages/base.scm b/gnu/packages/base.scm
index 4beddd55fc5..74c18c4a5c6 100644
--- a/gnu/packages/base.scm
+++ b/gnu/packages/base.scm
@@ -507,6 +507,14 @@ used to apply commands with arbitrarily long arguments.")
                        (("/bin/sh") (which "sh")))
                      (substitute* (find-files "tests" "\\.sh$")
                        (("#!/bin/sh") (string-append "#!" (which "sh"))))))
+                 ,@(if (string=? "riscv64-linux" (%current-system))
+                       ;; Unmodified test-lock will fail or crash riscv64
+                       '((add-before 'check 'modify-test-lock
+                           (lambda _
+                             (substitute* "gnulib-tests/test-lock.c"
+                               (("#define DO_TEST_RWLOCK 1")
+                                "#define DO_TEST_RWLOCK 0")))))
+                       '())
                  (add-after 'unpack 'remove-tests
                    (lambda _
                      ,@(if (system-hurd?)