Mercurial > hg > CbC > old > device

diff test/fact.c @ 725:3f1f6c0610c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
goto with enviornment syntax changed.
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 20 Aug 2009 16:39:02 +0900
parents 6b7372e17970
children c2c709727221
line wrap: on
line diff
--- a/test/fact.c	Sat Nov 08 15:11:06 2008 +0900
+++ b/test/fact.c	Thu Aug 20 16:39:02 2009 +0900
@@ -1,3 +1,6 @@
+#define __environment _CbC_environment
+#define __return _CbC_return
+
 #include "stdio.h"
 __code print();
 int
@@ -17,7 +20,7 @@
 void *exit1env;
 {
     printf("#0018:%d! = %d\n",n, result);
-    goto (*exit1)(0),exit1env;
+    goto (*exit1)(0,exit1env);
 }
 
 __code factorial(n,result,orig,print,exit1,exit1env)
@@ -28,7 +31,7 @@
 {
     if (n<0) {
 	printf("#0029:err %d!\n",n);
-	goto (*exit1)(0),exit1env;
+	goto (*exit1)(0,exit1env);
     }
     if (n==0)
 	goto (*print)(n,result,orig,print,exit1,exit1env);