Stack marking and Lisp objects alignment

From: Dmitry Antipov <dmantipov@yandex.ru>
To: emacs-devel@gnu.org
Subject: Stack marking and Lisp objects alignment
Date: Sat, 07 Jul 2007 23:09:53 +0400	[thread overview]
Message-ID: <383801183835393@webmail23.yandex.ru> (raw)

[-- Attachment #1: Type: text/plain, Size: 86 bytes --]

Is that correct ? If yes, this is a tiny speedup for stack marking code...



Dmitry


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: pointer_marking.patch --]
[-- Type: text/x-patch; name="pointer_marking.patch", Size: 780 bytes --]

Index: alloc.c
===================================================================
RCS file: /sources/emacs/emacs/src/alloc.c,v
retrieving revision 1.410
diff -u -r1.410 alloc.c

--- alloc.c	8 Jun 2007 19:59:46 -0000	1.410
+++ alloc.c	7 Jul 2007 19:03:23 -0000
@@ -4263,9 +4263,14 @@
 {
   struct mem_node *m;
 
-  /* Quickly rule out some values which can't point to Lisp data.  We
-     assume that Lisp data is aligned on even addresses.  */
+  /* Quickly rule out some values which can't point to Lisp data.  We assume
+     that Lisp data is aligned on 8-byte boundaries if LSB tagging scheme is
+     used, or at least at even addresses otherwise.  */
+#ifdef USE_LSB_TAG
+  if ((EMACS_INT) p & 7)
+#else
   if ((EMACS_INT) p & 1)
+#endif
     return;
 
   m = mem_find (p);

[-- Attachment #3: Type: text/plain, Size: 142 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-devel
