14/14: gnu: openssh: Update to 9.7p1.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 6844a31733c9b5bf05196ba9742c325dbf3fe916
Author: Jack Hill <jackhill@jackhill.us>
AuthorDate: Mon Mar 11 11:28:09 2024 -0400

    gnu: openssh: Update to 9.7p1.
    
    * gnu/packages/ssh.scm (openssh): Update to 9.7p1
    [source]: Remove openssh-gcc-13-ppc64le-fzero-call-used-regs.patch'.
    * gnu/packages/patches/openssh-gcc-13-ppc64le-fzero-call-used-regs.patch:
    Delete file.
    * gnu/packages/local.mk (dist_patch_DATA): Remove it.
    
    Change-Id: Ia13c32869afa6c964770243ecacf5a3ce473e5e2
    Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
 gnu/local.mk                                       |  1 -
 ...enssh-gcc-13-ppc64le-fzero-call-used-regs.patch | 61 ----------------------
 gnu/packages/ssh.scm                               |  9 ++--
 3 files changed, 3 insertions(+), 68 deletions(-)

diff --git a/gnu/local.mk b/gnu/local.mk
index 5b6e175993..a281a79610 100644
--- a/gnu/local.mk
+++ b/gnu/local.mk
@@ -1780,7 +1780,6 @@ dist_patch_DATA =                                         
\
   %D%/packages/patches/openjdk-15-xcursor-no-dynamic.patch     \
   %D%/packages/patches/openjdk-21-fix-rpath.patch              \
   %D%/packages/patches/openmpi-mtl-priorities.patch            \
-  %D%/packages/patches/openssh-gcc-13-ppc64le-fzero-call-used-regs.patch       
\
   %D%/packages/patches/openssh-trust-guix-store-directory.patch        \
   %D%/packages/patches/openresolv-restartcmd-guix.patch        \
   %D%/packages/patches/openrgb-unbundle-hueplusplus.patch      \
diff --git 
a/gnu/packages/patches/openssh-gcc-13-ppc64le-fzero-call-used-regs.patch 
b/gnu/packages/patches/openssh-gcc-13-ppc64le-fzero-call-used-regs.patch
deleted file mode 100644
index 1af9868b9a..0000000000
--- a/gnu/packages/patches/openssh-gcc-13-ppc64le-fzero-call-used-regs.patch
+++ /dev/null
@@ -1,61 +0,0 @@
-From 1036d77b34a5fa15e56f516b81b9928006848cbd Mon Sep 17 00:00:00 2001
-From: Damien Miller <djm@mindrot.org>
-Date: Fri, 22 Dec 2023 17:56:26 +1100
-Subject: [PATCH] better detection of broken -fzero-call-used-regs
-MIME-Version: 1.0
-Content-Type: text/plain; charset=UTF-8
-Content-Transfer-Encoding: 8bit
-
-gcc 13.2.0 on ppc64le refuses to compile some function, including
-cipher.c:compression_alg_list() with an error:
-
-> sorry, unimplemented: argument ‘used’ is not supportedcw
-> for ‘-fzero-call-used-regs’ on this target
-
-This extends the autoconf will-it-work test with a similarly-
-structured function that seems to catch this.
-
-Spotted/tested by Colin Watson; bz3645
----
-
-Taken from upsteam, and for Guix by jackhill@jackhill.us
-Thanks Marcel van der Boom for noticing: https://issues.guix.gnu.org/67948#2
-
-m4/openssh.m4 | 12 +++++++++---
- 1 file changed, 9 insertions(+), 3 deletions(-)
-
-diff --git a/m4/openssh.m4 b/m4/openssh.m4
-index 5d4c56280..033df501c 100644
---- a/m4/openssh.m4
-+++ b/m4/openssh.m4
-@@ -20,18 +20,24 @@ char *f2(char *s, ...) {
-       va_end(args);
-       return strdup(ret);
- }
-+const char *f3(int s) {
-+      return s ? "good" : "gooder";
-+}
- int main(int argc, char **argv) {
--      (void)argv;
-       char b[256], *cp;
-+      const char *s;
-       /* Some math to catch -ftrapv problems in the toolchain */
-       int i = 123 * argc, j = 456 + argc, k = 789 - argc;
-       float l = i * 2.1;
-       double m = l / 0.5;
-       long long int n = argc * 12345LL, o = 12345LL * (long long int)argc;
-+      (void)argv;
-       f(1);
--      snprintf(b, sizeof b, "%d %d %d %f %f %lld %lld\n", i,j,k,l,m,n,o);
-+      s = f3(f(2));
-+      snprintf(b, sizeof b, "%d %d %d %f %f %lld %lld %s\n", i,j,k,l,m,n,o,s);
-       if (write(1, b, 0) == -1) exit(0);
--      cp = f2("%d %d %d %f %f %lld %lld\n", i,j,k,l,m,n,o);
-+      cp = f2("%d %d %d %f %f %lld %lld %s\n", i,j,k,l,m,n,o,s);
-+      if (write(1, cp, 0) == -1) exit(0);
-       free(cp);
-       /*
-        * Test fallthrough behaviour.  clang 10's -Wimplicit-fallthrough does
--- 
-2.41.0
-
diff --git a/gnu/packages/ssh.scm b/gnu/packages/ssh.scm
index d53d8d59e7..ff39aea9ba 100644
--- a/gnu/packages/ssh.scm
+++ b/gnu/packages/ssh.scm
@@ -198,18 +198,15 @@ a server that supports the SSH-2 protocol.")
 (define-public openssh
   (package
    (name "openssh")
-   (version "9.6p1")
+   (version "9.7p1")
    (source
     (origin
       (method url-fetch)
       (uri (string-append "mirror://openbsd/OpenSSH/portable/"
                           "openssh-" version ".tar.gz"))
-      (patches (search-patches "openssh-trust-guix-store-directory.patch"
-                               ;; Can be removed with next openssh update
-                               ;; https://issues.guix.gnu.org/67948#2
-                               
"openssh-gcc-13-ppc64le-fzero-call-used-regs.patch"))
+      (patches (search-patches "openssh-trust-guix-store-directory.patch"))
       (sha256
-       (base32 "0z3pgam8b4z05lvdb78iv06p204qwl7b94a3cnnwba2mfb0120li"))))
+       (base32 "1z9zfw7ndibxwprazlkv1isrh1yplczdin5cziijfanqcvvjc129"))))
    (build-system gnu-build-system)
    (arguments
     (list