Mercurial > hg > CbC > CbC_gcc
diff CbC-examples/rectypeTest/struct2.cbc @ 108:7ad14f446135
add CbC-example/rectypeTest/
author | Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 14 Jun 2012 20:30:24 +0900 |
parents | |
children |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/CbC-examples/rectypeTest/struct2.cbc Thu Jun 14 20:30:24 2012 +0900 @@ -0,0 +1,33 @@ + +struct interface { + __code (*next)(); + __rectype child; + // __rectype *child; + // struct interface *child; +}; + +#include <stdio.h> +__code csA() +{ + printf("csA\n"); +} + +__code csB() +{ + printf("csB\n"); +} + +int main() +{ + struct interface p; + p.next = csA; + + struct interface pp; + pp.next = csB; + p.child = &pp; + + // goto p.child->next(); + goto p.child->next(); + + return 0; +}