annotate sources/cbcreturn.cbc @ 7:8ef81ff8cb52

emended.
author kent <kent@cr.ie.u-ryukyu.ac.jp>
date Fri, 12 Feb 2010 13:10:57 +0900
parents d2999e94b97d
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
8ef81ff8cb52 emended.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
1 code cs(code (*ret)(int))
1
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 {
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 goto ret(2);
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 }
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
5
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 int funcB()
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 {
7
8ef81ff8cb52 emended.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
8 code (*ret)(int);
8ef81ff8cb52 emended.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
9 ret = __return;
1
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 /* do something. */
7
8ef81ff8cb52 emended.
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents: 3
diff changeset
11 goto cs(ret);
1
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
12
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 /* never reached. */
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 return -1;
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 }
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
16
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 void funcA()
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 {
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 int t;
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
20
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 t = funcB();
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
22
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 printf("t=%d\n", t);
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 /* t should not be -1 but 2. */
aa09c34b90d3 add quicksort_for_pcc
kent <kent@cr.ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 }