1
2
3
4
5
6
7
8
9
|
/*
* Copyright 1995-1999, 2003-2005 Bruno Haible, <bruno@clisp.org>
*
* This is free software distributed under the GNU General Public Licence
* described in the file COPYING. Contact the author if you don't have this
* or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
* on this software.
*/
|
|
|
1
2
3
4
5
6
7
8
9
|
/*
* Copyright 1995-1999 Bruno Haible, <bruno@clisp.org>
*
* This is free software distributed under the GNU General Public Licence
* described in the file COPYING. Contact the author if you don't have this
* or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
* on this software.
*/
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
|
extern "C" void __vacall (); /* the return type is variable, not void! */
#else
extern void __vacall (); /* the return type is variable, not void! */
#endif
void (*vacall) () = __vacall;
/* This is the function called by vacall(). */
void (* vacall_function) (va_alist);
#endif
/* Room for returning structs according to the pcc non-reentrant struct return convention. */
__va_struct_buffer_t __va_struct_buffer;
int /* no return type, since this never returns */
__va_error1 (enum __VAtype start_type, enum __VAtype return_type)
{
/* If you see this, fix your code. */
fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n",
(int)start_type, (int)return_type);
abort();
#if defined(__cplusplus)
return 0;
#endif
}
int /* no return type, since this never returns */
__va_error2 (unsigned int size)
{
/* If you see this, increase __VA_ALIST_WORDS: */
fprintf (stderr, "vacall: struct of size %u too large for pcc struct return.\n",
size);
abort();
#if defined(__cplusplus)
return 0;
#endif
}
|
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
|
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
|
extern "C" void __vacall (); /* the return type is variable, not void! */
#else
extern void __vacall (); /* the return type is variable, not void! */
#endif
void (*vacall) () = __vacall;
/* This is the function called by vacall(). */
#if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus)
void (* vacall_function) (va_alist);
#else
void (* vacall_function) ();
#endif
#endif
/* Room for returning structs according to the pcc non-reentrant struct return convention. */
__va_struct_buffer_t __va_struct_buffer;
int /* no return type, since this never returns */
#if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus)
__va_error1 (enum __VAtype start_type, enum __VAtype return_type)
#else
__va_error1 (start_type, return_type)
enum __VAtype start_type;
enum __VAtype return_type;
#endif
{
/* If you see this, fix your code. */
fprintf (stderr, "vacall: va_start type %d and va_return type %d disagree.\n",
(int)start_type, (int)return_type);
abort();
#if defined(__cplusplus)
return 0;
#endif
}
int /* no return type, since this never returns */
#if defined(__STDC__) || defined(__GNUC__) || defined(__cplusplus)
__va_error2 (unsigned int size)
#else
__va_error2 (size)
unsigned int size;
#endif
{
/* If you see this, increase __VA_ALIST_WORDS: */
fprintf (stderr, "vacall: struct of size %u too large for pcc struct return.\n",
size);
abort();
#if defined(__cplusplus)
return 0;
#endif
}
|