Commit b867eb8e authored by Paul Eggert's avatar Paul Eggert

Use ptrdiff_t, not int, for stack sizes

* src/thread.c (invoke_thread_function):
* src/xterm.c (x_cr_export_frames):
Don’t assume SPECPDL_INDEX fits in ‘int’.
parent bc4d6185
...@@ -664,7 +664,7 @@ DEFUN ("thread-yield", Fthread_yield, Sthread_yield, 0, 0, 0, ...@@ -664,7 +664,7 @@ DEFUN ("thread-yield", Fthread_yield, Sthread_yield, 0, 0, 0,
static Lisp_Object static Lisp_Object
invoke_thread_function (void) invoke_thread_function (void)
{ {
int count = SPECPDL_INDEX (); ptrdiff_t count = SPECPDL_INDEX ();
Ffuncall (1, &current_thread->function); Ffuncall (1, &current_thread->function);
return unbind_to (count, Qnil); return unbind_to (count, Qnil);
......
...@@ -569,7 +569,7 @@ x_cr_export_frames (Lisp_Object frames, cairo_surface_type_t surface_type) ...@@ -569,7 +569,7 @@ x_cr_export_frames (Lisp_Object frames, cairo_surface_type_t surface_type)
int width, height; int width, height;
void (*surface_set_size_func) (cairo_surface_t *, double, double) = NULL; void (*surface_set_size_func) (cairo_surface_t *, double, double) = NULL;
Lisp_Object acc = Qnil; Lisp_Object acc = Qnil;
int count = SPECPDL_INDEX (); ptrdiff_t count = SPECPDL_INDEX ();
specbind (Qredisplay_dont_pause, Qt); specbind (Qredisplay_dont_pause, Qt);
redisplay_preserve_echo_area (31); redisplay_preserve_echo_area (31);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment