home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / mntinc16 / varargs.h < prev    next >
Encoding:
C/C++ Source or Header  |  1993-07-29  |  1.7 KB  |  65 lines
  1. #ifndef _VARARGS_H
  2. #define _VARARGS_H
  3.  
  4. /* in case stdarg.h got included by a header file */
  5. #ifdef va_start
  6. #undef va_start
  7. #undef va_end
  8. #undef va_dcl
  9. #undef va_alist
  10. #undef va_list
  11. #endif
  12.  
  13. #ifndef _COMPILER_H
  14. #include <compiler.h>
  15. #endif
  16.  
  17. #ifndef __GNUC__
  18. /* I'm not sure this is right.  These apparently are all supposed to be
  19.    defines; doesn't seem to make much sense to make them functions.
  20.    There may be some missing from this list; these are the ones I found
  21.    by grepping around in code...
  22. */
  23.  
  24. /* a va_list is a list of random frobules */
  25. typedef __VA_LIST__ va_list;
  26.  
  27. /* the address of the list??? don't we already have that???  C programmers
  28.    pick the wierdest times to start worrying about abstractions! */
  29. #define va_start(args) args = (va_list) &va_alist
  30.  
  31. /* is this supposed to do anything??? */
  32. #define va_end(args)
  33.  
  34. /* This is apparently a general purpose accessor, used for storing, as 
  35.    well as snarfing.  This is the only way I could think of to make it
  36.    work that way.  Please, somebody, re-write this! */
  37. #define va_arg(args, elt_type) ((elt_type * ) ((args) += sizeof(elt_type)))[-1]
  38.  
  39. #define va_dcl    int va_alist;
  40.  
  41. #else
  42.  
  43. /* These macros implement traditional (non-ANSI) varargs
  44.    for GNU C.  */
  45.  
  46. #define va_alist  __builtin_va_alist
  47. #define va_dcl    int __builtin_va_alist;
  48. #define va_list   __VA_LIST__
  49.  
  50. #define va_start(AP)  AP=(char *) &__builtin_va_alist
  51. #define va_end(AP)
  52.  
  53. #define __va_rounded_size(TYPE)  \
  54.   (((sizeof (TYPE) + sizeof (int) - 1) / sizeof (int)) * sizeof (int))
  55.  
  56. #define va_arg(AP, TYPE)                        \
  57.  (AP += __va_rounded_size (TYPE),                    \
  58.   ((TYPE *) AP)[-1])
  59.  
  60. /* thanks dale! */
  61.  
  62. #endif /* __GNUC__ */
  63.  
  64. #endif /* _VARARGS_H */
  65.