1 files changed, 1 insertions, 1 deletions
diff --git a/src/thread.c b/src/thread.c
index 9ea7e121a82..e3787971a53 100644
--- a/src/thread.c
+++ b/src/thread.c
@@ -664,7 +664,7 @@ DEFUN ("thread-yield", Fthread_yield, Sthread_yield, 0, 0, 0,
 static Lisp_Object
 invoke_thread_function (void)
 {
-  int count = SPECPDL_INDEX ();
+  ptrdiff_t count = SPECPDL_INDEX ();
  Ffuncall (1, &current_thread->function);
  return unbind_to (count, Qnil);

diff --git a/src/thread.c b/src/thread.c index 9ea7e121a82..e3787971a53 100644 --- a/src/thread.c +++ b/src/thread.c
@@ -664,7 +664,7 @@ DEFUN ("thread-yield", Fthread_yield, Sthread_yield, 0, 0, 0,
664	static Lisp_Object	664	static Lisp_Object
665	invoke_thread_function (void)	665	invoke_thread_function (void)
666	{	666	{
667	int count = SPECPDL_INDEX ();	667	ptrdiff_t count = SPECPDL_INDEX ();
668		668
669	Ffuncall (1, &current_thread->function);	669	Ffuncall (1, &current_thread->function);
670	return unbind_to (count, Qnil);	670	return unbind_to (count, Qnil);