summaryrefslogtreecommitdiff
path: root/src/lisp.h
diff options
context:
space:
mode:
authorLars Brinkhoff <lars@nocrew.org>2017-04-03 08:42:18 +0200
committerLars Brinkhoff <lars@nocrew.org>2017-04-10 08:32:23 +0200
commitc9b173eff5154cfd2d7567cdf400e48c88fd51d2 (patch)
treee87ce1ccc69052906f8713f4720d9578be6e5534 /src/lisp.h
parent0fb52dcc45742af58a081bd6ca27b70f6a6a1899 (diff)
downloademacs-scratch/pvsize.tar.gz
Please revew: PVSIZE, pseudovector size.scratch/pvsize
Diffstat (limited to 'src/lisp.h')
-rw-r--r--src/lisp.h6
1 files changed, 6 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h
index 5e7d41bc5d5..678e261c1da 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1401,6 +1401,12 @@ ASIZE (Lisp_Object array)
return size;
}
+INLINE ptrdiff_t
+PVSIZE (Lisp_Object pv)
+{
+ return ASIZE (pv) & PSEUDOVECTOR_SIZE_MASK;
+}
+
INLINE bool
VECTORP (Lisp_Object x)
{