URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [execute/] [20000818-1.c] - Rev 774
Go to most recent revision | Compare with Previous | Blame | View Log
/* Copyright (C) 2000 Free Software Foundation. by Manfred Hollstein <manfredh@redhat.com> */ void *temporary_obstack; static int input (void); static int ISALNUM (int ch); static void obstack_1grow (void **ptr, int ch); int yylex (void); int main (void); int main (void) { int ch = yylex (); exit (0); } int yylex (void) { int ch; #ifndef WORK_AROUND for (;;) { ch = input (); if (ISALNUM (ch)) obstack_1grow (&temporary_obstack, ch); else if (ch != '_') break; } #else do { ch = input (); if (ISALNUM (ch)) obstack_1grow (&temporary_obstack, ch); } while (ch == '_'); #endif return ch; } static int input (void) { return 0; } static int ISALNUM (int ch) { return ((ch >= 'A' && ch <= 'Z') || (ch >= 'a' && ch <= 'z') || (ch >= '0' && ch <= '0')); } static void obstack_1grow (void **ptr, int ch) { }
Go to most recent revision | Compare with Previous | Blame | View Log