This is needed to run Python on the Hurd, especially during the build of python-boot0. Adapted from https://salsa.debian.org/glibc-team/glibc/-/blob/glibc-2.31/debian/patches/hurd-i386/unsubmitted-clock_t_centiseconds.diff commit d57f2f9b4bd007846af2fb4217486ea572579010 Author: Richard Braun Date: Tue Aug 27 11:35:31 2013 +0200 Express CPU time (clock_t of times(2)) in centiseconds From 170c292b643fdc1eb56881e6592b07c0c019993e Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Mon, 2 Mar 2020 18:28:54 +0100 Subject: [PATCH 1/2] Express CPU time (clock_t) in centiseconds --- sysdeps/mach/hurd/clock.c | 8 ++++---- sysdeps/mach/hurd/getclktck.c | 5 ++--- sysdeps/mach/hurd/setitimer.c | 2 +- sysdeps/mach/hurd/times.c | 2 +- 4 files changed, 8 insertions(+), 9 deletions(-) diff --git a/sysdeps/mach/hurd/clock.c b/sysdeps/mach/hurd/clock.c index 7cb42df786..4db49b579d 100644 --- a/sysdeps/mach/hurd/clock.c +++ b/sysdeps/mach/hurd/clock.c @@ -44,10 +44,10 @@ clock (void) if (err) return __hurd_fail (err); - total = bi.user_time.seconds * 1000000 + bi.user_time.microseconds; - total += tti.user_time.seconds * 1000000 + tti.user_time.microseconds; - total += bi.system_time.seconds * 1000000 + bi.system_time.microseconds; - total += tti.system_time.seconds * 1000000 + tti.system_time.microseconds; + total = bi.user_time.seconds * 100 + bi.user_time.microseconds / 10000; + total += tti.user_time.seconds * 100 + tti.user_time.microseconds / 10000; + total += bi.system_time.seconds * 100 + bi.system_time.microseconds / 10000; + total += tti.system_time.seconds * 100 + tti.system_time.microseconds / 10000; return total; } diff --git a/sysdeps/mach/hurd/getclktck.c b/sysdeps/mach/hurd/getclktck.c index 943e36e805..5a3cf0930b 100644 --- a/sysdeps/mach/hurd/getclktck.c +++ b/sysdeps/mach/hurd/getclktck.c @@ -18,12 +18,11 @@ #include -/* Return frequency of `times'. - Since Mach reports CPU times in microseconds, we always use 1 million. */ +/* Return frequency of `times'. */ int __getclktck (void) { - return 1000000; + return 100; } /* Before glibc 2.2, the Hurd actually did this differently, so we diff --git a/sysdeps/mach/hurd/setitimer.c b/sysdeps/mach/hurd/setitimer.c index b16f4ddd5d..8bf1464830 100644 --- a/sysdeps/mach/hurd/setitimer.c +++ b/sysdeps/mach/hurd/setitimer.c @@ -43,7 +43,7 @@ quantize_timeval (struct timeval *tv) static time_t quantum = -1; if (quantum == -1) - quantum = 1000000 / __getclktck (); + quantum = 100 / __getclktck (); tv->tv_usec = ((tv->tv_usec + (quantum - 1)) / quantum) * quantum; if (tv->tv_usec >= 1000000) diff --git a/sysdeps/mach/hurd/times.c b/sysdeps/mach/hurd/times.c index 23ed992783..cbf6039b19 100644 --- a/sysdeps/mach/hurd/times.c +++ b/sysdeps/mach/hurd/times.c @@ -29,7 +29,7 @@ static inline clock_t clock_from_time_value (const time_value_t *t) { - return t->seconds * 1000000 + t->microseconds; + return t->seconds * 100 + t->microseconds / 10000; } /* Store the CPU time used by this process and all its -- 2.24.0 Likewise. * gnu/system.scm (locale-name->definition*): Likewise. * gnu/system/mapped-devices.scm (check-device-initrd-modules): Likewise. (check-luks-device): Likewise. * guix/channels.scm (latest-channel-instance): Likewise. * guix/cve.scm (json->cve-items): Likewise. * guix/git-authenticate.scm (commit-signing-key): Likewise. (commit-authorized-keys): Likewise. (authenticate-commit): Likewise. (verify-introductory-commit): Likewise. * guix/remote.scm (remote-pipe-for-gexp): Likewise. * guix/scripts/graph.scm (assert-package): Likewise. * guix/scripts/offload.scm (private-key-from-file*): Likewise. * guix/ssh.scm (authenticate-server*): Likewise. (open-ssh-session): Likewise. (remote-inferior): Likewise. * guix/ui.scm (matching-generations): Likewise. * guix/upstream.scm (package-update): Likewise. * tests/channels.scm ("latest-channel-instances, missing introduction for 'guix'"): Catch 'formatted-message?'. ("authenticate-channel, wrong first commit signer"): Likewise. * tests/lint.scm ("patches: not found"): Adjust message string. * tests/packages.scm ("patch not found yields a run-time error"): Catch 'formatted-message?'. * guix/lint.scm (check-patch-file-names): Handle 'formatted-message?'. (check-derivation): Ditto. Ludovic Courtès 2020-07-25utils: Move '&fix-hint' to (guix diagnostics)....* guix/utils.scm (&fix-hint): Move to... * guix/diagnostics.scm (&fix-hint): ... here. * gnu.scm: Adjust imports accordingly. * gnu/system/mapped-devices.scm: Likewise. * guix/channels.scm: Likewise. * guix/profiles.scm: Likewise. * guix/scripts/system/reconfigure.scm: Likewise. * guix/ssh.scm: Likewise. Ludovic Courtès 2020-07-25utils: Move <location> and '&error-location' to (guix diagnostics)....* guix/utils.scm (<location>, source-properties->location) (location->source-properties, &error-location): Move to... * guix/diagnostics.scm: ... here. * gnu.scm: Adjust imports accordingly. * gnu/machine.scm: Likewise. * gnu/system.scm: Likewise. * gnu/tests.scm: Likewise. * guix/inferior.scm: Likewise. * tests/channels.scm: Likewise. * tests/packages.scm: Likewise. Ludovic Courtès