merging in prof_block - 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:44 -0400
committerCamm Maguire <camm@debian.org>2014年09月17日 14:58:44 -0400
commit73318119cb2dce50b5df7a0f6706e1e0bcda5c8d (patch)
treed9bf3eefb3b3a9ce9a7b604cf4306cde3ac48cee
parent5b476693cfc35ad3e7ad69e5c7461c4594833ec5 (diff)
parentbcb40518d2dcfa47732c4d72be572d2a92ccd4e8 (diff)
downloadgcl-wointerrupt-rturbo-oorder-aboj2.tar.gz
merging in prof_blockwointerrupt-rturbo-oorder-aboj2
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月02日 09:16:32 +0000

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