From 7a70b397aec07ec6345bb469a9b0b0543e1d77dc Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 17 Sep 1994 00:36:43 +0000 Subject: [PATCH] (Fload): Use EMACS_INT. --- src/lread.c | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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; -- 2.39.5