diff options
author | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-05-08 14:09:55 +0200 |
---|---|---|
committer | Janneke Nieuwenhuizen <janneke@gnu.org> | 2023-07-20 10:11:32 +0200 |
commit | da9e4fd4347a31eaa5d92489e68b547466feb8bf (patch) | |
tree | 5dd129d77a0c4068b5e5286ac9246fe8b58e3fa0 /gnu/packages/m4.scm | |
parent | 399c43d9ed2539315909073c7fefe13ca70d27ce (diff) |
gnu: m4: Skip gnulib stack-overflow tests for the Hurd.
* gnu/packages/m4.scm (m4)[arguments]: When building for the Hurd, add stage
'skip-stack-overflow-tests'.
Diffstat (limited to 'gnu/packages/m4.scm')
-rw-r--r-- | gnu/packages/m4.scm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/gnu/packages/m4.scm b/gnu/packages/m4.scm index fbc075a2cb..39b50b6800 100644 --- a/gnu/packages/m4.scm +++ b/gnu/packages/m4.scm @@ -2,6 +2,7 @@ ;;; Copyright © 2012, 2013, 2015 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2018 Tobias Geerinckx-Rice <me@tobias.gr> ;;; Copyright © 2022 Marius Bakke <marius@gnu.org> +;;; Copyright © 2023 Janneke Nieuwenhuizen <janneke@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -23,7 +24,8 @@ #:use-module (gnu packages) #:use-module (guix packages) #:use-module (guix download) - #:use-module (guix build-system gnu)) + #:use-module (guix build-system gnu) + #:use-module (guix utils)) (define-public m4 (package @@ -54,6 +56,14 @@ (substitute* "tests/test-execute.sh" (("4 5 6") "4 6")))) + ,@(if (target-hurd?) + '((add-after 'unpack 'skip-stack-overflow-tests + (lambda _ + (substitute* '("tests/test-sigsegv-catch-stackoverflow1.c" + "tests/test-sigsegv-catch-stackoverflow2.c") + (("(^| )main *\\(.*" all) + (string-append all "{\n exit (77);//")))))) + '()) (add-after 'unpack 'configure-shell (lambda* (#:key native-inputs inputs #:allow-other-keys) (let ((/bin/sh (search-input-file (or native-inputs inputs) |