diff options
author | Mike Gran <spk121@yahoo.com> | 2017-03-06 22:57:03 -0800 |
---|---|---|
committer | Mike Gran <spk121@yahoo.com> | 2017-03-06 23:08:25 -0800 |
commit | f5b362586d7622c408d4402c7cb496c45ffb56e8 (patch) | |
tree | dc29f257b5b753a5b2d82968b09699a718f7f288 /test-suite/tests/asyncs.test | |
parent | 4ce31fd387e89c8f64716866705a5a34651506ea (diff) | |
download | guile-wip-itimer-checks.tar.gz |
Check for working profiling and virtual itimerswip-itimer-checks
* configure.ac (HAVE_USABLE_GETITIMER_PROF, HAVE_USABLE_GETITIMER_VIRTUAL): new tests
* doc/ref/posix.texi (setitimer, getitimer): document provided? 'ITIMER_VIRTUAL and 'ITIMER_PROF
* doc/ref/statprof.texi (statprof): document ITIMER_PROF requirements
* libguile/scmsigs.c (scm_setitimer, scm_getitimer): document (provided? 'ITIMER_VIRTUAL) and (provided? 'ITIMER_READ)
(scm_init_scmsigs): add features ITIMER_VIRTUAL and ITIMER_PROF
* test-suite/tests/asyncs.test ("prevention via sigprof"): throw when unsupported
* test-suite/tests/signals.test: throw when not supported
* test-suite/tests/statprof.test: throw when not supported
Diffstat (limited to 'test-suite/tests/asyncs.test')
-rw-r--r-- | test-suite/tests/asyncs.test | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/test-suite/tests/asyncs.test b/test-suite/tests/asyncs.test index 437927a81..4ac9020c4 100644 --- a/test-suite/tests/asyncs.test +++ b/test-suite/tests/asyncs.test @@ -1,6 +1,6 @@ ;;;; asyncs.test -*- mode: scheme; coding: utf-8; -*- ;;;; -;;;; Copyright (C) 2016 Free Software Foundation, Inc. +;;;; Copyright (C) 2016, 2017 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -51,7 +51,8 @@ (setitimer ITIMER_PROF 0 0 0 0) (sigaction SIGPROF prev-handler))))) -(when (defined? 'setitimer) +(when (and (defined? 'setitimer) + (provided? 'ITIMER_PROF)) (pass-if "preemption via sigprof" ;; Use an atomic box as a compiler barrier. (let* ((box (make-atomic-box 0)) |