summaryrefslogtreecommitdiff
path: root/gnu/packages/m4.scm
diff options
context:
space:
mode:
authorJanneke Nieuwenhuizen <janneke@gnu.org>2023-05-08 14:09:55 +0200
committerJanneke Nieuwenhuizen <janneke@gnu.org>2023-07-20 10:11:32 +0200
commitda9e4fd4347a31eaa5d92489e68b547466feb8bf (patch)
tree5dd129d77a0c4068b5e5286ac9246fe8b58e3fa0 /gnu/packages/m4.scm
parent399c43d9ed2539315909073c7fefe13ca70d27ce (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.scm12
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)