Mercurial > hg > CbC > old > device

annotate test/basic-code.c @ 935:7672a37e7545 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Raspbery PI ARM support begin
author kono
date Sat, 24 Dec 2016 03:02:57 +0000
parents c2c709727221
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
1 #define __environment _CbC_environment
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
2 #define __return _CbC_return
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
3
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
4 int printf(const char *format, ...);
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
5
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
6 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
7 f50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
8 float a0,float a1,float a2,float a3,float a4,float a5,float a6,float a7,float a8,float a9,float a10,float a11,float a12,float a13,float a14,float a15,float a16,float a17,float a18,float a19,float a20,float a21,float a22,float a23,float a24,float a25,float a26,float a27,float a28,float a29,float a30,float a31,float a32,float a33,float a34,float a35,float a36,float a37,float a38,float a39,float a40,float a41,float a42,float a43,float a44,float a45,float a46,float a47,float a48,float a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
9 );
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
10
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
11
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
12 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
13 d50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
14 double a0,double a1,double a2,double a3,double a4,double a5,double a6,double a7,double a8,double a9,double a10,double a11,double a12,double a13,double a14,double a15,double a16,double a17,double a18,double a19,double a20,double a21,double a22,double a23,double a24,double a25,double a26,double a27,double a28,double a29,double a30,double a31,double a32,double a33,double a34,double a35,double a36,double a37,double a38,double a39,double a40,double a41,double a42,double a43,double a44,double a45,double a46,double a47,double a48,double a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
15 );
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
16
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
17 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
18 i50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
19 int a0,int a1,int a2,int a3,int a4,int a5,int a6,int a7,int a8,int a9,int a10,int a11,int a12,int a13,int a14,int a15,int a16,int a17,int a18,int a19,int a20,int a21,int a22,int a23,int a24,int a25,int a26,int a27,int a28,int a29,int a30,int a31,int a32,int a33,int a34,int a35,int a36,int a37,int a38,int a39,int a40,int a41,int a42,int a43,int a44,int a45,int a46,int a47,int a48,int a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
20 )
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
21 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
22 printf("#0021:i50: %d\n",
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
23 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
24 );
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
25 printf("#0024:%d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d %d \n", a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49);
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
26
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
27 goto f50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
28 0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0,21.0,22.0,23.0,24.0,25.0,26.0,27.0,28.0,29.0,30.0,31.0,32.0,33.0,34.0,35.0,36.0,37.0,38.0,39.0,40.0,41.0,42.0,43.0,44.0,45.0,46.0,47.0,48.0,49.0
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
29 );
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
30 }
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
31
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
32 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
33 f50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
34 float a0,float a1,float a2,float a3,float a4,float a5,float a6,float a7,float a8,float a9,float a10,float a11,float a12,float a13,float a14,float a15,float a16,float a17,float a18,float a19,float a20,float a21,float a22,float a23,float a24,float a25,float a26,float a27,float a28,float a29,float a30,float a31,float a32,float a33,float a34,float a35,float a36,float a37,float a38,float a39,float a40,float a41,float a42,float a43,float a44,float a45,float a46,float a47,float a48,float a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
35 )
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
36 {
542
492f06738550 working... (struct init fix)
kono
parents: 520
diff changeset
37 printf("#0036:f50: %g\n",
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
38 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
39 );
721
76761a18703b Recursive macro
kono
parents: 622
diff changeset
40 printf("#0039:%g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g \n",
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
41 a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49);
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
42
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
43 goto d50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
44 0.0,1.0,2.0,3.0,4.0,5.0,6.0,7.0,8.0,9.0,10.0,11.0,12.0,13.0,14.0,15.0,16.0,17.0,18.0,19.0,20.0,21.0,22.0,23.0,24.0,25.0,26.0,27.0,28.0,29.0,30.0,31.0,32.0,33.0,34.0,35.0,36.0,37.0,38.0,39.0,40.0,41.0,42.0,43.0,44.0,45.0,46.0,47.0,48.0,49.0
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
45 );
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
46 }
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
47
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
48 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
49 d50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
50 double a0,double a1,double a2,double a3,double a4,double a5,double a6,double a7,double a8,double a9,double a10,double a11,double a12,double a13,double a14,double a15,double a16,double a17,double a18,double a19,double a20,double a21,double a22,double a23,double a24,double a25,double a26,double a27,double a28,double a29,double a30,double a31,double a32,double a33,double a34,double a35,double a36,double a37,double a38,double a39,double a40,double a41,double a42,double a43,double a44,double a45,double a46,double a47,double a48,double a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
51 )
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
52 {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
53 printf("#0052:d50: %g\n",
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
54 a0+a1+a2+a3+a4+a5+a6+a7+a8+a9+a10+a11+a12+a13+a14+a15+a16+a17+a18+a19+a20+a21+a22+a23+a24+a25+a26+a27+a28+a29+a30+a31+a32+a33+a34+a35+a36+a37+a38+a39+a40+a41+a42+a43+a44+a45+a46+a47+a48+a49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
55 );
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
56 printf("#0055:%g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g %g \n",
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
57 a0,a1,a2,a3,a4,a5,a6,a7,a8,a9,a10,a11,a12,a13,a14,a15,a16,a17,a18,a19,a20,a21,a22,a23,a24,a25,a26,a27,a28,a29,a30,a31,a32,a33,a34,a35,a36,a37,a38,a39,a40,a41,a42,a43,a44,a45,a46,a47,a48,a49);
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
58
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
59 goto exit0();
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
60 }
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
61
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
62 __code (*ret)(int);
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
63 void *env;
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
64
622
682c8ec38d45 _code へ
kono
parents: 542
diff changeset
65 __code
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
66 exit0()
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
67 {
725
3f1f6c0610c1 goto with enviornment syntax changed.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 721
diff changeset
68 goto (*ret)(0,env);
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
69 }
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
70
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
71
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
72 int
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
73 main0()
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
74 {
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
75
721
76761a18703b Recursive macro
kono
parents: 622
diff changeset
76 ret = __return;
76761a18703b Recursive macro
kono
parents: 622
diff changeset
77 env = __environment;
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
78 goto
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
79 i50(
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
80 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
81 );
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
82
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
83 }
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
84
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
85
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
86
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
87 int
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
88 main() {
748
c2c709727221 i64 continue... basic.s assembled.
Shinji KONO <kono@ie.u-ryukyu.ac.jp>
parents: 725
diff changeset
89 printf("#0088:%d\n",main0());
520
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
90 return 0;
c562d1681275 *** empty log message ***
kono
parents:
diff changeset
91 }