diff options
Diffstat (limited to 'signal.h')
| -rw-r--r-- | signal.h | 11 |
1 files changed, 9 insertions, 2 deletions
@@ -63,6 +63,7 @@ typedef struct { sigset_t blocked; val de; int gc; + val **gc_pt; int rv; } extended_jmp_buf; @@ -70,13 +71,16 @@ typedef struct { (setjmp((EJB).jb) \ ? (async_sig_enabled = (EJB).se, \ dyn_env = (EJB).de, \ - gc_enabled = ((EJB).gc), \ + gc_enabled = (EJB).gc, \ + gc_prot_top = (EJB).gc_pt, \ sig_mask(SIG_SETMASK, &(EJB).blocked, 0), \ (EJB).rv) \ : ((EJB).se = async_sig_enabled, \ (EJB).de = dyn_env, \ (EJB).gc = gc_enabled, \ - (EJB).blocked = sig_blocked_cache, 0)) + (EJB).gc_pt = gc_prot_top, \ + (EJB).blocked = sig_blocked_cache, \ + 0)) #define extended_longjmp(EJB, ARG) \ ((EJB).rv = (ARG), longjmp((EJB).jb, 1)) @@ -96,6 +100,7 @@ typedef struct { jmp_buf jb; val de; int gc; + val **gc_pt; int rv; } extended_jmp_buf; @@ -103,9 +108,11 @@ typedef struct { (setjmp((EJB).jb) \ ? (dyn_env = (EJB).de, \ gc_enabled = ((EJB).gc), \ + gc_prot_top = (EJB).gc_pt, \ (EJB).rv) \ : ((EJB).de = dyn_env, \ (EJB).gc = gc_enabled, \ + (EJB).gc_pt = gc_prot_top, \ 0)) #define extended_longjmp(EJB, ARG) \ |