URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
/* this is the driver for c_ptr_test.f03 */
|
/* this is the driver for c_ptr_test.f03 */
|
|
|
typedef struct services
|
typedef struct services
|
{
|
{
|
int compId;
|
int compId;
|
void *globalServices;
|
void *globalServices;
|
}services_t;
|
}services_t;
|
|
|
typedef struct comp
|
typedef struct comp
|
{
|
{
|
void *myServices;
|
void *myServices;
|
void (*setServices)(struct comp *self, services_t *myServices);
|
void (*setServices)(struct comp *self, services_t *myServices);
|
void *myPort;
|
void *myPort;
|
}comp_t;
|
}comp_t;
|
|
|
/* prototypes for f90 functions */
|
/* prototypes for f90 functions */
|
void sub0(comp_t *self, services_t *myServices);
|
void sub0(comp_t *self, services_t *myServices);
|
|
|
int main(int argc, char **argv)
|
int main(int argc, char **argv)
|
{
|
{
|
services_t servicesObj;
|
services_t servicesObj;
|
comp_t myComp;
|
comp_t myComp;
|
|
|
servicesObj.compId = 17;
|
servicesObj.compId = 17;
|
servicesObj.globalServices = 0; /* NULL; */
|
servicesObj.globalServices = 0; /* NULL; */
|
myComp.myServices = &servicesObj;
|
myComp.myServices = &servicesObj;
|
myComp.setServices = 0; /* NULL; */
|
myComp.setServices = 0; /* NULL; */
|
myComp.myPort = 0; /* NULL; */
|
myComp.myPort = 0; /* NULL; */
|
|
|
sub0(&myComp, &servicesObj);
|
sub0(&myComp, &servicesObj);
|
|
|
return 0;
|
return 0;
|
}/* end main() */
|
}/* end main() */
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.