diff options
author | Paul Eggert <eggert@cs.ucla.edu> | 2012-05-09 10:51:30 -0700 |
---|---|---|
committer | Paul Eggert <eggert@cs.ucla.edu> | 2012-05-09 10:51:30 -0700 |
commit | b263a6b03bd58b811ac4f99aae7f37a0279528a9 (patch) | |
tree | 12faf8194bee0393c21dad562075e68911af873f /src/frame.h | |
parent | 3478ec4554757213e8d2344826110cc0f4ae4f3c (diff) | |
download | emacs-b263a6b03bd58b811ac4f99aae7f37a0279528a9.tar.gz |
Untag more efficiently if USE_LSB_TAG.
This is based on a proposal by YAMAMOTO Mitsuharu in
<http://lists.gnu.org/archive/html/emacs-devel/2008-01/msg01876.html>.
For an admittedly artificial (nth 8000 longlist) benchmark on
Fedora 15 x86-64, this yields a 25% CPU speedup. Also, it shrinks
Emacs's overall text size by 1%.
* lisp.h (XUNTAG): New macro.
(XCONS, XVECTOR, XSTRING, XSYMBOL, XFLOAT, XMISC, XPROCESS, XWINDOW)
(XTERMINAL, XSUBR, XBUFFER, XCHAR_TABLE, XSUB_CHAR_TABLE, XBOOL_VECTOR)
(XSETTYPED_PSEUDOVECTOR, XHASH_TABLE, TYPED_PSEUDOVECTORP): Use it.
* eval.c (Fautoload):
* font.h (XFONT_SPEC, XFONT_ENTITY, XFONT_OBJECT):
* frame.h (XFRAME): Use XUNTAG.
Diffstat (limited to 'src/frame.h')
-rw-r--r-- | src/frame.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/frame.h b/src/frame.h index 5c89fc69628..9779f4a0926 100644 --- a/src/frame.h +++ b/src/frame.h @@ -501,7 +501,8 @@ struct frame typedef struct frame *FRAME_PTR; -#define XFRAME(p) (eassert (FRAMEP(p)),(struct frame *) XPNTR (p)) +#define XFRAME(p) \ + (eassert (FRAMEP (p)), (struct frame *) XUNTAG (p, Lisp_Vectorlike)) #define XSETFRAME(a, b) (XSETPSEUDOVECTOR (a, b, PVEC_FRAME)) /* Given a window, return its frame as a Lisp_Object. */ |