diff CbC-examples/conv1/conv1.c @ 106:85047c4f1ca4

add CbC-examples/rectypeTest
author Nobuyasu Oshiro <dimolto@cr.ie.u-ryukyu.ac.jp>
date Wed, 13 Jun 2012 17:18:58 +0900
parents 79124facde7c
children
line wrap: on
line diff
--- a/CbC-examples/conv1/conv1.c	Fri May 25 10:34:23 2012 +0900
+++ b/CbC-examples/conv1/conv1.c	Wed Jun 13 17:18:58 2012 +0900
@@ -11,7 +11,6 @@
 #include "conv1.h"
 
 /* classical function call case (0) */
-
 f0(int i) {
     int k,j;
     k = 3+i;
@@ -43,7 +42,7 @@
 }
 
 struct f_g0_interface {  // Specialized Return Continuation
-    __code (*ret)();
+    __code (*ret)(int,stack);
     int i_,k_,j_;
 };
 
@@ -191,7 +190,7 @@
 
     if (sw==0) {
 	for(loop=0;loop<LOOP_COUNT;loop++) {
-	   j = f0(233);
+	   j = f0(loop);
 	}
 	printf("#0193:%d\n",j);
 #if !CC_ONLY
@@ -202,7 +201,7 @@
 	cont->ret = main_return;
 	cont->main_ret = _CbC_return;
 	cont->env = _CbC_environment;
-	goto f(233,sp);
+	goto f(loop,sp);
     } else if (sw==2) {
 	loop = LOOP_COUNT;
 	sp -= sizeof(*cont);
@@ -210,7 +209,7 @@
 	cont->ret = main_return2;
 	cont->main_ret = _CbC_return;
 	cont->env = _CbC_environment;
-	goto f2(233,sp);
+	goto f2(loop,sp);
     } else if (sw==3) {
 	loop = LOOP_COUNT;
 	sp -= sizeof(*cont);
@@ -218,7 +217,7 @@
 	cont->ret = main_return2_1;
 	cont->main_ret = _CbC_return;
 	cont->env = _CbC_environment;
-	goto f2_1(233,sp);
+	goto f2_1(loop,sp);
 #endif
     }
 return 0;