URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Go to most recent revision |
Only display areas with differences |
Details |
Blame |
View Log
Rev 298 |
Rev 816 |
/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
|
/* Testcase by Martin Michlmayr <tbm@cyrius.com> */
|
/* { dg-do compile } */
|
/* { dg-do compile } */
|
/* { dg-options "-O3" } */
|
/* { dg-options "-O3" } */
|
|
|
typedef __PTRDIFF_TYPE__ intptr_t;
|
typedef __PTRDIFF_TYPE__ intptr_t;
|
typedef union lispunion *object;
|
typedef union lispunion *object;
|
struct character
|
struct character
|
{
|
{
|
long e;
|
long e;
|
};
|
};
|
extern struct symbol Cnil_body;
|
extern struct symbol Cnil_body;
|
extern struct symbol Ct_body;
|
extern struct symbol Ct_body;
|
struct vector
|
struct vector
|
{
|
{
|
object *v_self;
|
object *v_self;
|
};
|
};
|
union lispunion
|
union lispunion
|
{
|
{
|
struct vector v;
|
struct vector v;
|
};
|
};
|
void init_code ()
|
void init_code ()
|
{
|
{
|
object V659;
|
object V659;
|
object _x, _y;
|
object _x, _y;
|
object V643;
|
object V643;
|
intptr_t V648;
|
intptr_t V648;
|
unsigned char V653;
|
unsigned char V653;
|
object V651;
|
object V651;
|
object V654;
|
object V654;
|
object V658;
|
object V658;
|
|
|
T1240:
|
T1240:
|
if (V648 >= (intptr_t)V651)
|
if (V648 >= (intptr_t)V651)
|
goto T1243;
|
goto T1243;
|
V653 = ((char *) V654->v.v_self)[V648];
|
V653 = ((char *) V654->v.v_self)[V648];
|
V659 = (object) V654 + V653;
|
V659 = (object) V654 + V653;
|
T1261:
|
T1261:
|
V658 =
|
V658 =
|
(object)
|
(object)
|
V659 ? (object) & Ct_body : (object) & Cnil_body;
|
V659 ? (object) & Ct_body : (object) & Cnil_body;
|
if (V658 == (object) & Cnil_body)
|
if (V658 == (object) & Cnil_body)
|
goto T1249;
|
goto T1249;
|
goto T1224;
|
goto T1224;
|
T1249:
|
T1249:
|
V648 = (intptr_t) V648 + 1;
|
V648 = (intptr_t) V648 + 1;
|
goto T1240;
|
goto T1240;
|
T1243:
|
T1243:
|
V643 = (object) & Cnil_body;
|
V643 = (object) & Cnil_body;
|
T1224:
|
T1224:
|
_y = V643;
|
_y = V643;
|
number_plus (_x, _y);
|
number_plus (_x, _y);
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.