Changeset 3673

Timestamp:

2005年04月09日 18時24分20秒 (4 years ago)

Author:

miyoshi

Message:

(MARKBIT): Removed.
(XMARKBIT): Ditto.
(XSETMARKBIT): Ditto.
(XMARK): Ditto.
(XUNMARK): Ditto.

Files:

• branches/2.2/src/ChangeLog.Meadow (modified) (1 diff)
• branches/2.2/src/lisp.h (modified) (3 diffs)

branches/2.2/src/ChangeLog.Meadow

@@ +1 @@
+2005-04-09  MIYOSHI Masanori  <miyoshi@meadowy.org>
+
+        * lisp.h (MARKBIT): Removed.
+        (XMARKBIT): Ditto.
+        (XSETMARKBIT): Ditto.
+        (XMARK): Ditto.
+        (XUNMARK): Ditto.
+
-2005-04-09  MIYOSHI Masanori  <miyoshi@meadowy.org>
-

branches/2.2/src/lisp.h

@@ -256 +256 @@
-   are defined differently by the m- file.  */
-
-#define MARKBIT ((EMACS_INT) ((EMACS_UINT) 1 << (VALBITS + GCTYPEBITS)))
-
-/* In the size word of a vector, this bit means the vector has been marked.  */
-
@@ -378 +376 @@
-#define XSETFASTINT(a, b) ((a) = make_number (b))
-
-#ifdef HAVE_SHM
-/* In this representation, data is found in two widely separated segments.  */
-extern int pure_size;
-#define XPNTR(a) \
-  (XUINT (a) | (XUINT (a) > pure_size ? DATA_SEG_BITS : PURE_SEG_BITS))
-#else /* not HAVE_SHM */
-#ifdef DATA_SEG_BITS
-/* This case is used for the rt-pc.
-   In the diffs I was given, it checked for ptr = 0
-   and did not adjust it in that case.
-   But I don't think that zero should ever be found
-   in a Lisp object whose data type says it points to something.  */
-#define XPNTR(a) (XUINT (a) | DATA_SEG_BITS)
-#else
-#define XPNTR(a) XUINT (a)
-
-
+
-#else  /* not USE_LSB_TAG */
-
@@ -438 +421 @@
-
-#define EQ(x, y) ((x) == (y))
-
-#define XMARKBIT(a) ((a) < 0)
-#define XSETMARKBIT(a,b) ((a) = ((a) & ~MARKBIT) | ((b) ? MARKBIT : 0))
-#define XMARK(a) ((a) |= MARKBIT)
-#define XUNMARK(a) ((a) &= ~MARKBIT)
-
-#else /* not NO_UNION_TYPE */