32/37: gnu: postgresql: Fix building on riscv64-linux.

[guix-commits]

efraim pushed a commit to branch wip-riscv
in repository guix.

commit daed093e786d892a7489d7247978b89fee86d74b
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Thu Sep 2 15:19:09 2021 +0300

    gnu: postgresql: Fix building on riscv64-linux.
    
    * gnu/packages/databases.scm (postgresql)[source]: Add patch.
    * gnu/packages/patches/postgresql-riscv-spinlocks.patch: New file.
    * gnu/local.mk (dist_patch_data): Register it.
---
 gnu/local.mk                                       |  1 +
 gnu/packages/databases.scm                         |  3 +-
 .../patches/postgresql-riscv-spinlocks.patch       | 41 ++++++++++++++++++++++
 3 files changed, 44 insertions(+), 1 deletion(-)

diff --git a/gnu/local.mk b/gnu/local.mk
index 7b32629..be65391 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1636,6 +1636,7 @@ dist_patch_DATA =                                         
\
   %D%/packages/patches/portaudio-audacity-compat.patch         \
   %D%/packages/patches/portmidi-modular-build.patch            \
   %D%/packages/patches/postgresql-disable-resolve_symlinks.patch       \
+  %D%/packages/patches/postgresql-riscv-spinlocks.patch        \
   %D%/packages/patches/procmail-ambiguous-getline-debian.patch  \
   %D%/packages/patches/procmail-CVE-2014-3618.patch            \
   %D%/packages/patches/procmail-CVE-2017-16844.patch           \
diff --git a/gnu/packages/databases.scm b/gnu/packages/databases.scm
index 1849eca..b807e88 100644
--- a/gnu/packages/databases.scm
+++ b/gnu/packages/databases.scm
@@ -1076,7 +1076,8 @@ and high-availability (HA).")
               (sha256
                (base32
                 "1kf0gcsrl5n25rjlvkh87aywmn28kbwvakm5c7j1qpr4j01y34za"))
-              (patches (search-patches 
"postgresql-disable-resolve_symlinks.patch"))))
+              (patches (search-patches 
"postgresql-disable-resolve_symlinks.patch"
+                                       "postgresql-riscv-spinlocks.patch"))))
     (build-system gnu-build-system)
     (arguments
      `(#:configure-flags '("--with-uuid=e2fs" "--with-openssl"
diff --git a/gnu/packages/patches/postgresql-riscv-spinlocks.patch 
b/gnu/packages/patches/postgresql-riscv-spinlocks.patch
new file mode 100644
index 0000000..984a573
--- /dev/null
+++ b/gnu/packages/patches/postgresql-riscv-spinlocks.patch
@@ -0,0 +1,41 @@
+https://www.postgresql.org/message-id/dea97b6d-f55f-1f6d-9109-504aa7dfa421@gentoo.org
+
+The attached patch adds native spinlock support to PostgreSQL on RISC-V 
+systems. As suspected by Richard W.M. Jones of Red Hat back in 2016, the 
+__sync_lock_test_and_set() approach applied on arm and arm64 works here 
+as well.
+
+
+Tested against PostgreSQL 13.3 on a physical rv64gc system (BeagleV 
+Starlight beta board) - builds and installs fine, all tests pass. From 
+what I can see in gcc documentation this should in theory work on rv32 
+(and possibly rv128) as well, therefore the patch as it stands covers 
+all RISC-V systems (i.e. doesn't check the value of __risc_xlen) - but I 
+haven't confirmed this experimentally.
+
+--- a/src/include/storage/s_lock.h
++++ b/src/include/storage/s_lock.h
+@@ -315,12 +315,12 @@
+ #endif         /* __ia64__ || __ia64 */
+ 
+ /*
+- * On ARM and ARM64, we use __sync_lock_test_and_set(int *, int) if available.
++ * On ARM, ARM64 and RISC-V, we use __sync_lock_test_and_set(int *, int) if 
available.
+  *
+  * We use the int-width variant of the builtin because it works on more chips
+  * than other widths.
+  */
+-#if defined(__arm__) || defined(__arm) || defined(__aarch64__) || 
defined(__aarch64)
++#if defined(__arm__) || defined(__arm) || defined(__aarch64__) || 
defined(__aarch64) || defined(__riscv)
+ #ifdef HAVE_GCC__SYNC_INT32_TAS
+ #define HAS_TEST_AND_SET
+ 
+@@ -337,7 +337,7 @@
+ #define S_UNLOCK(lock) __sync_lock_release(lock)
+ 
+ #endif         /* HAVE_GCC__SYNC_INT32_TAS */
+-#endif         /* __arm__ || __arm || __aarch64__ || __aarch64 */
++#endif         /* __arm__ || __arm || __aarch64__ || __aarch64 || __riscv */
+ 
+ 
+ /* S/390 and S/390x Linux (32- and 64-bit zSeries) */