Commit 3164abe6 authored by Andreas Schwab's avatar Andreas Schwab

(print_preprocess): Declare size as EMACS_INT to not lose bits.

(print_object): Likewise.
parent 29a831f8
...@@ -1276,7 +1276,8 @@ static void ...@@ -1276,7 +1276,8 @@ static void
print_preprocess (obj) print_preprocess (obj)
Lisp_Object obj; Lisp_Object obj;
{ {
int i, size; int i;
EMACS_INT size;
loop: loop:
if (STRINGP (obj) || CONSP (obj) || VECTORP (obj) if (STRINGP (obj) || CONSP (obj) || VECTORP (obj)
...@@ -1891,7 +1892,7 @@ print_object (obj, printcharfun, escapeflag) ...@@ -1891,7 +1892,7 @@ print_object (obj, printcharfun, escapeflag)
} }
else else
{ {
int size = XVECTOR (obj)->size; EMACS_INT size = XVECTOR (obj)->size;
if (COMPILEDP (obj)) if (COMPILEDP (obj))
{ {
PRINTCHAR ('#'); PRINTCHAR ('#');
......
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