URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [961125-1.c] - Rev 688
Compare with Previous | Blame | View Log
static char * begfield (int tab, char *ptr, char *lim, int sword, int schar) { if (tab) { while (ptr < lim && sword--) { while (ptr < lim && *ptr != tab) ++ptr; if (ptr < lim) ++ptr; } } else { while (1) ; } if (ptr + schar <= lim) ptr += schar; return ptr; } main () { char *s = ":ab"; char *lim = s + 3; if (begfield (':', s, lim, 1, 1) != s + 2) abort (); exit (0); }