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

Tweak performance of cmpfn_profiler

Browse source 
* src/profiler.c (cmpfn_profiler):
Improve performance when VECTORP (bt1) && EQ (bt1, bt2).
This commit is contained in:
Paul Eggert 2019-07-22 22:09:05 -07:00
parent f378ed1a0b
commit 56a3e4a5d3
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/profiler.c
View file

@ -530,7 +530,9 @@ the same lambda expression, or are really unrelated function. */)
static Lisp_Object
cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h)
{
if (VECTORP (bt1) && VECTORP (bt2))
if (EQ (bt1, bt2))
return Qt;
else if (VECTORP (bt1) && VECTORP (bt2))
{
ptrdiff_t l = ASIZE (bt1);
if (l != ASIZE (bt2))
@ -541,7 +543,7 @@ cmpfn_profiler (Lisp_Object bt1, Lisp_Object bt2, struct Lisp_Hash_Table *h)
return Qt;
}
else
return EQ (bt1, bt2) ? Qt : Qnil;
return Qnil;
}
static Lisp_Object