prof_block typos - 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年09月17日 14:58:27 -0400
committerCamm Maguire <camm@debian.org>2014年09月17日 14:58:27 -0400
commitbcb40518d2dcfa47732c4d72be572d2a92ccd4e8 (patch)
treebad8dee0df71609e7efa1e7e354f9700287e0e70
parent93bd24287936e30266acaafac89003caa143604e (diff)
downloadgcl-bcb40518d2dcfa47732c4d72be572d2a92ccd4e8.tar.gz
prof_block typos
Diffstat
-rwxr-xr-xgcl/h/notcomp.h 6
1 files changed, 4 insertions, 2 deletions
diff --git a/gcl/h/notcomp.h b/gcl/h/notcomp.h
index d3b6d1667..926a6fde7 100755
--- a/gcl/h/notcomp.h
+++ b/gcl/h/notcomp.h
@@ -348,7 +348,9 @@ extern bool writable_malloc;
#include "prelink.h"
-#ifdef GCL_PROF
+#include <signal.h>
+
+#ifdef GCL_GPROF
#define prof_block(x) ({\
sigset_t prof,old; \
int r; \
@@ -356,7 +358,7 @@ extern bool writable_malloc;
sigaddset(&prof,SIGPROF); \
sigprocmask(SIG_BLOCK,&prof,&old); \
r=x; \
- sigprocmask(SIG_SETMASK,&old); \
+ sigprocmask(SIG_SETMASK,&old,NULL); \
r;})
#else
#define prof_block(x) x
generated by cgit v1.2.3 (git 2.39.1) at 2025年09月05日 12:25:36 +0000

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