From 41b867eaceb6bfab6be4ed62a2d4dd9cf1be62e3 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Mon, 26 Jan 2004 11:54:36 +0000 Subject: [PATCH] (Fpurecopy): Declare size as EMACS_INT to not lose bits. --- src/ChangeLog | 7 +++++++ src/alloc.c | 5 +++-- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 3365d81f3ad..a71cb27cf33 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2004-01-26 Andreas Schwab + + * print.c (print_preprocess): Declare size as EMACS_INT to not + lose bits. + (print_object): Likewise. + * alloc.c (Fpurecopy): Likewise. + 2004-01-25 Luc Teirlinck * window.c (Fwindow_minibuffer_p): Doc fix. diff --git a/src/alloc.c b/src/alloc.c index f69ad5f870e..7be54aa1ae0 100644 --- a/src/alloc.c +++ b/src/alloc.c @@ -4230,12 +4230,13 @@ Does not copy symbols. Copies strings without text properties. */) else if (COMPILEDP (obj) || VECTORP (obj)) { register struct Lisp_Vector *vec; - register int i, size; + register int i; + EMACS_INT size; size = XVECTOR (obj)->size; if (size & PSEUDOVECTOR_FLAG) size &= PSEUDOVECTOR_SIZE_MASK; - vec = XVECTOR (make_pure_vector ((EMACS_INT) size)); + vec = XVECTOR (make_pure_vector (size)); for (i = 0; i < size; i++) vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); if (COMPILEDP (obj)) -- 2.39.2