118 lines
4.3 KiB
C
118 lines
4.3 KiB
C
/* Macro file for Coccinelle
|
|
*
|
|
* Copyright (C) 2015 Red Hat, Inc.
|
|
*
|
|
* Authors:
|
|
* Paolo Bonzini <pbonzini@redhat.com>
|
|
*
|
|
* This work is licensed under the terms of the GNU GPL, version 2 or, at your
|
|
* option, any later version. See the COPYING file in the top-level directory.
|
|
*/
|
|
|
|
/* Coccinelle only does limited parsing of headers, and chokes on some idioms
|
|
* defined in compiler.h and queue.h. Macros that Coccinelle must know about
|
|
* in order to parse .c files must be in a separate macro file---which is
|
|
* exactly what you're staring at now.
|
|
*
|
|
* To use this file, add the "--macro-file scripts/cocci-macro-file.h" to the
|
|
* Coccinelle command line.
|
|
*/
|
|
|
|
/* From qemu/compiler.h */
|
|
#define G_NORETURN __attribute__ ((__noreturn__))
|
|
#define G_GNUC_WARN_UNUSED_RESULT __attribute__((warn_unused_result))
|
|
#define G_GNUC_NULL_TERMINATED __attribute__((sentinel))
|
|
|
|
#if defined(_WIN32) && (defined(__x86_64__) || defined(__i386__))
|
|
# define QEMU_PACKED __attribute__((gcc_struct, packed))
|
|
#else
|
|
# define QEMU_PACKED __attribute__((packed))
|
|
#endif
|
|
|
|
#define cat(x,y) x ## y
|
|
#define cat2(x,y) cat(x,y)
|
|
#define QEMU_BUILD_BUG_ON(x) \
|
|
typedef char cat2(qemu_build_bug_on__,__LINE__)[(x)?-1:1] __attribute__((unused));
|
|
|
|
#define G_GNUC_PRINTF(n, m) __attribute__((format(gnu_printf, n, m)))
|
|
|
|
#define xglue(x, y) x ## y
|
|
#define glue(x, y) xglue(x, y)
|
|
#define stringify(s) tostring(s)
|
|
#define tostring(s) #s
|
|
|
|
#define typeof_field(type, field) typeof(((type *)0)->field)
|
|
#define type_check(t1,t2) ((t1*)0 - (t2*)0)
|
|
|
|
/* From qemu/queue.h */
|
|
|
|
#define QLIST_HEAD(name, type) \
|
|
struct name { \
|
|
struct type *lh_first; /* first element */ \
|
|
}
|
|
|
|
#define QLIST_HEAD_INITIALIZER(head) \
|
|
{ NULL }
|
|
|
|
#define QLIST_ENTRY(type) \
|
|
struct { \
|
|
struct type *le_next; /* next element */ \
|
|
struct type **le_prev; /* address of previous next element */ \
|
|
}
|
|
|
|
/*
|
|
* Singly-linked List definitions.
|
|
*/
|
|
#define QSLIST_HEAD(name, type) \
|
|
struct name { \
|
|
struct type *slh_first; /* first element */ \
|
|
}
|
|
|
|
#define QSLIST_HEAD_INITIALIZER(head) \
|
|
{ NULL }
|
|
|
|
#define QSLIST_ENTRY(type) \
|
|
struct { \
|
|
struct type *sle_next; /* next element */ \
|
|
}
|
|
|
|
/*
|
|
* Simple queue definitions.
|
|
*/
|
|
#define QSIMPLEQ_HEAD(name, type) \
|
|
struct name { \
|
|
struct type *sqh_first; /* first element */ \
|
|
struct type **sqh_last; /* addr of last next element */ \
|
|
}
|
|
|
|
#define QSIMPLEQ_HEAD_INITIALIZER(head) \
|
|
{ NULL, &(head).sqh_first }
|
|
|
|
#define QSIMPLEQ_ENTRY(type) \
|
|
struct { \
|
|
struct type *sqe_next; /* next element */ \
|
|
}
|
|
|
|
/*
|
|
* Tail queue definitions.
|
|
*/
|
|
#define QTAILQ_HEAD(name, type) \
|
|
union name { \
|
|
struct type *tqh_first; /* first element */ \
|
|
QTailQLink tqh_circ; /* link for last element */ \
|
|
}
|
|
|
|
#define QTAILQ_HEAD_INITIALIZER(head) \
|
|
{ .tqh_circ = { NULL, &(head).tqh_circ } }
|
|
|
|
#define QTAILQ_ENTRY(type) \
|
|
union { \
|
|
struct type *tqe_next; /* next element */ \
|
|
QTailQLink tqe_circ; /* link for prev element */ \
|
|
}
|
|
|
|
/* From glib */
|
|
#define g_assert_cmpint(a, op, b) g_assert(a op b)
|
|
#define g_assert_cmpuint(a, op, b) g_assert(a op b)
|
|
#define g_assert_cmphex(a, op, b) g_assert(a op b)
|
|
#define g_assert_cmpstr(a, op, b) g_assert(strcmp(a, b) op 0)
|