| 2 |
7u83 |
1 |
#ifndef __BUILDING_LIBS
|
|
|
2 |
|
|
|
3 |
|
|
|
4 |
/*
|
|
|
5 |
TOKEN DECLARATIONS
|
|
|
6 |
|
|
|
7 |
The tokens __va_t, __va_start, va_arg and va_end are as in the
|
|
|
8 |
ansi:stdarg header. The only difference is that va_list is defined
|
|
|
9 |
as its implementation type, rather than being a tokenised type.
|
|
|
10 |
*/
|
|
|
11 |
|
|
|
12 |
#pragma token TYPE __va_t # ~__va_t
|
|
|
13 |
#pragma token PROC ( EXP rvalue : __va_t : ) EXP rvalue : va_list : __va_start # ansi.stdarg.__va_start
|
|
|
14 |
#pragma token PROC ( EXP lvalue : va_list : e , TYPE t ) EXP rvalue : t : va_arg # ansi.stdarg.va_arg
|
|
|
15 |
#pragma token PROC ( EXP lvalue : va_list : ) EXP rvalue : void : va_end # ansi.stdarg.va_end
|
|
|
16 |
#pragma interface __va_t __va_start va_arg va_end
|
|
|
17 |
|
|
|
18 |
|
|
|
19 |
/*
|
|
|
20 |
DEFINITION OF VA_START
|
|
|
21 |
|
|
|
22 |
How va_start is defined in terms of __va_start depends on whether
|
|
|
23 |
this is stdarg.h or varargs.h.
|
|
|
24 |
*/
|
|
|
25 |
|
|
|
26 |
#pragma TenDRA ident ... allow
|
|
|
27 |
|
|
|
28 |
#ifdef __HACKED_VARARGS_INCLUDED
|
|
|
29 |
#define va_alist ...
|
|
|
30 |
#define va_dcl
|
|
|
31 |
#define va_start( l ) ( ( void ) ( l = __va_start ( ... ) ) )
|
|
|
32 |
#else
|
|
|
33 |
#define va_start( l, i ) ( ( void ) ( l = __va_start ( ... ) ) )
|
|
|
34 |
#endif
|
|
|
35 |
|
|
|
36 |
|
|
|
37 |
#else
|
|
|
38 |
|
|
|
39 |
#endif
|