From: Andrea Corallo <akrl@sdf.org>
Date: Tue, 16 Feb 2021 21:01:27 +0000 (+0100)
Subject: * src/comp.c (check_comp_unit_relocs): Prefer ptrdiff_t to EMACS_INT.
X-Git-Tag: emacs-28.0.90~2727^2~149
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7b676861dd1080ac65368d8b975972acb5bb1da8;p=emacs.git

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

diff --git a/src/comp.c b/src/comp.c
index ce9c387568a..dae68ddb2bb 100644
--- 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))