mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-07 15:21:46 +00:00
Code Issues Releases Activity

* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.

Browse Source
This commit is contained in:
Ken Raeburn 2000-03-30 22:27:55 +00:00
parent 7438c86b33
commit c6129d7e86
2 changed files with 16 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ChangeLog
View File

@ -1,5 +1,7 @@
2000-03-30 Ken Raeburn <raeburn@gnu.org>
* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
* lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW,
XSUBR, XBUFFER): Verify correct object type before returning
pointer, using eassert.

16
src/lisp.h
View File

@ -48,13 +48,25 @@ Boston, MA 02111-1307, USA. */
/* Extra internal type checking? */
extern int suppress_checking;
#ifdef ENABLE_CHECKING
extern void die P_((const char *, const char *, int));
#define CHECK(check,msg) ((check || suppress_checking ? 0 : die (msg, __FILE__, __LINE__)), 0)
#ifdef ENABLE_CHECKING
#define CHECK(check,msg) ((check || suppress_checking \
? 0 \
: die (msg, __FILE__, __LINE__)), \
0)
/* Let's get some compile-time checking too. */
#undef NO_UNION_TYPE
#else
/* Produce same side effects and result, but don't complain. */
#define CHECK(check,msg) ((check),0)
#endif
/* Define an Emacs version of "assert", since some system ones are
flaky. */
#if defined (__GNUC__) && __GNUC__ >= 2 && defined (__STDC__)