mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-03 18:50:19 +02:00
(top-repl): Check (defined? 'SIGBUS) before using that
value, there's no such signal on mingw. Reported by Cesar Strauss.
This commit is contained in:
parent
fa7bade131
commit
f4fbe4a4f5
1 changed files with 8 additions and 2 deletions
|
@ -1,6 +1,6 @@
|
|||
;;; installed-scm-file
|
||||
|
||||
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006
|
||||
;;;; Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007
|
||||
;;;; Free Software Foundation, Inc.
|
||||
;;;;
|
||||
;;;; This library is free software; you can redistribute it and/or
|
||||
|
@ -3403,14 +3403,20 @@
|
|||
'(ice-9 debugger) '(debug)))
|
||||
|
||||
|
||||
;; Note: SIGFPE, SIGSEGV and SIGBUS are actually "query-only" (see
|
||||
;; scmsigs.c scm_sigaction_for_thread), so the handlers setup here have
|
||||
;; no effect.
|
||||
(let ((old-handlers #f)
|
||||
(signals (if (provided? 'posix)
|
||||
`((,SIGINT . "User interrupt")
|
||||
(,SIGFPE . "Arithmetic error")
|
||||
(,SIGBUS . "Bad memory access (bus error)")
|
||||
(,SIGSEGV
|
||||
. "Bad memory access (Segmentation violation)"))
|
||||
'())))
|
||||
;; no SIGBUS on mingw
|
||||
(if (defined? 'SIGBUS)
|
||||
(set! signals (acons SIGBUS "Bad memory access (bus error)"
|
||||
signals)))
|
||||
|
||||
(dynamic-wind
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue