gcl.git - GNU Common Lisp

index : gcl.git
GNU Common Lisp
summary refs log tree commit diff
diff options
context:
space:
mode:
authorCamm Maguire <camm@debian.org>2014年10月18日 21:08:41 -0400
committerCamm Maguire <camm@debian.org>2014年10月18日 21:08:41 -0400
commit3697c6eaf1d14e08a0d8a7aa8ccf4f75db07619c (patch)
tree0692d4e137228be70d501f34d71c529bcfe12fd4
parentdc2f2cf4b055ec5c3f180097adcf43c2c12b6803 (diff)
downloadgcl-3697c6eaf1d14e08a0d8a7aa8ccf4f75db07619c.tar.gz
allow multiple segfault catches in segmentation_catcher
Diffstat
-rwxr-xr-xgcl/o/main.c 2
1 files changed, 2 insertions, 0 deletions
diff --git a/gcl/o/main.c b/gcl/o/main.c
index e3560c261..29cf5af87 100755
--- a/gcl/o/main.c
+++ b/gcl/o/main.c
@@ -459,6 +459,8 @@ main(int argc, char **argv, char **envp) {
/* catch certain signals */
void install_segmentation_catcher(void)
{
+ unblock_signals(SIGSEGV,SIGSEGV);
+ unblock_signals(SIGBUS,SIGBUS);
(void) gcl_signal(SIGSEGV,segmentation_catcher);
(void) gcl_signal(SIGBUS,segmentation_catcher);
}
generated by cgit v1.2.3 (git 2.25.1) at 2025年09月05日 12:25:17 +0000

AltStyle によって変換されたページ (->オリジナル) /