aboutsummaryrefslogtreecommitdiffstats
path: root/src/emacs-module.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/emacs-module.c')
-rw-r--r--src/emacs-module.c5
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 *,
127static void module_non_local_exit_throw_1 (emacs_env *, 127static void module_non_local_exit_throw_1 (emacs_env *,
128 Lisp_Object, Lisp_Object); 128 Lisp_Object, Lisp_Object);
129static void module_out_of_memory (emacs_env *); 129static void module_out_of_memory (emacs_env *);
130static void module_reset_handlerlist (struct handler *const *); 130static 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. */
1146static void 1145static void
1147module_reset_handlerlist (struct handler *const *phandlerlist) 1146module_reset_handlerlist (struct handler **phandlerlist)
1148{ 1147{
1149 eassert (handlerlist == *phandlerlist); 1148 eassert (handlerlist == *phandlerlist);
1150 handlerlist = handlerlist->next; 1149 handlerlist = handlerlist->next;