diff options
| author | Richard M. Stallman | 1996-09-03 23:56:33 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-09-03 23:56:33 +0000 |
| commit | 01a4d290aacf83d739394b6e831506a598f0cc07 (patch) | |
| tree | 2f28b921e34f2aea9605cdbde676cda8f4a369a5 /src/alloc.c | |
| parent | d839637129b42f2aa4668fe84e525d8fa6d31695 (diff) | |
| download | emacs-01a4d290aacf83d739394b6e831506a598f0cc07.tar.gz emacs-01a4d290aacf83d739394b6e831506a598f0cc07.zip | |
(Fpurecopy): Cast arg to make_pure_vector.
(Fmake_byte_code): Use XFASTINT when calling make_pure_vector.
Diffstat (limited to 'src/alloc.c')
| -rw-r--r-- | src/alloc.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/alloc.c b/src/alloc.c index a1376ba118a..4f66fbd4d35 100644 --- a/src/alloc.c +++ b/src/alloc.c | |||
| @@ -824,7 +824,7 @@ significance.") | |||
| 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); |
| @@ -1367,7 +1367,7 @@ Does not copy symbols.") | |||
| 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)) |