Mercurial > hg > CbC > old > device

comparison test/fact.c @ 880:5313ed059cee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
no tabs in source
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Thu, 03 Apr 2014 10:43:01 +0900
parents c2c709727221
children
comparison
equal deleted inserted replaced
879:528595192871 880:5313ed059cee
28 __code (*print)(); 28 __code (*print)();
29 __code (*exit1)(); 29 __code (*exit1)();
30 void *exit1env; 30 void *exit1env;
31 { 31 {
32 if (n<0) { 32 if (n<0) {
33 printf("#0032:err %d!\n",n); 33 printf("#0032:err %d!\n",n);
34 goto (*exit1)(0,exit1env); 34 goto (*exit1)(0,exit1env);
35 } 35 }
36 if (n==0) 36 if (n==0)
37 goto (*print)(n,result,orig,print,exit1,exit1env); 37 goto (*print)(n,result,orig,print,exit1,exit1env);
38 /* goto print(n,result,orig,print,exit1,exit1env); */ 38 /* goto print(n,result,orig,print,exit1,exit1env); */
39 else { 39 else {
40 result *= n; 40 result *= n;
41 n--; 41 n--;
42 goto factorial(n,result,orig,print,exit1,exit1env); 42 goto factorial(n,result,orig,print,exit1,exit1env);
43 } 43 }
44 } 44 }