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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	688	jeremybenn	`typedef struct{struct{chard;int b;}i;}*t;`
2			`double f();`
3			`g(p)t p;`
4			`{`
5			`short x,y,delta,s,w,h,fx,fy,tx,ty;`
6			`int q1,q2,q3,q4;`
7			`h=f((ty-fy)/2.0+0.5);`
8			`s=(((int)((short)(tx-fx))<(int)((short)(ty-fy)))?((short)(tx-fx)):((short)(ty-fy)))%2;`
9			`delta=(((int)(w)<(int)(h))?(w):(h))-s;`
10			`for(x=0;x<=delta;x++)`
11			`for(y=1-s;y<=delta;y++){`
12			`q1=((int)(((p->i->d+(fx+w+x)/8+(fy+h+y)p->i->b)&(1<<((fx+w+x)%8)))?1:0));`
13			`q2=((int)(((p->i->d+(fx+w+y)/8+(fy+h-s-x)p->i->b)&(1<<((fx+w+y)%8)))?1:0));`
14			`q3=((int)(((p->i->d+(fx+w-s-x)/8+(fy+h-s-y)p->i->b)&(1<<((fx+w-s-x)%8)))?1:0));`
15			`q4=((int)(((p->i->d+(fx+w-s-y)/8+(fy+h+x)p->i->b)&(1<<((fx+w-s-y)%8)))?1:0));`
16			`if(q4!=q1)`
17			`ff(p,fx+w-s-y,fy+h+x);`
18			`}`
19			`}`