OpenCores

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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [va-arg-19.c] - Diff between revs 149 and 154

Go to most recent revision | Only display areas with differences | Details | Blame | View Log

Rev 149	Rev 154
`#include <stdarg.h>`	`#include <stdarg.h>`

`typedef int TYPE;`	`typedef int TYPE;`

`void vafunction (char *dummy, ...)`	`void vafunction (char *dummy, ...)`
`{`	`{`
`va_list ap;`	`va_list ap;`

`va_start(ap, dummy);`	`va_start(ap, dummy);`
`if (va_arg (ap, TYPE) != 1)`	`if (va_arg (ap, TYPE) != 1)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 2)`	`if (va_arg (ap, TYPE) != 2)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 3)`	`if (va_arg (ap, TYPE) != 3)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 4)`	`if (va_arg (ap, TYPE) != 4)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 5)`	`if (va_arg (ap, TYPE) != 5)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 6)`	`if (va_arg (ap, TYPE) != 6)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 7)`	`if (va_arg (ap, TYPE) != 7)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 8)`	`if (va_arg (ap, TYPE) != 8)`
`abort();`	`abort();`
`if (va_arg (ap, TYPE) != 9)`	`if (va_arg (ap, TYPE) != 9)`
`abort();`	`abort();`
`va_end(ap);`	`va_end(ap);`
`}`	`}`


`int main (void)`	`int main (void)`
`{`	`{`
`vafunction( "", 1, 2, 3, 4, 5, 6, 7, 8, 9 );`	`vafunction( "", 1, 2, 3, 4, 5, 6, 7, 8, 9 );`
`exit(0);`	`exit(0);`
`return 0;`	`return 0;`
`}`	`}`

powered by: WebSVN 2.1.0

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