Mercurial > hg > CbC > old > device

comparison test/fact.c @ 427:0c256ea2a97e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Bitfield left value for ia32
author kono
date Sat, 30 Oct 2004 18:49:25 +0900
parents 096559f07a70
children 388baa7d4bee
comparison
equal deleted inserted replaced
426:fb136af3bf09 427:0c256ea2a97e
14 code print(n,result,orig,print,exit1,exit1env) 14 code print(n,result,orig,print,exit1,exit1env)
15 int n,result,orig; 15 int n,result,orig;
16 code (*print)(),(*exit1)(); 16 code (*print)(),(*exit1)();
17 void *exit1env; 17 void *exit1env;
18 { 18 {
19 printf("%d! = %d\n",n, result); 19 printf("#0018:%d! = %d\n",n, result);
20 goto (*exit1)(0),exit1env; 20 goto (*exit1)(0),exit1env;
21 } 21 }
22 22
23 code factorial(n,result,orig,print,exit1,exit1env) 23 code factorial(n,result,orig,print,exit1,exit1env)
24 int n,result,orig; 24 int n,result,orig;
25 code (*print)(); 25 code (*print)();
26 code (*exit1)(); 26 code (*exit1)();
27 void *exit1env; 27 void *exit1env;
28 { 28 {
29 if (n<0) { 29 if (n<0) {
30 printf("err %d!\n",n); 30 printf("#0029:err %d!\n",n);
31 goto (*exit1)(0),exit1env; 31 goto (*exit1)(0),exit1env;
32 } 32 }
33 if (n==0) 33 if (n==0)
34 goto (*print)(n,result,orig,print,exit1,exit1env); 34 goto (*print)(n,result,orig,print,exit1,exit1env);
35 /* goto print(n,result,orig,print,exit1,exit1env); */ 35 /* goto print(n,result,orig,print,exit1,exit1env); */