gnu: ntp: Fix crash.

Fixes <https://issues.guix.gnu.org/76401>.

* gnu/packages/ntp.scm (ntp): Add patch.
* gnu/packages/patches/ntp-fix-dereferencing-the-wrong-variable.patch: Add patch.
* gnu/local.mk (dist_patch_DATA): Register patch.

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

gnu/local.mk

@@ -1912,6 +1912,7 @@ dist_patch_DATA =						\
   %D%/packages/patches/nss-getcwd-nonnull.patch			\
   %D%/packages/patches/nss-increase-test-timeout.patch		\
   %D%/packages/patches/nss-3.56-pkgconfig.patch			\
+  %D%/packages/patches/ntp-fix-dereferencing-the-wrong-variable.patch   \
   %D%/packages/patches/nvi-assume-preserve-path.patch		\
   %D%/packages/patches/nvi-dbpagesize-binpower.patch		\
   %D%/packages/patches/nvi-db4.patch				\

gnu/packages/ntp.scm

@@ -139,17 +139,16 @@ time-stamping or reference clock, sub-microsecond accuracy is possible.")
        (method url-fetch)
        (uri (list (string-append
                    "https://www.eecis.udel.edu/~ntp/ntp_spool/ntp4/ntp-"
-                   (version-major+minor version)
+                   (version-major+minor version) "/ntp-" version ".tar.gz")
-                   "/ntp-" version ".tar.gz")
+                  (string-append "http://archive.ntp.org/ntp4/ntp-"
-                  (string-append
+                                 (version-major+minor version) "/ntp-" version
-                   "http://archive.ntp.org/ntp4/ntp-"
+                                 ".tar.gz")))
-                   (version-major+minor version)
-                   "/ntp-" version ".tar.gz")))
        (sha256
         (base32 "1rb8yksqxjcsjvww9kwnw1242qzszwixh916jj254a8szgrwb16g"))
+       (patches (search-patches
+                 "ntp-fix-dereferencing-the-wrong-variable.patch"))
        (modules '((guix build utils)))
-       (snippet
+       (snippet '(begin
-        '(begin
                    ;; Remove the bundled copy of libevent, but we must keep
                    ;; sntp/libevent/build-aux since configure.ac contains
                    ;; AC_CONFIG_AUX_DIR([sntp/libevent/build-aux])
@@ -160,9 +159,7 @@ time-stamping or reference clock, sub-microsecond accuracy is possible.")
                    (rename-file "sntp/libevent:build-aux"
                                 "sntp/libevent/build-aux")))))
     (native-inputs (list which pkg-config))
-   (inputs
+    (inputs (cons* openssl libevent
-    (cons* openssl
-           libevent
                    ;; Build with POSIX capabilities support on GNU/Linux.  This allows
                    ;; 'ntpd' to run as non-root (when invoked with '-u'.)
                    (if (target-linux?)
@@ -179,7 +176,8 @@ time-stamping or reference clock, sub-microsecond accuracy is possible.")
           (add-after 'unpack 'disable-network-test
             (lambda _
               (substitute* "tests/libntp/Makefile.in"
-               (("test-decodenetnum\\$\\(EXEEXT\\) ") "")))))))
+                (("test-decodenetnum\\$\\(EXEEXT\\) ")
+                 "")))))))
     (build-system gnu-build-system)
     (synopsis "Real time clock synchronization system")
     (description "NTP is a system designed to synchronize the clocks of

gnu/packages/patches/ntp-fix-dereferencing-the-wrong-variable.patch

@@ -0,0 +1,45 @@
+Subject: [PATCH] Fix dereferencing the wrong variable
+
+In line 1911 in ntp_io.c, the code calls `create_interface(port, ep2)` and saves
+the return value in the variable `ep`, which is then checked to not be `NULL` in
+the next line. In case `ep` is `NULL`, the code starting in line 1923 is
+executed. Keep in mind that `ep` is `NULL` in this branch. The error is logged
+in line 1928 and the address inside `ep` is converted using `stoa` by calling
+`stoa(&ep->sin)`. This would normally be fine since `socktoa` catches a `NULL`
+pointer in line 43 in socktoa.c but `&ep->sin` isn't `NULL` but 0x24 as the
+field isn't the first one in the `endpt` struct.
+
+This then causes a segmentation fault by dereferencing the pointer `0x24` in
+line 46 as the code tries to get the address family using `AF(sock)`.
+
+This only happens when ntpd cannot create an interface which seems to happen at
+boot time leading to 6 crashes on my machine on average.
+
+The issue is that someone accidentally typed `ep` instead of the correct `ep2`.
+
+This bug is being tracked as 3968 and 3928 upstream.
+---
+ ntpd/ntp_io.c | 4 ++--
+ 1 file changed, 2 insertions(+), 2 deletions(-)
+
+diff --git a/ntpd/ntp_io.c b/ntpd/ntp_io.c
+index 9d79fe4..0e761ff 100644
+--- a/ntpd/ntp_io.c
++++ b/ntpd/ntp_io.c
+@@ -1921,11 +1921,11 @@ update_interfaces(
+ 		}
+ 		else {
+ 			DPRINT_INTERFACE(3,
+-				(ep, "updating ", " new - FAILED"));
++				(ep2, "updating ", " new - FAILED"));
+
+ 			msyslog(LOG_ERR,
+ 				"cannot bind address %s",
+-				stoa(&ep->sin));
++				stoa(&ep2->sin));
+ 		}
+ 		free(ep2);
+ 	}
+--
+2.48.1
+