URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 298 |
Rev 338 |
/* { dg-options "-O3 -fgraphite-identity" } */
|
/* { dg-options "-O3 -fgraphite-identity" } */
|
|
|
typedef struct sv TEST_SV;
|
typedef struct sv TEST_SV;
|
typedef struct av TEST_AV;
|
typedef struct av TEST_AV;
|
typedef struct magic TEST_MAGIC;
|
typedef struct magic TEST_MAGIC;
|
typedef struct xpvav TEST_XPVAV;
|
typedef struct xpvav TEST_XPVAV;
|
struct sv
|
struct sv
|
{
|
{
|
void* sv_any;
|
void* sv_any;
|
};
|
};
|
struct av
|
struct av
|
{
|
{
|
TEST_XPVAV* sv_any;
|
TEST_XPVAV* sv_any;
|
};
|
};
|
struct xpvav
|
struct xpvav
|
{
|
{
|
char* xav_array;
|
char* xav_array;
|
long int xav_fill;
|
long int xav_fill;
|
long int xav_max;
|
long int xav_max;
|
};
|
};
|
struct magic {
|
struct magic {
|
TEST_SV* mg_obj;
|
TEST_SV* mg_obj;
|
};
|
};
|
extern TEST_SV PL_sv_undef;
|
extern TEST_SV PL_sv_undef;
|
Perl_av_fill( register TEST_AV *av, int fill)
|
Perl_av_fill( register TEST_AV *av, int fill)
|
{
|
{
|
TEST_MAGIC *mg;
|
TEST_MAGIC *mg;
|
int key = ((TEST_XPVAV*) (av)->sv_any)->xav_fill;
|
int key = ((TEST_XPVAV*) (av)->sv_any)->xav_fill;
|
TEST_SV** ary = ((TEST_SV**)((TEST_XPVAV*) (av)->sv_any)->xav_array);
|
TEST_SV** ary = ((TEST_SV**)((TEST_XPVAV*) (av)->sv_any)->xav_array);
|
while (key < fill)
|
while (key < fill)
|
ary[++key] = &PL_sv_undef;
|
ary[++key] = &PL_sv_undef;
|
}
|
}
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.