gnu/dist/gdb6/gdb/testsuite/gdb.base/varargs.c

   1 /* varargs.c -
   2  * (Added as part of fix for bug 15306 - "call" to varargs functions fails)
   3  * This program is intended to let me try out "call" to varargs functions
   4  * with varying numbers of declared args and various argument types.
   5  * - RT 9/27/95
   6  */
   7
   8 #include <stdio.h>
   9 #include <stdarg.h>
  10
  11 int find_max1(int, ...);
  12 int find_max2(int, int, ...);
  13 double find_max_double(int, double, ...);
  14
  15 char ch;
  16 unsigned char uc;
  17 short s;
  18 unsigned short us;
  19 int a,b,c,d;
  20 int max_val;
  21 long long ll;
  22 float fa,fb,fc,fd;
  23 double da,db,dc,dd;
  24 double dmax_val;
  25
  26 int main() {
  27   c = -1;
  28   uc = 1;
  29   s = -2;
  30   us = 2;
  31   a = 1;
  32   b = 60;
  33   max_val = find_max1(1, 60);
  34   max_val = find_max1(a, b);
  35   a = 3;
  36   b = 1;
  37   c = 4;
  38   d = 2;
  39   max_val = find_max1(3, 1, 4, 2);
  40   max_val = find_max2(a, b, c, d);
  41   da = 3.0;
  42   db = 1.0;
  43   dc = 4.0;
  44   dd = 2.0;
  45   dmax_val = find_max_double(3, 1.0, 4.0, 2.0);
  46   dmax_val = find_max_double(a, db, dc, dd);
  47
  48   return 0;
  49 }
  50
  51 /* Integer varargs, 1 declared arg */
  52
  53 int find_max1(int num_vals, ...) {
  54   int max_val = 0;
  55   int x;
  56   int i;
  57   va_list argp;
  58   va_start(argp, num_vals);
  59   printf("find_max(%d,", num_vals);
  60   for (i = 0; i < num_vals; i++) {
  61     x = va_arg(argp, int);
  62     if (max_val < x) max_val = x;
  63     if (i < num_vals - 1)
  64       printf(" %d,", x);
  65     else
  66       printf(" %d)", x);
  67   }
  68   printf(" returns %d\n", max_val);
  69   return max_val;
  70 }
  71
  72 /* Integer varargs, 2 declared args */
  73
  74 int find_max2(int num_vals, int first_val, ...) {
  75   int max_val = 0;
  76   int x;
  77   int i;
  78   va_list argp;
  79   va_start(argp, first_val);
  80   x = first_val;
  81   if (max_val < x) max_val = x;
  82   printf("find_max(%d, %d", num_vals, first_val);
  83   for (i = 1; i < num_vals; i++) {
  84     x = va_arg(argp, int);
  85     if (max_val < x) max_val = x;
  86     printf(", %d", x);
  87   }
  88   printf(") returns %d\n", max_val);
  89   return max_val;
  90 }
  91
  92 /* Double-float varargs, 2 declared args */
  93
  94 double find_max_double(int num_vals, double first_val, ...) {
  95   double max_val = 0;
  96   double x;
  97   int i;
  98   va_list argp;
  99   va_start(argp, first_val);
 100   x = first_val;
 101   if (max_val < x) max_val = x;
 102   printf("find_max(%d, %f", num_vals, first_val);
 103   for (i = 1; i < num_vals; i++) {
 104     x = va_arg(argp, double);
 105     if (max_val < x) max_val = x;
 106     printf(", %f", x);
 107   }
 108   printf(") returns %f\n", max_val);
 109   return max_val;
 110 }
 111