Mercurial > hg > CbC > CbC_gcc

annotate CbC-examples/test05.c @ 150:26042f4007d5 current

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fix examples
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sat, 23 May 2020 07:51:47 +0900
parents 5d30d517ebed
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
27
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
1 //#include<stdio.h>
150
26042f4007d5 fix examples
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
2 #include <stdlib.h>
26042f4007d5 fix examples
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 126
diff changeset
3
126
5d30d517ebed fix example
mir3636
parents: 27
diff changeset
4 extern int printf(const char*, ...);
27
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
5 #define dprint(f, args...) \
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
6 printf("in %s: "f, __FUNCTION__, ## args)
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
7
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
8 __code caller (int a);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
9 void f01 (int a);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
10 void f02 (int a, float b);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
11 __code cs01 (int a);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
12 __code cs02 (int a, float b);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
13 int main ();
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
14
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
15
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
16 int g=0;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
17 void (*funcp)(int);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
18 __code (*csp)(int);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
19
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
20 __code caller(int a) {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
21 f01(a+2);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
22 f02(a+3, 13.2);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
23 funcp(a+4);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
24 goto csp(a+4);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
25 dprint("\n");
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
26 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
27
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
28 __code end() {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
29 dprint("\n");
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
30 exit(0);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
31 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
32
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
33 void f01(int a) {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
34 dprint("%d\n", a);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
35 g += a;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
36 return ;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
37 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
38 void f02(int a, float b) {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
39 dprint("%d, %f\n", a, b);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
40 g -= a;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
41 g += b*0.3;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
42 return ;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
43 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
44 __code cs01(int a) {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
45 dprint("%d\n", a);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
46 g += a;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
47 goto end() ;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
48 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
49 __code cs02(int a, float b) {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
50 dprint("%d, %f\n", a, b);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
51 g -= a;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
52 g += b*0.3;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
53 goto end() ;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
54 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
55
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
56 int main() {
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
57 funcp = f01;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
58 csp = cs01;
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
59 caller(10);
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
60 }
f9b1a53df341 implemented indirect sibcall for ppc.
kent@teto.cr.ie.u-ryukyu.ac.jp
parents:
diff changeset
61