view CbC-examples/rectype/struct.cbc @ 120:f93fa5091070

fix conv1.c
author mir3636
date Thu, 08 Mar 2018 14:53:42 +0900
parents 78d3881f2882
children
line wrap: on
line source

#include <stdio.h>
#include <stdlib.h>
struct interface {
	__code (*next)(struct interface);
};

__code print(struct interface p)
{
	printf("print\n");
	exit(0);
}
__code csA(struct interface p)
{
	struct interface ds;
	ds.next = csA;
	goto p.next(ds);
}

void main1()
{
	struct interface ds;
	ds.next = print;
	goto csA(ds);
}

int main()
{
	main1();
	return 0;
}