summaryrefslogtreecommitdiff
path: root/src/process.h
diff options
context:
space:
mode:
authorPaul Eggert <eggert@cs.ucla.edu>2016-12-25 09:17:02 -0800
committerPaul Eggert <eggert@cs.ucla.edu>2016-12-25 09:17:50 -0800
commitf5b9c1e59653ac687806f6f84181fc3f5020e6ba (patch)
tree316a0b30906c467aed07e031d6108cba194a5636 /src/process.h
parente5ef59b87da5c2ddfa22f7342efe29b3eea6ed97 (diff)
downloademacs-f5b9c1e59653ac687806f6f84181fc3f5020e6ba.tar.gz
Reorder lisp.h to declare types before using them
This puts basic functions for types to be after the corresponding type definitions. This is a more-common programming style in C, and will make it easier to port Emacs to gcc -fcheck-pointer-bounds, since the functions now have access to the corresponding types' sizes. This patch does not change the code; it just moves declarations and definitions and removes no-longer-needed forward declarations (Bug#25128). * src/buffer.c, src/data.c, src/image.c: Include process.h, for PROCESSP. * src/buffer.h (BUFFERP, CHECK_BUFFER, XBUFFER): * src/process.h (PROCESSP, CHECK_PROCESS, XPROCESS): * src/termhooks.h (TERMINALP, XTERMINAL): * src/window.h (WINDOWP, CHECK_WINDOW, XWINDOW): * src/thread.h (THREADP, CHECK_THREAD, XTHREAD, MUTEXP, CHECK_MUTEX) (XMUTEX, CONDVARP, CHECK_CONDVAR, XCONDVAR): Move here from lisp.h. * src/intervals.h: Include buffer.h, for BUFFERP. Include lisp.h, for Lisp_Object. * src/lisp.h: Reorder declarations and definitions as described above. Move thread includes to be later, so that they can use the reordered definitions. Move some symbols to other headers (noted elsewhere). Remove forward decls that are no longer needed. * src/thread.h: Include systhread.h here, not in lisp.h, since lisp.h itself does not need systhread.h.
Diffstat (limited to 'src/process.h')
-rw-r--r--src/process.h19
1 files changed, 19 insertions, 0 deletions
diff --git a/src/process.h b/src/process.h
index e497ebc539f..5ef327aebdc 100644
--- a/src/process.h
+++ b/src/process.h
@@ -202,6 +202,25 @@ struct Lisp_Process
#endif
};
+INLINE bool
+PROCESSP (Lisp_Object a)
+{
+ return PSEUDOVECTORP (a, PVEC_PROCESS);
+}
+
+INLINE void
+CHECK_PROCESS (Lisp_Object x)
+{
+ CHECK_TYPE (PROCESSP (x), Qprocessp, x);
+}
+
+INLINE struct Lisp_Process *
+XPROCESS (Lisp_Object a)
+{
+ eassert (PROCESSP (a));
+ return XUNTAG (a, Lisp_Vectorlike);
+}
+
/* Every field in the preceding structure except for the first two
must be a Lisp_Object, for GC's sake. */