OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [cpp/] [vararg2.c] - Blame information for rev 689

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 689 jeremybenn
/* { dg-do preprocess } */
2
/* { dg-options "-std=gnu99" } */
3
 
4
/* Jamie's varargs macros from hell.  Not for the faint of heart.
5
   Great tests that C99 and GNU varargs give identical results.
6
   Adapted to the testsuite by Neil Booth, 1 Nov 2000.  */
7
 
8
/* Permission is granted to use, copy, modify and distribute this file
9
   freely for any purpose whatsoever.  This file is free software, and
10
   there's no warranty.
11
 
12
   -- Jamie Lokier <jamie.lokier@cern.ch>, 25/Sep/2000.  */
13
 
14
#define dup3(x)            x,x,x
15
 
16
/* Count elements in a list (0 to 10 max). */
17
#define gnu_count(y...)   _gnu_count1 ( , ##y)
18
#define _gnu_count1(y...) _gnu_count2 (y,10,9,8,7,6,5,4,3,2,1,0)
19
#define _gnu_count2(_,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,n,ys...) n
20
 
21
/* Tail of a list. */
22
#define gnu_tail(y...)    _gnu_tail (y)
23
#define _gnu_tail(x,y...) y
24
 
25
/* Repeat N times. */
26
#define gnu_repeat(n, x) gnu_tail (_gnu_repeat (n, x))
27
#define _gnu_repeat(n, x) _gnu_repeat_##n (x)
28
#define _gnu_repeat_0(x)
29
#define _gnu_repeat_1(x) ,x
30
#define _gnu_repeat_2(x) ,x,x
31
#define _gnu_repeat_3(x) ,x,x,x
32
#define _gnu_repeat_4(x) ,x,x,x,x
33
#define _gnu_repeat_5(x) ,x,x,x,x,x
34
 
35
#define _gnu_keep(xs...) xs
36
#define _gnu_discard(xs...)
37
#define _gnu_split_r(n,xs...) _gnu_split_rd (n,_gnu_keep,_gnu_discard xs)
38
#define _gnu_split_d(n,xs...) _gnu_split_rd (n,_gnu_discard,_gnu_keep xs)
39
#define _gnu_split_rd(n,xs...) _gnu_split_##n (xs)
40
#define _gnu_split_0(a,b,xs...) a() b(xs)
41
#define _gnu_split_1(a,b,x0,xs...) a(x0) b(xs)
42
#define _gnu_split_2(a,b,x0,x1,xs...) a(x0,x1) b(xs)
43
#define _gnu_split_3(a,b,x0,x1,x2,xs...) a(x0,x1,x2) b(xs)
44
#define _gnu_split_4(a,b,x0,x1,x2,x3,xs...) a(x0,x1,x2,x3) b(xs)
45
#define _gnu_split_5(a,b,x0,x1,x2,x3,x4,xs...) a(x0,x1,x2,x3,x4) b(xs)
46
 
47
/* List manipulations.  Surprise: index zero is the rightmost element. */
48
#define gnu_take(n, xs...) \
49
  _gnu_split_d (_gnu_count1 ( , ## xs), _gnu_repeat (n, _gnu_error) , ## xs)
50
#define gnu_drop(n, xs...) \
51
  _gnu_split_d (n,,_gnu_split_r  (_gnu_count1 ( , ## xs), _gnu_repeat (n, _gnu_error) , ## xs))
52
#define gnu_index(pos, xs...) gnu_take (1, gnu_drop (pos , ## xs))
53
 
54
/* C99 __VA_ARGS__ versions */
55
#define c99_count(...)    _c99_count1 ( , ##__VA_ARGS__)/* If only ## worked.*/
56
#define _c99_count1(...)  _c99_count2 (__VA_ARGS__,10,9,8,7,6,5,4,3,2,1,0)
57
#define _c99_count2(_,x0,x1,x2,x3,x4,x5,x6,x7,x8,x9,n,...) n
58
 
59
#define c99_tail(...)     _c99_tail (__VA_ARGS__)
60
#define _c99_tail(x,...)  __VA_ARGS__
61
 
62
/* Repeat N times. */
63
#define c99_repeat(n, x) c99_tail (_c99_repeat (n, x))
64
#define _c99_repeat(n, x) _c99_repeat_##n (x)
65
#define _c99_repeat_0(x)
66
#define _c99_repeat_1(x) ,x
67
#define _c99_repeat_2(x) ,x,x
68
#define _c99_repeat_3(x) ,x,x,x
69
#define _c99_repeat_4(x) ,x,x,x,x
70
#define _c99_repeat_5(x) ,x,x,x,x,x
71
 
72
#define _c99_keep(...)    __VA_ARGS__
73
#define _c99_discard(...)
74
#define _c99_split_r(n,...) _c99_split_rd(n,_c99_keep,_c99_discard __VA_ARGS__)
75
#define _c99_split_d(n,...) _c99_split_rd(n,_c99_discard,_c99_keep __VA_ARGS__)
76
#define _c99_split_rd(n,...) _c99_split_##n (__VA_ARGS__)
77
#define _c99_split_0(a,b,...) a() b(__VA_ARGS__)
78
#define _c99_split_1(a,b,x0,...) a(x0) b(__VA_ARGS__)
79
#define _c99_split_2(a,b,x0,x1,...) a(x0,x1) b(__VA_ARGS__)
80
#define _c99_split_3(a,b,x0,x1,x2,...) a(x0,x1,x2) b(__VA_ARGS__)
81
#define _c99_split_4(a,b,x0,x1,x2,x3,...) a(x0,x1,x2,x3) b(__VA_ARGS__)
82
#define _c99_split_5(a,b,x0,x1,x2,x3,x4,...) a(x0,x1,x2,x3,x4) b(__VA_ARGS__)
83
 
84
/* List manipulations.  Surprise: index zero is the rightmost element. */
85
#define c99_take(n, ...) \
86
  _c99_split_d (_c99_count1 ( , ## __VA_ARGS__), _c99_repeat (n, _c99_error) , ## __VA_ARGS__)
87
#define c99_drop(n, ...) \
88
  _c99_split_d (n,,_c99_split_r  (_c99_count1 ( , ## __VA_ARGS__), _c99_repeat (n, _c99_error) , ## __VA_ARGS__))
89
#define c99_index(pos, ...) c99_take (1, c99_drop (pos , ## __VA_ARGS__))
90
 
91
/************** Expansions **************/
92
 
93
/* Correct answers are 0, 0, 1, 2, 10.  */
94
#if _gnu_count1 () != 0 || gnu_count () != 0 || gnu_count (A) != 1 \
95
    || gnu_count (,) != 2 || gnu_count (A, B, C, D, E, F, G, H, I, J) != 10
96
#error gnu_count
97
#endif
98
 
99
/* Correct answers are empty, 'x'.  */
100
#if gnu_repeat (0, 'x') gnu_repeat (1, 'x') != 'x'
101
#error gnu_repeat
102
#endif
103
 
104
/* Correct answers are "e", "b", "a", empty.  */
105
#if gnu_index (0, 'a', 'b', 'c', 'd', 'e') != 'e' \
106
 || gnu_index (3, 'a', 'b', 'c', 'd', 'e') != 'b' \
107
 || gnu_index (4, 'a', 'b', 'c', 'd', 'e') != 'a' \
108
    gnu_index (5, 'a', 'b', 'c', 'd', 'e')
109
#error gnu_index
110
#endif
111
 
112
/************* C99 tests *************/
113
 
114
/* The answers are 0, 0, 1, 2, 10 as for the non-C99 version.  */
115
#if _c99_count1 () != 0 || c99_count () != 0 || c99_count (A) != 1 \
116
    || c99_count (,) != 2 || c99_count (A, B, C, D, E, F, G, H, I, J) != 10
117
#error c99_count
118
#endif
119
 
120
/* Correct answers are empty, 'x'.  */
121
#if c99_repeat (0, 'x') c99_repeat (1, 'x') != 'x'
122
#error c99_repeat
123
#endif
124
 
125
/* Correct answers are "e", "b", "a", empty.  */
126
#if c99_index (0, 'a', 'b', 'c', 'd', 'e') != 'e' \
127
 || c99_index (3, 'a', 'b', 'c', 'd', 'e') != 'b' \
128
 || c99_index (4, 'a', 'b', 'c', 'd', 'e') != 'a' \
129
    c99_index (5, 'a', 'b', 'c', 'd', 'e')
130
#error gnu_index
131
#endif

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.