Mercurial > hg > CbC > CbC_examples
changeset 20:c181f93d4e30
minor fix
author | Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 Jan 2016 09:53:21 +0900 |
parents | ead7c2743f0e |
children | 0d6edf8a4b67 |
files | asmtest2.c conv1/conv2.c |
diffstat | 2 files changed, 244 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/asmtest2.c Mon Jan 25 00:48:37 2016 +0900 +++ b/asmtest2.c Mon Jan 25 09:53:21 2016 +0900 @@ -27,11 +27,13 @@ __code print(int n,int result,int orig,__code(*print)(),__code (*exit1)(int, void*),void*exit1env) { printf("#0032:%d! = %d\n",orig, result); - asm volatile("movq (%%rdi), %%r10;" - "movq $100, (%%r10);" - "movq 0x18(%%rdi), %%rbp;" - "movq 0x20(%%rdi), %%rsp;" - "jmpq *0x48(%%rdi);" + asm volatile( + "movq (%%rdi), %%r10;" + "movq $0, (%%r10);" + "movq 0x8(%%rdi), %%r10;" + "movq 0x8(%%r10), %%rbp;" + "movq 0x10(%%r10), %%rsp;" + "jmpq *0x38(%%r10);" :"+D"(exit1env)::"r10" ); }
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/conv1/conv2.c Mon Jan 25 09:53:21 2016 +0900 @@ -0,0 +1,237 @@ +#include <stdio.h> +#include <stdlib.h> +static int loop; + +#if 1 // def __micro_c__ +#define CC_ONLY 0 +#else +#define CC_ONLY 1 +#endif + +#ifdef GCC // for GCC +#define __return _CbC_return +#define __environment _CbC_environment +#endif + +typedef char *stack; +int f0(int i); +int g0(int i); +int h0(int i); + +/* classical function call case (0) */ +int f0(int i) { + int k,j; + k = 3+i; + j = g0(i+3); + return k+4+j; +} + +int g0(int i) { + return h0(i+4)+i; +} + +int h0(int i) { + return i+4; +} + +#if !CC_ONLY + +/* straight conversion case (1) */ + + +struct cont_interface { // General Return Continuation + __code (*ret)(int,stack); +}; + +__code f(int i,stack sp) { + int k,j; + k = 3+i; + goto f_g0(i,k,sp); +} + +struct f_g0_interface { // Specialized Return Continuation + __code (*ret)(int,stack); + int i_,k_,j_; +}; + +__code f_g0(int i,int k,stack sp) { // Caller + struct f_g0_interface *c = + (struct f_g0_interface *)(sp -= sizeof(struct f_g0_interface)); + + c->ret = f_g1; + c->k_ = k; + c->i_ = i; + + goto g(i+3,sp); +} + +__code f_g1(int j,stack sp) { // Continuation + struct f_g0_interface *c = (struct f_g0_interface *)sp; + int k = c->k_; + sp+=sizeof(struct f_g0_interface); + c = (struct f_g0_interface *)sp; + goto (c->ret)(k+4+j,sp); +} + + +__code g(int i,stack sp) { // Caller + struct f_g0_interface *c = + (struct f_g0_interface *)(sp -= sizeof(struct f_g0_interface)); + + c->ret = g_h1; + c->i_ = i; + + goto h(i+3,sp); +} + +__code g_h1(int j,stack sp) { // Continuation + struct f_g0_interface *c = (struct f_g0_interface *)sp; + int i = c->i_; + sp+=sizeof(struct f_g0_interface); + c = (struct f_g0_interface *)sp; + goto (c->ret)(j+i,sp); +} + +__code h(int i,stack sp) { + struct f_g0_interface *c = (struct f_g0_interface *)sp; + goto (c->ret)(i+4,sp); +} + +struct main_continuation { // General Return Continuation + __code (*ret)(int,stack); + __code (*main_ret)(int,void*); + void *env; +}; + +__code main_return(int i,stack sp) { + if (loop-->0) + goto f(233,sp); + printf("#0103:%d\n",i); + asm volatile( + "movq (%%rdi), %%r10;" + "movq $0, (%%r10);" + "movq 0x8(%%rdi), %%r10;" + "movq 0x8(%%r10), %%rbp;" + "movq 0x10(%%r10), %%rsp;" + "jmpq *0x38(%%r10);" + :"+D"(((struct main_continuation *)sp)->env)::"r10" + ); +} + +/* little optimzation without stack continuation (2) */ + +__code f2(int i,char *sp) { + int k,j; + k = 3+i; + goto g2(i,k,i+3,sp); +} + +__code g2(int i,int k,int j,char *sp) { + j = j+4; + goto h2(i,k+4+j,sp); +} + +__code h2_1(int i,int k,int j,char *sp) { + goto main_return2(i+j,sp); +} + +__code h2(int i,int k,char *sp) { + goto h2_1(i,k,i+4,sp); +} + +__code main_return2(int i,stack sp) { + if (loop-->0) + goto f2(233,sp); + printf("#0132:%d\n",i); + goto (( (struct main_continuation *)sp)->main_ret)(0, + ((struct main_continuation *)sp)->env); +} + +/* little optimizaed case (3) */ + +__code f2_1(int i,char *sp) { + int k,j; + k = 3+i; + goto g2_1(k,i+3,sp); +} + +__code g2_1(int k,int i,char *sp) { + goto h2_11(k,i+4,sp); +} + +__code h2_1_1(int i,int k,int j,char *sp) { + goto f2_0_1(k,i+j,sp); +} + +__code h2_11(int i,int k,char *sp) { + goto h2_1_1(i,k,i+4,sp); +} + +__code f2_0_1(int k,int j,char *sp) { + goto (( (struct cont_interface *)sp)->ret)(k+4+j,sp); +} + +__code main_return2_1(int i,stack sp) { + if (loop-->0) + goto f2_1(233,sp); + printf("#0165:%d\n",i); + exit(0); + //goto (( (struct main_continuation *)sp)->main_ret)(0, + //((struct main_continuation *)sp)->env); +} + +#define STACK_SIZE 2048 +char main_stack[STACK_SIZE]; +#define stack_last (main_stack+STACK_SIZE) + +#endif + +#define LOOP_COUNT 500000000 +int +main(int ac,char *av[]) +{ +#if !CC_ONLY + struct main_continuation *cont; + stack sp = stack_last; +#endif + int sw; + int j; + if (ac==2) sw = atoi(av[1]); + else sw=3; + + if (sw==0) { + for(loop=0;loop<LOOP_COUNT;loop++) { + j = f0(loop); + } + printf("#0193:%d\n",j); +#if !CC_ONLY + } else if (sw==1) { + loop = LOOP_COUNT; + sp -= sizeof(*cont); + cont = (struct main_continuation *)sp; + cont->ret = main_return; + cont->main_ret = __return; + cont->env = __environment; + goto f(loop,sp); + } else if (sw==2) { + loop = LOOP_COUNT; + sp -= sizeof(*cont); + cont = (struct main_continuation *)sp; + cont->ret = main_return2; + cont->main_ret = __return; + cont->env = __environment; + goto f2(loop,sp); + } else if (sw==3) { + loop = LOOP_COUNT; + sp -= sizeof(*cont); + cont = (struct main_continuation *)sp; + cont->ret = main_return2_1; + cont->main_ret = __return; + cont->env = __environment; + goto f2_1(loop,sp); +#endif + } + return 0; +} + +/* end */