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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [990801-1.c] - Blame information for rev 774

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


extern int getch();
extern int class();
 
int
token()
{
    int state = 1;
 
    while (1) {
        int c=0;
        c = getch();
        switch (state) {
        case 1: break;
        case 4: break;
        case 5: break;
        case 6:
            {
                switch (class(c)) {
                default: break;
                }
            } break;
        case 7: break;
        }
    }
}
 

Line No.	Rev	Author	Line
1	688	jeremybenn	`extern int getch();`
2			`extern int class();`
3
4			`int`
5			`token()`
6			`{`
7			`int state = 1;`
8
9			`while (1) {`
10			`int c=0;`
11			`c = getch();`
12			`switch (state) {`
13			`case 1: break;`
14			`case 4: break;`
15			`case 5: break;`
16			`case 6:`
17			`{`
18			`switch (class(c)) {`
19			`default: break;`
20			`}`
21			`} break;`
22			`case 7: break;`
23			`}`
24			`}`
25			`}`
26

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [990801-1.c] - Blame information for rev 774