Subversion Repositories Kolibri OS

/***

*stdarg.h - defines ANSI-style macros for variable argument functions

*

*       Copyright (c) 1985-1997, Microsoft Corporation. All rights reserved.

*

*Purpose:

*       This file defines ANSI-style macros for accessing arguments

*       of functions which take a variable number of arguments.

*       [ANSI]

*

*       [Public]

*

****/

#if     _MSC_VER > 1000

#pragma once

#endif

#ifndef _INC_STDARG

#define _INC_STDARG

#if     !defined(_WIN32) && !defined(_MAC)

#error ERROR: Only Mac or Win32 targets supported!

#endif

#ifdef  _MSC_VER

/*

 * Currently, all MS C compilers for Win32 platforms default to 8 byte

 * alignment.

 */

#pragma pack(push,8)

#endif  /* _MSC_VER */

#ifdef  __cplusplus

extern "C" {

#endif

#ifndef _VA_LIST_DEFINED

#ifdef  _M_ALPHA

typedef struct {

        char *a0;       /* pointer to first homed integer argument */

        int offset;     /* byte offset of next parameter */

} va_list;

#else

typedef char *  va_list;

#endif

#define _VA_LIST_DEFINED

#endif

#ifdef  _M_IX86

#define _INTSIZEOF(n)   ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )

#define va_start(ap,v)  ( ap = (va_list)&v + _INTSIZEOF(v) )

#define va_arg(ap,t)    ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )

#define va_end(ap)      ( ap = (va_list)0 )

#elif   defined(_M_MRX000)

/* Use these types and definitions if generating code for MIPS */

#define va_start(ap,v) ap  = (va_list)&v + sizeof(v)

#define va_end(list)

#define va_arg(list, mode) ((mode *)(list =\

 (char *) ((((int)list + (__builtin_alignof(mode)<=4?3:7)) &\

 (__builtin_alignof(mode)<=4?-4:-8))+sizeof(mode))))[-1]

/*  +++++++++++++++++++++++++++++++++++++++++++

    Because of parameter passing conventions in C:

    use mode=int for char, and short types

    use mode=double for float types

    use a pointer for array types

    +++++++++++++++++++++++++++++++++++++++++++ */

#elif   defined(_M_ALPHA)

/* Use these types and definitions if generating code for ALPHA */

/*

 * The Alpha compiler supports two builtin functions that are used to

 * implement stdarg/varargs.  The __builtin_va_start function is used

 * by va_start to initialize the data structure that locates the next

 * argument.  The __builtin_isfloat function is used by va_arg to pick

 * which part of the home area a given register argument is stored in.

 * The home area is where up to six integer and/or six floating point

 * register arguments are stored down (so they can also be referenced

 * by a pointer like any arguments passed on the stack).

 */

extern void * __builtin_va_start(va_list, ...);

#ifdef  _CFRONT

#define __builtin_isfloat(a) __builtin_alignof(a)

#endif

#define va_start(list, v) __builtin_va_start(list, v, 1)

#define va_end(list)

#define va_arg(list, mode) \

    ( *(        ((list).offset += ((int)sizeof(mode) + 7) & -8) , \

        (mode *)((list).a0 + (list).offset - \

                    ((__builtin_isfloat(mode) && (list).offset <= (6 * 8)) ? \

                        (6 * 8) + 8 : ((int)sizeof(mode) + 7) & -8) \

                ) \

       ) \

    )

#elif   defined(_M_PPC)

/* Microsoft C8 front end (used in Motorola Merged compiler) */

/* bytes that a type occupies in the argument list */

#define _INTSIZEOF(n)   ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )

/* return 'ap' adjusted for type 't' in arglist */

#define _ALIGNIT(ap,t) \

        ((((int)(ap))+(sizeof(t)<8?3:7)) & (sizeof(t)<8?~3:~7))

#define va_start(ap,v)  ( ap = (va_list)&v + _INTSIZEOF(v) )

#define va_arg(ap,t)    ( *(t *)((ap = (char *) (_ALIGNIT(ap, t) + _INTSIZEOF(t))) - _INTSIZEOF(t)) )

#define va_end(ap)      ( ap = (va_list)0 )

#elif   defined(_M_M68K)

#define _INTSIZEOF(n)   ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )

#define va_start(ap,v)  ( ap = (va_list)&v + (sizeof(v) < sizeof(int) ? sizeof(v) : _INTSIZEOF(v)) )

#define va_arg(ap,t)    ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )

#define va_end(ap)      ( ap = (va_list)0 )

#elif   defined(_M_MPPC)

#define _INTSIZEOF(n)   ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )

#define va_start(ap,v)  ( ap = (va_list)&v + _INTSIZEOF(v) )

#define va_arg(ap,t)    ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )

#define va_end(ap)      ( ap = (va_list)0 )

#else

/* A guess at the proper definitions for other platforms */

#define _INTSIZEOF(n)   ( (sizeof(n) + sizeof(int) - 1) & ~(sizeof(int) - 1) )

#define va_start(ap,v)  ( ap = (va_list)&v + _INTSIZEOF(v) )

#define va_arg(ap,t)    ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )

#define va_end(ap)      ( ap = (va_list)0 )

#endif

#ifdef  __cplusplus

}

#endif

#ifdef  _MSC_VER

#pragma pack(pop)

#endif  /* _MSC_VER */

#endif  /* _INC_STDARG */