diff options
Diffstat (limited to 'src/emacs-module.c')
| -rw-r--r-- | src/emacs-module.c | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/emacs-module.c b/src/emacs-module.c index 9be481a271e..de62329b3b8 100644 --- a/src/emacs-module.c +++ b/src/emacs-module.c | |||
| @@ -127,7 +127,7 @@ static void module_non_local_exit_signal_1 (emacs_env *, | |||
| 127 | static void module_non_local_exit_throw_1 (emacs_env *, | 127 | static void module_non_local_exit_throw_1 (emacs_env *, |
| 128 | Lisp_Object, Lisp_Object); | 128 | Lisp_Object, Lisp_Object); |
| 129 | static void module_out_of_memory (emacs_env *); | 129 | static void module_out_of_memory (emacs_env *); |
| 130 | static void module_reset_handlerlist (struct handler *const *); | 130 | static void module_reset_handlerlist (struct handler **); |
| 131 | 131 | ||
| 132 | /* We used to return NULL when emacs_value was a different type from | 132 | /* We used to return NULL when emacs_value was a different type from |
| 133 | Lisp_Object, but nowadays we just use Qnil instead. Although they | 133 | Lisp_Object, but nowadays we just use Qnil instead. Although they |
| @@ -191,7 +191,6 @@ static struct emacs_env_private global_env_private; | |||
| 191 | module_out_of_memory (env); \ | 191 | module_out_of_memory (env); \ |
| 192 | return retval; \ | 192 | return retval; \ |
| 193 | } \ | 193 | } \ |
| 194 | verify (__has_attribute (cleanup)); \ | ||
| 195 | struct handler *c __attribute__ ((cleanup (module_reset_handlerlist))) \ | 194 | struct handler *c __attribute__ ((cleanup (module_reset_handlerlist))) \ |
| 196 | = c0; \ | 195 | = c0; \ |
| 197 | if (sys_setjmp (c->jmp)) \ | 196 | if (sys_setjmp (c->jmp)) \ |
| @@ -1144,7 +1143,7 @@ mark_modules (void) | |||
| 1144 | function to be called automatically. PHANDLERLIST points to a word | 1143 | function to be called automatically. PHANDLERLIST points to a word |
| 1145 | containing the handler list, for sanity checking. */ | 1144 | containing the handler list, for sanity checking. */ |
| 1146 | static void | 1145 | static void |
| 1147 | module_reset_handlerlist (struct handler *const *phandlerlist) | 1146 | module_reset_handlerlist (struct handler **phandlerlist) |
| 1148 | { | 1147 | { |
| 1149 | eassert (handlerlist == *phandlerlist); | 1148 | eassert (handlerlist == *phandlerlist); |
| 1150 | handlerlist = handlerlist->next; | 1149 | handlerlist = handlerlist->next; |