annotate test/code-gen.c @ 199:117772cc77b2

*** empty log message ***
author kono
date Thu, 08 Apr 2004 20:43:40 +0900
parents ef6f0c2d932f
children d83291712bf7
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1 /* Micro-C Code Generator Checker */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2 /* $Id$ */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
3
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
4 #define FLOAT_CODE 1
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
5 #define LONGLONG_CODE 1
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
6
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
7 // code_lvar(int e2,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
8
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
9 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
10 code_lvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
11 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
12 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
13 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
14 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
15 short s1,s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
16 unsinged short us1,us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
17 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
18 float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
19 double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
20 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
21 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
22 long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
23 unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
24 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
25
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
26 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
27 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
28 printf("code_lvar %d %d %d %d %u %u\n",i1,i2,s1,s2,us1,us2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
29 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
30 printf("code_lvar %d %d %u %u\n",c1,c2,uc1,uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
31 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
32 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
33 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
34 printf("code_lvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
35 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
36 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
37 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
38 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
39 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
40 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
41 printf("code_lvar long long %ll %ll %ull %ull\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
42 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
43 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
44
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
45 // code_label(int labelno)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
46 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
47 code_label()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
48 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
49 goto hoge;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
50 hage:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
51 goto hage;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
52 hoge:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
53 printf("code_label done\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
54 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
55
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
56 // code_gvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
57 // code_rgvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
58 // code_crgvar(int e1,int creg,int sign,int sz)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
59
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
60 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
61 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
62 static char s_c1,s_c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
63 static unsigned char s_uc1,s_uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
64 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
65 short s1,s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
66 unsinged short us1,us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
67 static int s_i1,s_i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
68 static short s_s1,s_s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
69 static unsinged short s_us1,s_us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
70 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
71 float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
72 double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
73 static float s_f0,s_f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
74 static double s_d0,s_d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
75 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
76 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
77 long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
78 unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
79 static long long s_l0,s_l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
80 static unsigned long long s_ul0,s_ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
81 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
82
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
83 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
84 code_gvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
85 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
86 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
87 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
88 printf("code_gvar %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
89 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
90 printf("code_gvar %d %d %u %u\n",c1,c2,uc1,uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
91 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
92 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
93 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
94 printf("code_gvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
95 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
96 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
97 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
98 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
99 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
100 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
101 printf("code_gvar long long %ll %ll %ull %ull\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
102 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
103 s_i1 = 1; s_i2 = 2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
104 s_s1 = -1; s_s2 = -3; s_us1 = 65535; s_us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
105 printf("code_gvar %d %d %u %u %u %u\n",s_i1,s_i2,s1,s_s2,s_us1,s_us2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
106 s_c1 = -1; s_c2 = -3; s_uc1 = 65535; s_uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
107 printf("code_gvar %d %d %u %u\n",s_c1,s_c2,s_uc1,s_uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
108 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
109 s_f0 = 0.0; s_f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
110 s_d0 = 10; s_d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
111 printf("code_gvar float %f %f %g %g\n",s_i1,s_i2,s_f0,s_f1,s_d0,s_d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
112 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
113 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
114 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
115 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
116 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
117 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
118 printf("code_gvar long long %ll %ll %ull %ull\n",s_i1,s_i2,s_f0,s_f1,s_d0,s_d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
119 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
120 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
121
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
122 // code_register(int e2,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
123
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
124 code_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
125 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
126 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
127 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
128 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
129 register short s1,s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
130 register unsinged short us1,us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
131 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
132 register float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
133 register double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
134 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
135 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
136 register long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
137 register unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
138 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
139
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
140 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
141 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
142 printf("code_lvar %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
143 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
144 printf("code_gvar %d %d %u %u\n",c1,c2,uc1,uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
145 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
146 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
147 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
148 printf("code_lvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
149 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
150 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
151 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
152 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
153 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
154 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
155 printf("code_lvar long long %ll %ll %ull %ull\n",i1,i2,f0,f1,d0,d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
156 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
157 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
158
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
159 // code_fname(NMTBL *n,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
160
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
161 code_fname()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
162 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
163 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
164 i = (int)code_fname;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
165 j = (int)code_register;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
166 printf("code_fname %d\n",i==j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
167 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
168
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
169
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
170 // code_neg(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
171 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
172 code_neg()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
173 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
174 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
175 i = 123123123;j = -32423;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
176 printf("code_neg %d %d\n",-i,-j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
177 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
178
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
179 // code_not(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
180 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
181 code_not()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
182 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
183 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
184 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
185 printf("code_neg %d %d\n",~i,~j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
186 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
187
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
188 // code_lnot(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
189 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
190 code_lnot()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
191 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
192 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
193 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
194 printf("code_neg %d %d\n",!i,!j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
195 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
196
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
197 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
198 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
199 code_preinc()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
200 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
201 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
202 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
203 printf("code_preinc %d %d\n",++i,--j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
204 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
205
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
206 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
207 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
208 code_postinc()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
209 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
210 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
211 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
212 printf("code_preinc %d %d\n",i++,j--);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
213 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
214
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
215 // code_return(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
216
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
217 int
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
218 code_return_int()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
219 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
220 return 1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
221 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
222
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
223 float
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
224 code_return_float()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
225 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
226 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
227 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
228
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
229 double
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
230 code_return_double()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
231 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
232 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
233 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
234
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
235 long long
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
236 code_return_longlong()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
237 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
238 return 10LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
239 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
240
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
241 struct aa { char a[100]; } a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
242 struct aa
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
243 code_return_struct()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
244 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
245 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
246 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
247 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
248
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
249 // code_gt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
250
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
251 void code_gt()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
252 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
253 if (i1>i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
254 printf("code_gt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
255 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
256 printf("code_gt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
257 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
258
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
259 // code_ugt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
260 void code_ugt()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
261 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
262 if (ui1>ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
263 printf("code_ugt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
264 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
265 printf("code_ugt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
266 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
267
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
268 // code_ge(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
269 void code_ge()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
270 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
271 if (i1>=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
272 printf("code_ge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
273 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
274 printf("code_ge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
275 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
276
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
277 // code_uge(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
278 void code_uge()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
279 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
280 if (ui1>=ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
281 printf("code_uge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
282 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
283 printf("code_uge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
284 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
285
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
286 // code_eq(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
287 void code_eq()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
288 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
289 if (ui1==ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
290 printf("code_eq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
291 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
292 printf("code_eq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
293 if (i1!=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
294 printf("code_neq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
295 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
296 printf("code_neq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
297 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
298
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
299 // code_bool(int e1)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
300
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
301 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
302 code_bool()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
303 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
304 printf("code_bool %d %d %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
305 i1>i2,ui1>ui2,i1>=i2,ui1>=ui2,ui1==ui2,i1!=i2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
306 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
307 printf("code_bool float %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
308 f0>f1,f0>=f1,f0==f1,f0!=f1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
309 printf("code_bool double %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
310 d0>d1,d0>=d1,d0==d1,d0!=d1);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
311 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
312 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
313 printf("code_bool long long %d %d %d %d %d %d\n",
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
314 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
315 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
316 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
317
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
318 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
319 code_cmp()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
320 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
321 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
322 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
323 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
324 short s1,s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
325 unsinged short us1,us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
326 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
327 float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
328 double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
329 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
330 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
331 long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
332 unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
333 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
334 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
335 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
336 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
337 i1 && printf("code_bool local 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
338 s1 && printf("code_bool local 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
339 us1 && printf("code_bool local 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
340 c1 && printf("code_bool local 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
341 uc1 && printf("code_bool local 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
342 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
343 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
344 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
345 f0 && printf("code_bool local 6\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
346 d0 && printf("code_bool local 7\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
347 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
348 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
349 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
350 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
351 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
352 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
353 l0 && printf("code_bool local 8\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
354 ul0 && printf("code_bool local 9\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
355 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
356
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
357 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
358 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
359 code_cmp_global()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
360 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
361 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
362 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
363 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
364 i1 && printf("code_bool global 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
365 s1 && printf("code_bool global 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
366 us1 && printf("code_bool global 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
367 c1 && printf("code_bool global 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
368 uc1 && printf("code_bool global 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
369 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
370 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
371 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
372 f0 && printf("code_bool global 6\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
373 d0 && printf("code_bool global 7\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
374 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
375 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
376 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
377 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
378 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
379 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
380 l0 && printf("code_bool global 8\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
381 ul0 && printf("code_bool global 9\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
382 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
383 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
384
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
385 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
386 code_cmp_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
387 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
388 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
389 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
390 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
391 register short s1,s2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
392 register unsinged short us1,us2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
393 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
394 register float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
395 register double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
396 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
397 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
398 register long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
399 register unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
400 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
401 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
402 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
403 c1 = -1; c2 = -3; uc1 = 65535; uc2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
404 i1 && printf("code_bool register 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
405 s1 && printf("code_bool register 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
406 us1 && printf("code_bool register 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
407 c1 && printf("code_bool register 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
408 uc1 && printf("code_bool register 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
409 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
410 f0 = 0.0; f1 = 0.2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
411 d0 = 10; d1 = 10e10;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
412 f0 && printf("code_bool register 6\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
413 d0 && printf("code_bool register 7\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
414 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
415 #if LOGNLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
416 l0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
417 l1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
418 ul0 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
419 ul1 = 123123123LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
420 l0 && printf("code_bool register 8\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
421 ul0 && printf("code_bool register 9\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
422 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
423
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
424 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
425
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
426
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
427 // code_string(int e1,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
428
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
429 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
430 code_string(int e1,int creg)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
431 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
432 printf("code_string test\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
433 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
434
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
435 // struct_push(int e4,int t,int arg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
436
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
437 struct aa
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
438 struct_push0(int i,struct aa a)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
439 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
440 a.a[55]++;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
441 if (i==0) {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
442 return struct_push(1,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
443 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
444 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
445 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
446
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
447 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
448 struct_push()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
449 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
450 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
451 a0 = struct_push0(0,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
452 printf("struct_push %d\n",a0.a[55]);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
453 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
454
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
455 // code_jmp(char *s)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
456 // code_indirect_jmp(int e2)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
457
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
458 // code_rindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
459 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
460 code_rindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
461 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
462 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
463 unsigned int ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
464 int *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
465 unsigned int *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
466
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
467 i1 = -555; i2= 555;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
468 ui1 = 632423423; ui2= 32394234;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
469 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
470 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
471 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
472 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
473 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
474 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
475
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
476 // code_crindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
477 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
478 code_crindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
479 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
480 char i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
481 unsigned char ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
482 char *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
483 unsigned char *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
484
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
485 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
486 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
487 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
488 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
489 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
490 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
491 printf("code_cindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
492 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
493
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
494 // code_srindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
495 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
496 code_srindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
497 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
498 short i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
499 unsigned short ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
500 short *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
501 unsigned short *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
502
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
503 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
504 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
505 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
506 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
507 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
508 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
509 printf("code_sindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
510 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
511
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
512 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
513 // code_drindirect(int e1, int offset, int d);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
514 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
515 code_drindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
516 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
517 float i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
518 double ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
519 float *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
520 double *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
521
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
522 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
523 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
524 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
525 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
526 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
527 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
528 printf("code_dindirect %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
529 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
530
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
531 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
532
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
533 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
534 // code_lrindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
535 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
536 code_lrindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
537 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
538 long long i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
539 unsigned long long ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
540 long long *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
541 unsigned long long *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
542
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
543 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
544 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
545 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
546 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
547 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
548 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
549 printf("code_lrindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
550 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
551
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
552 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
553
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
554 // code_assign_gvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
555 // code_assign_lvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
556 // code_assign_register(int e2,int byte,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
557 // code_assign(int e2,int byte,int creg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
558
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
559 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
560 code_assign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
561 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
562 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
563 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
564 int *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
565 unsigned int *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
566
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
567 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
568 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
569 pi1 = &i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
570 pi2 = &i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
571 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
572 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
573
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
574 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
575 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
576 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
577 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
578
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
579 // code_register_assop(int e2,int op,int byte)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
580 code_register_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
581 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
582 register int i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
583 register unsigned int ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
584 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
585 ui1 = 632423423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
586
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
587 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
588 printf("code_assop 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
589 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
590 printf("code_assop 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
591 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
592 printf("code_assop 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
593 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
594 printf("code_assop 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
595 i1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
596 printf("code_assop 5 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
597 i1 &= 2324234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
598 printf("code_assop 6 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
599 i1 ^= 5523234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
600 printf("code_assop 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
601 i1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
602 printf("code_assop 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
603 i1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
604 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
605
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
606 ui1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
607 printf("code_assop 1 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
608 ui1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
609 printf("code_assop 2 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
610 ui1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
611 printf("code_assop 3 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
612 ui1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
613 printf("code_assop 4 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
614 ui1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
615 printf("code_assop 5 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
616 ui1 &= 2324234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
617 printf("code_assop 6 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
618 ui1 ^= 5523234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
619 printf("code_assop 7 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
620 ui1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
621 printf("code_assop 8 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
622 ui1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
623 printf("code_assop 9 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
624 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
625
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
626 // code_assop(int op,int byte,int sign)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
627 code_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
628 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
629 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
630 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
631 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
632 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
633
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
634 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
635 printf("code_assop 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
636 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
637 printf("code_assop 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
638 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
639 printf("code_assop 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
640 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
641 printf("code_assop 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
642 i1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
643 printf("code_assop 5 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
644 i1 &= 2324234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
645 printf("code_assop 6 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
646 i1 ^= 5523234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
647 printf("code_assop 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
648 i1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
649 printf("code_assop 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
650 i1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
651 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
652
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
653 ui1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
654 printf("code_assop 1 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
655 ui1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
656 printf("code_assop 2 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
657 ui1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
658 printf("code_assop 3 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
659 ui1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
660 printf("code_assop 4 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
661 ui1 |= 234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
662 printf("code_assop 5 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
663 ui1 &= 2324234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
664 printf("code_assop 6 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
665 ui1 ^= 5523234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
666 printf("code_assop 7 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
667 ui1 <<= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
668 printf("code_assop 8 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
669 ui1 >>= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
670 printf("code_assop 9 %ud\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
671 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
672
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
673
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
674
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
675 // tosop(int op,int oreg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
676 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
677 tosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
678 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
679 int i1,i2,i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
680 unsigned int ui1,ui2,u;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
681 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
682 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
683
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
684 i = i1 + i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
685 printf("tosop 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
686 i = i1 - i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
687 printf("tosop 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
688 i = i1 / i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
689 printf("tosop 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
690 i = i1 * i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
691 printf("tosop 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
692 i = i1 | i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
693 printf("tosop 5 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
694 i = i1 & i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
695 printf("tosop 6 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
696 i = i1 ^ i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
697 printf("tosop 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
698 i = i1 << i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
699 printf("tosop 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
700 i = i1 >> i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
701 printf("tosop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
702
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
703 u = u1 + u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
704 printf("tosop 1 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
705 u = u1 - u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
706 printf("tosop 2 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
707 u = u1 / u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
708 printf("tosop 3 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
709 u = u1 * u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
710 printf("tosop 4 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
711 u = u1 | u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
712 printf("tosop 5 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
713 u = u1 & u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
714 printf("tosop 6 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
715 u = u1 ^ u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
716 printf("tosop 7 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
717 u = u1 << u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
718 printf("tosop 8 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
719 u = u1 >> u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
720 printf("tosop 9 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
721 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
722
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
723 // oprtc(int op,int v)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
724 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
725 oprtc()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
726 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
727 int i1,i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
728 unsigned int ui1,u;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
729 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
730 ui1 = 632423423;
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
731
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
732 i = i1 + 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
733 printf("oprtc 1 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
734 i = i1 - 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
735 printf("oprtc 2 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
736 i = i1 / 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
737 printf("oprtc 3 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
738 i = i1 * 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
739 printf("oprtc 4 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
740 i = i1 | 234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
741 printf("oprtc 5 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
742 i = i1 & 234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
743 printf("oprtc 6 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
744 i = i1 ^ 234234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
745 printf("oprtc 7 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
746 i = i1 << 5;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
747 printf("oprtc 8 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
748 i = i1 >> 5;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
749 printf("oprtc 9 %d\n",i1);
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
750
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
751 u = u1 + 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
752 printf("oprtc 1 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
753 u = u1 - 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
754 printf("oprtc 2 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
755 u = u1 / 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
756 printf("oprtc 3 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
757 u = u1 * 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
758 printf("oprtc 4 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
759 u = u1 | 234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
760 printf("oprtc 5 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
761 u = u1 & 234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
762 printf("oprtc 6 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
763 u = u1 ^ 23234234234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
764 printf("oprtc 7 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
765 u = u1 << 5;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
766 printf("oprtc 8 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
767 u = u1 >> 5;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
768 printf("oprtc 9 %ud\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
769 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
770
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
771
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
772 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
773 // code_cmp_dregister(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
774 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
775 code_cmp_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
776 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
777 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
778 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
779 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
780 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
781 f0 && printf("code_bool register 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
782 d0 && printf("code_bool register 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
783
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
784 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
785
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
786 // code_dregister(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
787 code_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
788 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
789 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
790 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
791 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
792 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
793 printf("code_lvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
794 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
795
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
796 // code_dassign_gvar(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
797 // code_dassign_lvar(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
798 // code_dassign_dregister(int e2,int d,int freg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
799
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
800 // code_dassign(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
801 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
802 code_dassign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
803 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
804 float i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
805 double ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
806 float *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
807 double *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
808
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
809 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
810 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
811 pi1 = &i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
812 pi2 = &i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
813 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
814 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
815
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
816 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
817 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
818 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
819 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
820
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
821 // code_dconst(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
822 // code_dneg(int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
823 // code_dneg(int creg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
824 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
825 code_dneg()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
826 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
827 float i,j;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
828 double di,dj;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
829 i = 123123123;j = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
830 di = 123123123;dj = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
831 printf("code_dneg %g %g\n",-i,-j);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
832 printf("code_dneg %g %g\n",-di,-dj);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
833 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
834
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
835 // code_d2i(int freg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
836 void code_d2i()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
837 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
838 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
839 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
840 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
841 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
842 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
843 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
844 // code_i2d(int creg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
845 void code_i2d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
846 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
847 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
848 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
849 i = 24234342342;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
850 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
851 printf("code_i2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
852 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
853 // code_d2u(int freg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
854 void code_d2u()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
855 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
856 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
857 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
858 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
859 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
860 printf("code_d2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
861 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
862 // code_u2d(int creg0)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
863 void code_u2d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
864 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
865 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
866 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
867 i = 24234342342;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
868 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
869 printf("code_u2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
870 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
871 // code_f2i(int freg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
872 void code_f2i()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
873 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
874 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
875 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
876 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
877 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
878 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
879 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
880 // code_i2f(int creg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
881 void code_i2f()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
882 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
883 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
884 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
885 i = 24234342342;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
886 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
887 printf("code_i2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
888 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
889 // code_f2u(int freg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
890 void code_f2u()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
891 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
892 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
893 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
894 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
895 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
896 printf("code_f2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
897 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
898 // code_u2f(int creg0)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
899 void code_u2f()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
900 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
901 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
902 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
903 i = 24234342342;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
904 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
905 printf("code_u2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
906 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
907
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
908
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
909 // code_drgvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
910 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
911 code_dgvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
912 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
913 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
914 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
915 printf("code_gvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
916 s_f0 = 0.0; s_f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
917 s_d0 = 10; s_d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
918 printf("code_gvar float %f %f %g %g\n",s_i1,s_i2,s_f0,s_f1,s_d0,s_d1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
919 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
920
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
921 // code_drlvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
922 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
923 code_dlvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
924 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
925 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
926 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
927 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
928 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
929 printf("code_lvar float %f %f %g %g\n",i1,i2,f0,f1,d0,d1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
930 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
931
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
932
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
933 // code_cmp_drgvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
934 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
935 code_cmp_d_global()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
936 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
937 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
938 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
939 f0 && printf("code_bool global 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
940 d0 && printf("code_bool global 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
941 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
942
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
943
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
944 // code_cmp_drlvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
945 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
946 code_cmp_d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
947 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
948 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
949 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
950 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
951 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
952 f0 && printf("code_bool local 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
953 d0 && printf("code_bool local 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
954 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
955
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
956 // dtosop(int op,int e1)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
957 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
958 dtosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
959 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
960 double i1,i2,i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
961 float ui1,ui2,u;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
962 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
963 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
964
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
965 i = i1 + i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
966 printf("dtosop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
967 i = i1 - i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
968 printf("dtosop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
969 i = i1 / i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
970 printf("dtosop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
971 i = i1 * i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
972 printf("dtosop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
973 u = u1 + u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
974 printf("dtosop 1 %g\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
975 u = u1 - u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
976 printf("dtosop 2 %g\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
977 u = u1 / u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
978 printf("tosop 3 %g\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
979 u = u1 * u2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
980 printf("dtosop 4 %g\n",u1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
981 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
982
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
983
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
984 // code_dassop(int op,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
985 code_dassop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
986 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
987 double i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
988 float ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
989 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
990 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
991
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
992 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
993 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
994 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
995 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
996 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
997 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
998 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
999 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1000
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1001 ui1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1002 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1003 ui1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1004 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1005 ui1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1006 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1007 ui1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1008 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1009 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1010
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1011
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1012 // code_dpreinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1013 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1014 code_dpreinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1015 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1016 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1017 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1018 i = 123123123;j = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1019 printf("code_dpreinc %g %g\n",++i,--j);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1020 ui = 123123123;uj = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1021 printf("code_dpreinc %g %g\n",++ui,--uj);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1022 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1023
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1024 // code_dpostinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1025 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1026 code_dpostinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1027 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1028 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1029 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1030 i = 123123123;j = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1031 printf("code_dpreinc %g %g\n",i--,j--);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1032 ui = 123123123;uj = 0;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1033 printf("code_dpreinc %g %g\n",ui++,uj--);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1034 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1035
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1036 // drexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1037
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1038 // case DOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1039 // case FOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1040 // case DOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1041 // case FOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1042 // case DOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1043 // case FOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1044 // case DOP+NEQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1045 // case FOP+NEQ:
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1046 // code_gt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1047
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1048 void code_dgt()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1049 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1050 if (d0>d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1051 printf("code_gt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1052 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1053 printf("code_gt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1054 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1055
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1056 // code_ugt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1057 void code_fgt()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1058 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1059 if (f0>f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1060 printf("code_fgt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1061 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1062 printf("code_fgt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1063 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1064
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1065 // code_ge(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1066 void code_dge()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1067 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1068 if (d0>=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1069 printf("code_dge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1070 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1071 printf("code_dge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1072 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1073
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1074 // code_uge(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1075 void code_fge()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1076 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1077 if (f0>=f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1078 printf("code_fge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1079 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1080 printf("code_fge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1081 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1082
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1083 // code_eq(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1084 void code_deq()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1085 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1086 if (f0==f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1087 printf("code_feq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1088 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1089 printf("code_feq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1090 if (d0!=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1091 printf("code_deq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1092 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1093 printf("code_deq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1094 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1095
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1096 // code_dbool(int e1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1097
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1098 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1099 code_dbool()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1100 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1101 printf("code_bool float %d %d %d %d\n",
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1102 f0>f1,f0>=f1,f0==f1,f0!=f1);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1103 printf("code_bool double %d %d %d %d\n",
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1104 d0>d1,d0>=d1,d0==d1,d0!=d1);
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1105 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1106 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1107
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1108
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1109 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1110 // lrexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1111 // int lpop_register()
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1112 // code_lregister(int e2,int reg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1113 // code_cmp_lregister(int reg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1114 // code_cmp_lrgvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1115 // code_cmp_lrlvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1116 // code_lassign(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1117 // code_lassign_gvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1118 // code_lassign_lvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1119 // code_lassign_lregister(int e2,int reg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1120 // code_lconst(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1121 // code_lneg(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1122 // code_lrgvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1123 // code_lrlvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1124 // ltosop(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1125 // code_i2ll(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1126 // code_i2ull(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1127 // code_u2ll(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1128 // code_u2ull(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1129 // code_ll2i(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1130 // code_ll2u(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1131 // code_ull2i(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1132 // code_ull2u(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1133 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1134 // code_d2ll(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1135 // code_d2ull(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1136 // code_f2ll(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1137 // code_f2ull(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1138 // code_ll2d(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1139 // code_ll2f(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1140 // code_ull2d(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1141 // code_ull2f(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1142 // code_ull2ll(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1143 // code_ull2ull(int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1144 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1145
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1146 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1147
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1148 // code_lpreinc(int e1,int e2,int reg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1149 // code_lpostinc(int e1,int e2,int reg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1150 // code_lassop(int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1151
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1152 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1153 /* end */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1154