Commit 7a70b397 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(Fload): Use EMACS_INT.

parent 627a9502
......@@ -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;
......
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