OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [va-arg-14.c] - Blame information for rev 297

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 297 jeremybenn
#include <stdarg.h>
2
 
3
va_list global;
4
 
5
void vat(va_list param, ...)
6
{
7
  va_list local;
8
 
9
  va_start (local, param);
10
  va_copy (global, local);
11
  va_copy (param, local);
12
  if (va_arg (local, int) != 1)
13
    abort();
14
  va_end (local);
15
  if (va_arg (global, int) != 1)
16
    abort();
17
  va_end (global);
18
  if (va_arg (param, int) != 1)
19
    abort();
20
  va_end (param);
21
 
22
  va_start (param, param);
23
  va_start (global, param);
24
  va_copy (local, param);
25
  if (va_arg (local, int) != 1)
26
    abort();
27
  va_end (local);
28
  va_copy (local, global);
29
  if (va_arg (local, int) != 1)
30
    abort();
31
  va_end (local);
32
  if (va_arg (global, int) != 1)
33
    abort();
34
  va_end (global);
35
  if (va_arg (param, int) != 1)
36
    abort();
37
  va_end (param);
38
}
39
 
40
int main(void)
41
{
42
  va_list t;
43
  vat (t, 1);
44
  exit (0);
45
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.