Mercurial > hg > xemacs-beta

comparison src/debug.h @ 428:3ecd8885ac67 r21-2-22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-22
author cvs
date Mon, 13 Aug 2007 11:28:15 +0200
parents
children 8de8e3f6228a
comparison
equal deleted inserted replaced
427:0a0253eac470 428:3ecd8885ac67
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 struct debug_classes active_debug_classes;
57
58 #define DASSERT(class, desired_type, action, assertion) do \
59 { \
60 if (active_debug_classes.##class \
61 && (active_debug_classes.types_of_##class & desired_type)) \
62 { \
63 if (! (assertion)) \
64 { \
65 if (action == DEBUG_STDERR) \
66 stderr_out ("Assertion failed in %s at line %d\n", \
67 __FILE__, __LINE__); \
68 else \
69 abort (); \
70 } \
71 } \
72 } while (0)
73 #else /* !DEBUG_XEMACS */
74
75 #define DASSERT(class, desired_type, action, assertion) ((void) 0)
76
77 #endif /* !DEBUG_XEMACS */
78
79 #endif /* _XEMACS_DEBUG_H_ */