Mercurial > emacs
comparison src/alloc.c @ 53705:db8cbe59ee5c
(Fpurecopy): Declare size as EMACS_INT to not lose bits.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Mon, 26 Jan 2004 11:54:25 +0000 |
| parents | 5558449888ec |
| children | e4e9ec547c6f 895e130cc8da |
comparison
equal
deleted
inserted
replaced
| 53704:47b66024b855 | 53705:db8cbe59ee5c |
|---|---|
| 4228 SBYTES (obj), | 4228 SBYTES (obj), |
| 4229 STRING_MULTIBYTE (obj)); | 4229 STRING_MULTIBYTE (obj)); |
| 4230 else if (COMPILEDP (obj) || VECTORP (obj)) | 4230 else if (COMPILEDP (obj) || VECTORP (obj)) |
| 4231 { | 4231 { |
| 4232 register struct Lisp_Vector *vec; | 4232 register struct Lisp_Vector *vec; |
| 4233 register int i, size; | 4233 register int i; |
| 4234 EMACS_INT size; | |
| 4234 | 4235 |
| 4235 size = XVECTOR (obj)->size; | 4236 size = XVECTOR (obj)->size; |
| 4236 if (size & PSEUDOVECTOR_FLAG) | 4237 if (size & PSEUDOVECTOR_FLAG) |
| 4237 size &= PSEUDOVECTOR_SIZE_MASK; | 4238 size &= PSEUDOVECTOR_SIZE_MASK; |
| 4238 vec = XVECTOR (make_pure_vector ((EMACS_INT) size)); | 4239 vec = XVECTOR (make_pure_vector (size)); |
| 4239 for (i = 0; i < size; i++) | 4240 for (i = 0; i < size; i++) |
| 4240 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); | 4241 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); |
| 4241 if (COMPILEDP (obj)) | 4242 if (COMPILEDP (obj)) |
| 4242 XSETCOMPILED (obj, vec); | 4243 XSETCOMPILED (obj, vec); |
| 4243 else | 4244 else |