* src/comp.c (check_comp_unit_relocs): Prefer ptrdiff_t to EMACS_INT.

diff --git a/src/comp.c b/src/comp.c
index ce9c387568af08b01e8629f4a36b7c1aedef1fe1..dae68ddb2bb0e2964241f6b477ad372f286e4993 100644 (file)
--- a/src/comp.c
+++ b/src/comp.c
@@ -4713,12 +4713,12 @@ check_comp_unit_relocs (struct Lisp_Native_Comp_Unit *comp_u)
   Lisp_Object *data_imp_relocs = dynlib_sym (handle, DATA_RELOC_IMPURE_SYM);
 
   EMACS_INT d_vec_len = XFIXNUM (Flength (comp_u->data_vec));
-  for (EMACS_INT i = 0; i < d_vec_len; i++)
+  for (ptrdiff_t i = 0; i < d_vec_len; i++)
     if (!EQ (data_relocs[i],  AREF (comp_u->data_vec, i)))
       return false;
 
   d_vec_len = XFIXNUM (Flength (comp_u->data_impure_vec));
-  for (EMACS_INT i = 0; i < d_vec_len; i++)
+  for (ptrdiff_t i = 0; i < d_vec_len; i++)
     {
       Lisp_Object x = data_imp_relocs[i];
       if (EQ (x, Qlambda_fixup))