From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 17 Sep 1994 00:36:43 +0000 (+0000)
Subject: (Fload): Use EMACS_INT.
X-Git-Tag: emacs-19.34~7026
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7a70b397aec07ec6345bb469a9b0b0543e1d77dc;p=emacs.git

(Fload): Use EMACS_INT.
---

diff --git a/src/lread.c b/src/lread.c
index e703337edc7..9afeec0192e 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -434,7 +434,7 @@ Return t if file exists.")
      So malloc a full-size pointer, and record the address of that pointer.  */
   ptr = (FILE **) xmalloc (sizeof (FILE *));
   *ptr = stream;
-  XSET (lispstream, Lisp_Internal_Stream, (int) ptr);
+  XSET (lispstream, Lisp_Internal_Stream, (EMACS_INT) ptr);
   record_unwind_protect (load_unwind, lispstream);
   record_unwind_protect (load_descriptor_unwind, load_descriptor_list);
   load_descriptor_list
@@ -1616,7 +1616,8 @@ oblookup (obarray, ptr, size)
      register char *ptr;
      register int size;
 {
-  int hash, obsize;
+  int hash;
+  int obsize;
   register Lisp_Object tail;
   Lisp_Object bucket, tem;