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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.dg/] [pr49243.c] - Rev 801

Go to most recent revision | Compare with Previous | Blame | View Log

/* PR tree-optimization/49243 */
/* { dg-do compile } */
/* { dg-options "-O2 -Winline" } */
 
extern unsigned long jb[];
extern int my_setjmp(unsigned long jb[]) __attribute__((returns_twice));
extern int decode(const char*);
 
static inline int wrapper(const char **s_ptr) /* { dg-warning "(inlining failed|function 'wrapper' can never be inlined because it uses setjmp)" } */
{
    if (my_setjmp(jb) == 0) {
	const char *s = *s_ptr;
	while (decode(s) != 0)
	    *s_ptr = ++s;
	return 0;
    } else
	return -1;
}
 
void parse(const char *data)
{
    const char *s = data;
    if (!(wrapper(&s) == -1 && (s - data) == 1)) /* { dg-warning "called from here" } */
	__builtin_abort();
}
 

Go to most recent revision | Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

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