File: bar.h

package info (click to toggle)
libmodule-install-xsutil-perl 0.25-1
  • links: PTS, VCS
  • area: main
  • in suites: squeeze
  • size: 216 kB
  • ctags: 150
  • sloc: perl: 1,746; ansic: 40; makefile: 13
file content (28 lines) | stat: -rwxr-xr-x 733 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
/* foo/bar.h for testing */

#define X(name) int name

#ifndef __attribute__warn_unused_result__
#ifdef HASATTRIBUTE_WARN_UNUSED_RESULT
#   define __attribute__warn_unused_result__ __attribute__((warn_unused_result))
#else
#   define __attribute__warn_unused_result__
#endif
#endif /* !defined(__attribute__warn_unused_result__) */

#ifndef PERL_UNUSED_DECL
#  if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus) && defined(__attribute__unused__)
#    define PERL_UNUSED_DECL __attribute__unused__
#  else
#    define PERL_UNUSED_DECL
#  endif
#endif

X(bar_is_ok)(
	X(a) PERL_UNUSED_DECL, X(b), X(c)
) __attribute__warn_unused_result__;


struct mi_xsutil_testing {
    void* (*not_a_function)(int a PERL_UNUSED_DECL, int);
};