procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Improve CHECK_IMPURE and PURE_P speedup

Browse source 
* src/data.c (Faset): Use XVECTOR and XSTRING rather than XPNTR.
This commit is contained in:
Paul Eggert 2015-10-10 15:46:28 -07:00
parent 5186c99857
commit 89f2c79868
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/data.c
View file

@ -2215,10 +2215,10 @@ bool-vector. IDX starts at 0. */)
CHECK_NUMBER (idx);
idxval = XINT (idx);
CHECK_ARRAY (array, Qarrayp);
CHECK_IMPURE (array, XPNTR (array));
if (VECTORP (array))
{
CHECK_IMPURE (array, XVECTOR (array));
if (idxval < 0 || idxval >= ASIZE (array))
args_out_of_range (array, idx);
ASET (array, idxval, newelt);
@ -2238,6 +2238,7 @@ bool-vector. IDX starts at 0. */)
{
int c;
CHECK_IMPURE (array, XSTRING (array));
if (idxval < 0 || idxval >= SCHARS (array))
args_out_of_range (array, idx);
CHECK_CHARACTER (newelt);