Mercurial > emacs

comparison src/alloc.c @ 16100:ccd19852de65

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(Fpurecopy): Cast arg to make_pure_vector. (Fmake_byte_code): Use XFASTINT when calling make_pure_vector.
author Richard M. Stallman <rms@gnu.org>
date Tue, 03 Sep 1996 23:56:33 +0000
parents ccf489f8596e
children 039e96495054
comparison
equal deleted inserted replaced
16099:e3b0c3bf4451 16100:ccd19852de65
822 register int index; 822 register int index;
823 register struct Lisp_Vector *p; 823 register struct Lisp_Vector *p;
824 824
825 XSETFASTINT (len, nargs); 825 XSETFASTINT (len, nargs);
826 if (!NILP (Vpurify_flag)) 826 if (!NILP (Vpurify_flag))
827 val = make_pure_vector (len); 827 val = make_pure_vector (XFASTINT (len));
828 else 828 else
829 val = Fmake_vector (len, Qnil); 829 val = Fmake_vector (len, Qnil);
830 p = XVECTOR (val); 830 p = XVECTOR (val);
831 for (index = 0; index < nargs; index++) 831 for (index = 0; index < nargs; index++)
832 { 832 {
1365 register int i, size; 1365 register int i, size;
1366 1366
1367 size = XVECTOR (obj)->size; 1367 size = XVECTOR (obj)->size;
1368 if (size & PSEUDOVECTOR_FLAG) 1368 if (size & PSEUDOVECTOR_FLAG)
1369 size &= PSEUDOVECTOR_SIZE_MASK; 1369 size &= PSEUDOVECTOR_SIZE_MASK;
1370 vec = XVECTOR (make_pure_vector (size)); 1370 vec = XVECTOR (make_pure_vector ((EMACS_INT) size));
1371 for (i = 0; i < size; i++) 1371 for (i = 0; i < size; i++)
1372 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]); 1372 vec->contents[i] = Fpurecopy (XVECTOR (obj)->contents[i]);
1373 if (COMPILEDP (obj)) 1373 if (COMPILEDP (obj))
1374 XSETCOMPILED (obj, vec); 1374 XSETCOMPILED (obj, vec);
1375 else 1375 else