Mercurial > hg > xemacs-beta

comparison src/debug.h @ 0:376386a54a3c r19-14

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-14
author cvs
date Mon, 13 Aug 2007 08:45:50 +0200
parents
children c5d627a313b1
comparison
equal deleted inserted replaced
-1:000000000000 0:376386a54a3c
1 /* Debugging aids -- togglable assertions.
2 Copyright (C) 1994 Free Software Foundation, Inc.
3
4 This file is part of XEmacs.
5
6 XEmacs is free software; you can redistribute it and/or modify it
7 under the terms of the GNU General Public License as published by the
8 Free Software Foundation; either version 2, or (at your option) any
9 later version.
10
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
14 for more details.
15
16 You should have received a copy of the GNU General Public License
17 along with XEmacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
20
21 /* Synched up with: Not in FSF. */
22
23 /* Written by Chuck Thompson */
24
25 #ifndef _XEMACS_DEBUG_H_
26 #define _XEMACS_DEBUG_H_
27
28 #define DEBUG_STDERR 1
29 #define DEBUG_ABORT 2
30
31 #ifdef DEBUG_XEMACS
32
33 #include <stdio.h>
34
35 struct debug_classes
36 {
37 unsigned int redisplay :1;
38 unsigned int buffers :1;
39 unsigned int extents :1;
40 unsigned int faces :1;
41 unsigned int windows :1;
42 unsigned int frames :1;
43 unsigned int devices :1;
44 unsigned int byte_code :1;
45
46 unsigned int types_of_redisplay;
47 unsigned int types_of_buffers;
48 unsigned int types_of_extents;
49 unsigned int types_of_faces;
50 unsigned int types_of_windows;
51 unsigned int types_of_frames;
52 unsigned int types_of_devices;
53 unsigned int types_of_byte_code;
54 };
55
56 extern Lisp_Object Qredisplay, Qbuffers, Qextents, Qfaces;
57 extern Lisp_Object Qwindows, Qframes, Qdevices, Qbyte_code;
58 extern struct debug_classes active_debug_classes;
59
60 #define DASSERT(class, desired_type, action, assertion) do \
61 { \
62 if (active_debug_classes.##class \
63 && (active_debug_classes.types_of_##class & desired_type)) \
64 { \
65 if (! (assertion)) \
66 { \
67 if (action == DEBUG_STDERR) \
68 stderr_out ("Assertion failed in %s at line %d\n", \
69 __FILE__, __LINE__); \
70 else \
71 abort (); \
72 } \
73 } \
74 } while (0)
75 #else /* !DEBUG_XEMACS */
76
77 #define DASSERT(class, desired_type, action, assertion) ((void) 0)
78
79 #endif /* !DEBUG_XEMACS */
80
81 #endif /* _XEMACS_DEBUG_H_ */