Mercurial > emacs
comparison src/alloc.c @ 83030:895e130cc8da
Merged in changes from CVS HEAD
Patches applied:
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-53
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-54
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-55
Update from CVS
* miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-56
Update from CVS
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-70
| author | Karoly Lorentey <lorentey@elte.hu> |
|---|---|
| date | Mon, 26 Jan 2004 21:22:42 +0000 |
| parents | 82c3b4da43ca db8cbe59ee5c |
| children | 1a68e4b22355 |
comparison
equal
deleted
inserted
replaced
| 83029:f002bd19cc34 | 83030:895e130cc8da |
|---|---|
| 4229 SBYTES (obj), | 4229 SBYTES (obj), |
| 4230 STRING_MULTIBYTE (obj)); | 4230 STRING_MULTIBYTE (obj)); |
| 4231 else if (COMPILEDP (obj) || VECTORP (obj)) | 4231 else if (COMPILEDP (obj) || VECTORP (obj)) |
| 4232 { | 4232 { |
| 4233 register struct Lisp_Vector *vec; | 4233 register struct Lisp_Vector *vec; |
| 4234 register int i, size; | 4234 register int i; |
| 4235 EMACS_INT size; | |
| 4235 | 4236 |
| 4236 size = XVECTOR (obj)->size; | 4237 size = XVECTOR (obj)->size; |
| 4237 if (size & PSEUDOVECTOR_FLAG) | 4238 if (size & PSEUDOVECTOR_FLAG) |
| 4238 size &= PSEUDOVECTOR_SIZE_MASK; | 4239 size &= PSEUDOVECTOR_SIZE_MASK; |
| 4239 vec = XVECTOR (make_pure_vector ((EMACS_INT) size)); | 4240 vec = XVECTOR (make_pure_vector (size)); |
| 4240 for (i = 0; i < size; i++) | 4241 for (i = 0; i < size; i++) |
| 4241 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); | 4242 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); |
| 4242 if (COMPILEDP (obj)) | 4243 if (COMPILEDP (obj)) |
| 4243 XSETCOMPILED (obj, vec); | 4244 XSETCOMPILED (obj, vec); |
| 4244 else | 4245 else |