5c35ba66c5
tcctest1-3 fail, but this appears to be due to bugs in GCC rather than TCC (from manual inspection of the output).
41 lines
1.2 KiB
C
41 lines
1.2 KiB
C
#ifndef _STDARG_H
|
|
#define _STDARG_H
|
|
|
|
#ifdef __x86_64__
|
|
#ifndef _WIN64
|
|
|
|
typedef void *va_list;
|
|
|
|
va_list __va_start(void *fp);
|
|
void *__va_arg(va_list ap, int arg_type, int size);
|
|
va_list __va_copy(va_list src);
|
|
void __va_end(va_list ap);
|
|
|
|
#define va_start(ap, last) ((ap) = __va_start(__builtin_frame_address(0)))
|
|
#define va_arg(ap, type) \
|
|
(*(type *)(__va_arg(ap, __builtin_va_arg_types(type), sizeof(type))))
|
|
#define va_copy(dest, src) ((dest) = __va_copy(src))
|
|
#define va_end(ap) __va_end(ap)
|
|
|
|
#else /* _WIN64 */
|
|
typedef char *va_list;
|
|
#define va_start(ap,last) __builtin_va_start(ap,last)
|
|
#define va_arg(ap,type) (ap += 8, sizeof(type)<=8 ? *(type*)ap : **(type**)ap)
|
|
#define va_copy(dest, src) ((dest) = (src))
|
|
#define va_end(ap)
|
|
#endif
|
|
|
|
#else /* __i386__ */
|
|
typedef char *va_list;
|
|
/* only correct for i386 */
|
|
#define va_start(ap,last) ap = ((char *)&(last)) + ((sizeof(last)+3)&~3)
|
|
#define va_arg(ap,type) (ap += (sizeof(type)+3)&~3, *(type *)(ap - ((sizeof(type)+3)&~3)))
|
|
#define va_copy(dest, src) (dest) = (src)
|
|
#define va_end(ap)
|
|
#endif
|
|
|
|
/* fix a buggy dependency on GCC in libio.h */
|
|
typedef va_list __gnuc_va_list;
|
|
#define _VA_LIST_DEFINED
|
|
|
|
#endif /* _STDARG_H */
|