emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] scratch/record b5475b8 07/10: Remove CHECK_RECORD_TYPE.


From: Lars Brinkhoff
Subject: [Emacs-diffs] scratch/record b5475b8 07/10: Remove CHECK_RECORD_TYPE.
Date: Fri, 24 Mar 2017 11:51:42 -0400 (EDT)

branch: scratch/record
commit b5475b8db92568906855ca451a73ed82ab651415
Author: Lars Brinkhoff <address@hidden>
Commit: Lars Brinkhoff <address@hidden>

    Remove CHECK_RECORD_TYPE.
---
 src/alloc.c | 2 --
 src/data.c  | 2 --
 src/lisp.h  | 9 ---------
 3 files changed, 13 deletions(-)

diff --git a/src/alloc.c b/src/alloc.c
index d46f2a7..fe631f2 100644
--- a/src/alloc.c
+++ b/src/alloc.c
@@ -3419,7 +3419,6 @@ type slot, must fit in PSEUDOVECTOR_SIZE_BITS.  */)
   ptrdiff_t size, i;
   struct Lisp_Vector *p;
 
-  CHECK_RECORD_TYPE (type);
   CHECK_NATNUM (slots);
 
   size = XFASTINT (slots) + 1;
@@ -3454,7 +3453,6 @@ usage: (record TYPE &rest SLOTS) */)
   Lisp_Object type = args[0];
   Lisp_Object record;
 
-  CHECK_RECORD_TYPE (type);
   p->contents[0] = type;
   memcpy (p->contents + 1, args + 1, (nargs - 1) * sizeof *args);
 
diff --git a/src/data.c b/src/data.c
index df73066..7a56117 100644
--- a/src/data.c
+++ b/src/data.c
@@ -2367,8 +2367,6 @@ bool-vector.  IDX starts at 0.  */)
       ptrdiff_t size = ASIZE (array) & PSEUDOVECTOR_SIZE_MASK;
       if (idxval < 0 || idxval >= size)
        args_out_of_range (array, idx);
-      if (idxval == 0)
-       CHECK_RECORD_TYPE (newelt);
       ASET (array, idxval, newelt);
     }
   else /* STRINGP */
diff --git a/src/lisp.h b/src/lisp.h
index b7c4d69..324a00d 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -2746,15 +2746,6 @@ CHECK_RECORD (Lisp_Object x)
   CHECK_TYPE (RECORDP (x), Qrecordp, x);
 }
 
-INLINE void
-CHECK_RECORD_TYPE (Lisp_Object x)
-{
-  /* We don't yet know exactly what to check for, or if there should
-     be a check. */
-
-  /* eassert (SYMBOLP (x) || CLASSP (x)); */
-}
-
 /* Test for image (image . spec)  */
 INLINE bool
 IMAGEP (Lisp_Object x)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]