annotate test/code-gen.c @ 288:ce7b4d90bc24

PowerPC code bool
author kono
date Thu, 03 Jun 2004 13:15:05 +0900
parents affb054fe920
children 5bf2c3070d36
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
237
1933266f1efa long long ia32 (imcomplete)
kono
parents: 235
diff changeset
5 #define LONGLONG_CODE 1
196
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
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
9 extern int printf(const char *fmt,...);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
10
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
11 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
12 code_lvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
13 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
14 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
15 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
16 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
17 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
18 unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
19
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
20 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
21 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
22 printf("code_lvar %d %d %d %d %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
23 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
24 printf("code_lvar %d %d %u %u\n",c1,c2,uc1,uc2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
25 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
26
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
27 // code_label(int labelno)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
28 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
29 code_label()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
30 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
31 goto hoge;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
32 hage:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
33 goto hage;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
34 hoge:
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
35 printf("code_label done\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
36 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
37
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
38 // code_gvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
39 // code_rgvar(int e1,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
40 // code_crgvar(int e1,int creg,int sign,int sz)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
41
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
42 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
43 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
44 static char s_c1,s_c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
45 static unsigned char s_uc1,s_uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
46 int i1,i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
47 unsigned int ui1,ui2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
48 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
49 unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
50 static int s_i1,s_i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
51 static short s_s1,s_s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
52 static unsigned short s_us1,s_us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
53 #if FLOAT_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
54 float f0,f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
55 double d0,d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
56 static float s_f0,s_f1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
57 static double s_d0,s_d1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
58 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
59 #if LONGLONG_CODE
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
60 long long l0,l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
61 unsigned long long ul0,ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
62 static long long s_l0,s_l1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
63 static unsigned long long s_ul0,s_ul1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
64 #endif
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
65
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
66 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
67 code_gvar()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
68 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
69 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
70 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
71 printf("code_gvar a %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
72 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
73 printf("code_gvar b %d %d %u %u\n",c1,c2,uc1,uc2);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
74
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
75 s_i1 = 1; s_i2 = 2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
76 s_s1 = -1; s_s2 = -3; s_us1 = 65535; s_us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
77 printf("code_gvar c %d %d %u %u %u %u\n",s_i1,s_i2,s1,s_s2,s_us1,s_us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
78 s_c1 = -1; s_c2 = -3; s_uc1 = 200; s_uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
79 printf("code_gvar d %d %d %u %u\n",s_c1,s_c2,s_uc1,s_uc2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
80 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
81
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
82 // code_register(int e2,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
83
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
84 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
85 code_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
86 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
87 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
88 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
89 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
90 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
91 register unsigned short us1,us2;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
92
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
93 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
94 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
95 printf("code_lvar r %d %d %u %u %u %u\n",i1,i2,s1,s2,us1,us2);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
96 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
235
c575422d8b6e *** empty log message ***
kono
parents: 231
diff changeset
97 printf("code_gvar r %d %d %u %u\n",c1,c2,uc1,uc2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
98 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
99
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
100 // code_fname(NMTBL *n,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
101
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
102 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
103 code_fname()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
104 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
105 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
106 i = (int)code_fname;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
107 j = (int)code_register;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
108 printf("code_fname %d\n",i==j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
109 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
110
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
111
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
112 // code_neg(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
113 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
114 code_neg()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
115 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
116 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
117 i = 123123123;j = -32423;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
118 printf("code_neg %d %d\n",-i,-j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
119 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
120
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
121 // code_not(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
122 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
123 code_not()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
124 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
125 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
126 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
127 printf("code_neg %d %d\n",~i,~j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
128 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
129
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
130 // code_lnot(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
131 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
132 code_lnot()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
133 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
134 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
135 i = 123123123;j = 0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
136 printf("code_neg %d %d\n",!i,!j);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
137 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
138
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
139 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
140 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
141 code_preinc()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
142 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
143 int i,j;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
144 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
145 printf("code_preinc i %d %d",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
146 printf(" %d %d\n",i,j);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
147 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
148
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
149 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
150 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
151 code_upostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
152 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
153 unsigned int i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
154 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
155 printf("code_upreinc u %d %d",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
156 printf(" %d %d\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
157 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
158
d83291712bf7 test routine
kono
parents: 199
diff changeset
159 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
160 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
161 code_postinc()
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 = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
165 printf("code_postinc i %d %d",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
166 printf(" %d %d\n",i,j);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
167 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
168
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
169 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
170 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
171 code_upreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
172 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
173 unsigned int i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
174 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
175 printf("code_upreinc u %d %d",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
176 printf(" %d %d\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
177 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
178
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
179 // code_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
180 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
181 code_register_preinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
182 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
183 register int i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
184 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
185 printf("code_preinc i r %d %d",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
186 printf(" %d %d\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
187 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
188
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
189 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
190 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
191 code_register_upostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
192 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
193 register unsigned int i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
194 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
195 printf("code_upreinc u r %d %d",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
196 printf(" %d %d\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
197 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
198
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
199 // code_postinc(int e1,int e2,int dir,int sign,int sz,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
200 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
201 code_register_postinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
202 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
203 register int i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
204 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
205 printf("code_postinc i r %d %d",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
206 printf(" %d %d\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
207 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
208
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
209 // code_register_preinc(int e1,int e2,int dir,int sign,int sz,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
210 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
211 code_register_upreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
212 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
213 register unsigned int i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
214 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
215 printf("code_upreinc u r %d %d",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
216 printf(" %d %d\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
217 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
218
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
219 // code_return(int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
220
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
221
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
222 int
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
223 code_return_int0()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
224 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
225 return 1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
226 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
227 void
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
228 code_return_int()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
229 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
230 printf("code_return_int %d\n",code_return_int0());
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
231 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
232
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
233 #if FLOAT_CODE
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
234 float
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
235 code_return_float0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
236 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
237 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
238 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
239 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
240 code_return_float()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
241 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
242 printf("code_return_float %g\n",code_return_float0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
243 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
244
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
245 double
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
246 code_return_double0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
247 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
248 return 1.0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
249 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
250 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
251 code_return_double()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
252 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
253 printf("code_return_double %g\n",code_return_double0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
254 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
255
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
256 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
257
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
258 #if LONGLONG_CODE
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
259 long long
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
260 code_return_longlong0()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
261 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
262 return 10LL;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
263 }
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
264 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
265 code_return_longlong()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
266 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
267 printf("code_return_longlong %lld\n",code_return_longlong0());
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
268 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
269
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
270 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
271
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
272 struct aa { char a[100]; } a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
273 struct aa
223
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
274 code_return_struct0(/*int j*/)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
275 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
276 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
277 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
278 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
279
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
280 void
203
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
281 code_return_struct1()
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
282 {
223
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
283 int i = code_return_struct0(/*1*/).a[55];
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
284 // int i;
1ac647873577 *** empty log message ***
kono
parents: 214
diff changeset
285 // i = code_return_struct0(i).a[55];
203
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
286 printf("code_return_struct %d\n", i);
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
287 }
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
288
28baf6cd9ad1 *** empty log message ***
kono
parents: 201
diff changeset
289 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
290 code_return_struct()
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
291 {
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
292 printf("code_return_struct %d\n", code_return_struct0().a[55]);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
293 }
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
294
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
295 // code_gt(int cond)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
296
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
297 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
298 code_gt()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
299 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
300 int reg;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
301 if (i1>i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
302 printf("code_gt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
303 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
304 printf("code_gt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
305 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
306 if (0<reg && reg<3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
307 printf("reg=%d code_gt 0<reg && reg <3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
308 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
309 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
310 if (-2<reg && reg<0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
311 printf("reg=%d code_gt -2<reg && reg <0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
312 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
313
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
314 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
315
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
316 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
317 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
318 code_ugt()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
319 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
320 int reg;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
321 if (ui1>ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
322 printf("code_ugt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
323 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
324 printf("code_ugt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
325 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
326 if (0<reg && reg<3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
327 printf("reg=%d code_ugt 0<reg && reg <3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
328 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
329 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
330 if (1<reg && reg<5)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
331 printf("reg=%d code_ugt 1<reg && reg <5\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
332 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
333 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
334
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
335 // code_ge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
336 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
337 code_ge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
338 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
339 int reg;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
340 if (i1>=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
341 printf("code_ge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
342 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
343 printf("code_ge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
344 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
345 if (0<=reg && reg<=3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
346 printf("reg=%d code_ge 0<=reg && reg <=3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
347 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
348 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
349 if (-2<=reg && reg<=0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
350 printf("reg=%d code_ge -2<=reg && reg <=0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
351 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
352 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
353
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
354 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
355 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
356 code_uge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
357 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
358 unsigned reg;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
359 if (ui1>=ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
360 printf("code_uge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
361 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
362 printf("code_uge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
363 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
364 if (0<=reg && reg<=3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
365 printf("reg=%d code_uge 0<=reg && reg <=3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
366 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
367 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
368 if (1<=reg && reg<=5)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
369 printf("reg=%d code_uge 1<=reg && reg <=5\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
370 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
371 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
372
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
373 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
374 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
375 code_eq()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
376 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
377 if (ui1==ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
378 printf("code_eq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
379 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
380 printf("code_eq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
381 if (i1!=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
382 printf("code_neq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
383 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
384 printf("code_neq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
385 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
386
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
387 // code_bool(int e1)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
388
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
389 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
390 code_bool()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
391 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
392 int i1l,i2l;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
393 unsigned int ui1l,ui2l;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
394
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
395 ui2 = ui1-3;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
396 for(i2=i1-3;i2<i1+3;i2++) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
397 printf("code_bool %d>%d gvar %d\n",i1,i2,i1>i2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
398 printf("code_bool %u>%u gvar %d u\n",ui1,ui2,ui1>ui2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
399 printf("code_bool %d>=%d gvar %d\n",i1,i2,i1>=i2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
400 printf("code_bool %u>=%u gvar %d u\n",ui1,ui2,ui1>=ui2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
401 printf("code_bool %d<%d gvar %d\n",i1,i2,i1<i2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
402 printf("code_bool %u<%u gvar %d u\n",ui1,ui2,ui1<ui2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
403 printf("code_bool %d<=%d gvar %d\n",i1,i2,i1<=i2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
404 printf("code_bool %u<=%u gvar %d u\n",ui1,ui2,ui1<=ui2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
405 printf("code_bool %u==%u gvar %d u\n",ui1,ui2,ui1==ui2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
406 printf("code_bool %u!=%u gvar %d\n",i1,i2,i1!=i2);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
407 ui2++;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
408 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
409 ui1l = ui1;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
410 i1l = i1;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
411 ui2l = ui1-3;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
412 for(i2l=i1-3;i2l<i1l+3;i2l++) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
413 printf("code_bool %d>%d lvar %d\n",i1l,i2l,i1l>i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
414 printf("code_bool %u>%u lvar %d u\n",ui1l,ui2l,ui1l>ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
415 printf("code_bool %d>=%d lvar %d\n",i1l,i2l,i1l>=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
416 printf("code_bool %u>=%u lvar %d u\n",ui1l,ui2l,ui1l>=ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
417 printf("code_bool %d<%d lvar %d\n",i1l,i2l,i1l<i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
418 printf("code_bool %u<%u lvar %d u\n",ui1l,ui2l,ui1l<ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
419 printf("code_bool %d<=%d lvar %d\n",i1l,i2l,i1l<=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
420 printf("code_bool %u<=%u lvar %d u\n",ui1l,ui2l,ui1l<=ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
421 printf("code_bool %u==%u lvar %d u\n",ui1l,ui2l,ui1l==ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
422 printf("code_bool %u!=%u lvar %d\n",i1l,i2l,i1l!=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
423 ui2l++;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
424 }
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
425 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
426
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
427 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
428 code_cmp()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
429 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
430 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
431 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
432 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
433 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
434 unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
435
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
436 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
437 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
438 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
439 i1 && printf("code_bool local 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
440 s1 && printf("code_bool local 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
441 us1 && printf("code_bool local 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
442 c1 && printf("code_bool local 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
443 uc1 && printf("code_bool local 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
444
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
445 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
446 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
447 code_cmp_global()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
448 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
449 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
450 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
451 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
452 i1 && printf("code_bool global 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
453 s1 && printf("code_bool global 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
454 us1 && printf("code_bool global 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
455 c1 && printf("code_bool global 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
456 uc1 && printf("code_bool global 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
457 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
458
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
459 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
460 code_cmp_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
461 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
462 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
463 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
464 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
465 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
466 register unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
467
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
468 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
469 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
470 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
471 i1 && printf("code_bool register 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
472 s1 && printf("code_bool register 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
473 us1 && printf("code_bool register 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
474 c1 && printf("code_bool register 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
475 uc1 && printf("code_bool register 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
476
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
477 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
478
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
479
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
480 // code_string(int e1,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
481
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
482 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
483 code_string()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
484 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
485 printf("code_string test\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
486 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
487
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
488 // struct_push(int e4,int t,int arg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
489
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
490 struct aa
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
491 struct_push0(int i,struct aa a)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
492 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
493 a.a[55]++;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
494 if (i==0) {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
495 return struct_push0(1,a0);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
496 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
497 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
498 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
499
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
500 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
501 struct_push()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
502 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
503 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
504 a0 = struct_push0(0,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
505 printf("struct_push %d\n",a0.a[55]);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
506 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
507
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
508 // code_jmp(char *s)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
509 // code_indirect_jmp(int e2)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
510
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
511 // code_rindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
512 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
513 code_rindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
514 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
515 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
516 unsigned int ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
517 int *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
518 unsigned int *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
519
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
520 i1 = -555; i2= 555;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
521 ui1 = 632423423; ui2= 32394234;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
522 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
523 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
524 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
525 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
526 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
527 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
528
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
529 // code_crindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
530 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
531 code_crindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
532 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
533 char i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
534 unsigned char ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
535 char *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
536 unsigned char *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
537
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
538 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
539 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
540 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
541 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
542 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
543 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
544 printf("code_cindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
545 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
546
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
547 // code_srindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
548 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
549 code_srindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
550 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
551 short i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
552 unsigned short ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
553 short *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
554 unsigned short *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
555
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
556 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
557 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
558 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
559 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
560 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
561 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
562 printf("code_sindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
563 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
564
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
565 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
566 // code_drindirect(int e1, int offset, int d);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
567 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
568 code_drindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
569 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
570 float i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
571 double ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
572 float *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
573 double *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
574
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
575 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
576 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
577 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
578 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
579 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
580 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
581 printf("code_dindirect %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
582 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
583
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
584 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
585
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
586 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
587 // code_lrindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
588 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
589 code_lrindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
590 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
591 long long i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
592 unsigned long long ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
593 long long *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
594 unsigned long long *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
595
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
596 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
597 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
598 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
599 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
600 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
601 pui2 = &ui2;
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
602 printf("code_lrindirect %llx %llx %llx %llx\n",*pi1,*pi2,*pui1,*pui2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
603 printf("code_lrindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
604 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
605
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
606 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
607
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
608 // code_assign_gvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
609 // code_assign_lvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
610 // code_assign_register(int e2,int byte,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
611 // code_assign(int e2,int byte,int creg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
612
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
613 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
614 code_assign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
615 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
616 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
617 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
618 int *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
619 unsigned int *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
620
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
621 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
622 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
623 pi1 = &i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
624 pi2 = &i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
625 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
626 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
627
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
628 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
629 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
630 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
631 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
632
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
633 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
634 code_assign_register()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
635 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
636 int i1,i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
637 unsigned int ui1,ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
638 register int *pi1,*pi2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
639 register unsigned int *pui1,*pui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
640
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
641 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
642 ui1 = 632423423; ui2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
643 pi1 = &i1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
644 pi2 = &i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
645 pui1 = &ui1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
646 pui2 = &ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
647
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
648 *(pi2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
649 *(pui2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
650 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
651 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
652
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
653 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
654 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
655 code_register_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
656 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
657 register int i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
658 register unsigned int ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
659 int a = 3;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
660 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
661 ui1 = 632423423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
662
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
663 i1 += a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
664 printf("code_assop 1 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
665 i1 -= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
666 printf("code_assop 2 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
667 i1 /= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
668 printf("code_assop 3 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
669 i1 *= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
670 printf("code_assop 4 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
671 i1 |= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
672 printf("code_assop 5 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
673 i1 &= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
674 printf("code_assop 6 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
675 i1 ^= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
676 printf("code_assop 7 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
677 i1 <<= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
678 printf("code_assop 8 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
679 i1 >>= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
680 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
681
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
682 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
683 printf("code_assop 1 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
684 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
685 printf("code_assop 2 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
686 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
687 printf("code_assop 3 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
688 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
689 printf("code_assop 4 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
690 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
691 printf("code_assop 5 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
692 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
693 printf("code_assop 6 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
694 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
695 printf("code_assop 7 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
696 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
697 printf("code_assop 8 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
698 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
699 printf("code_assop 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
700 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
701
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
702 // code_assop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
703 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
704 code_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
705 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
706 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
707 unsigned int ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
708 int a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
709 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
710 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
711
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
712 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
713 printf("code_assop 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
714 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
715 printf("code_assop 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
716 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
717 printf("code_assop 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
718 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
719 printf("code_assop 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
720 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
721 printf("code_assop 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
722 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
723 printf("code_assop 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
724 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
725 printf("code_assop 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
726 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
727 printf("code_assop 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
728 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
729 printf("code_assop 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
730
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
731 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
732 printf("code_assop 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
733 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
734 printf("code_assop 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
735 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
736 printf("code_assop 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
737 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
738 printf("code_assop 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
739 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
740 printf("code_assop 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
741 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
742 printf("code_assop 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
743 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
744 printf("code_assop 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
745 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
746 printf("code_assop 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
747 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
748 printf("code_assop 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
749 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
750
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
751
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
752 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
753 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
754 code_register_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
755 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
756 register int i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
757 register unsigned int ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
758 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
759 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
760
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
761 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
762 printf("code_assop c 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
763 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
764 printf("code_assop c 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
765 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
766 printf("code_assop c 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
767 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
768 printf("code_assop c 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
769 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
770 printf("code_assop c 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
771 i1 &= 23244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
772 printf("code_assop c 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
773 i1 ^= 55244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
774 printf("code_assop c 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
775 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
776 printf("code_assop c 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
777 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
778 printf("code_assop c 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
779
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
780 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
781 printf("code_assop c 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
782 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
783 printf("code_assop c 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
784 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
785 printf("code_assop c 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
786 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
787 printf("code_assop c 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
788 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
789 printf("code_assop c 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
790 ui1 &= 23234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
791 printf("code_assop c 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
792 ui1 ^= 55234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
793 printf("code_assop c 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
794 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
795 printf("code_assop c 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
796 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
797 printf("code_assop c 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
798 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
799
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
800 // code_assop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
801 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
802 code_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
803 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
804 int i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
805 unsigned int ui1,ui2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
806 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
807 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
808
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
809 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
810 printf("code_assop c 1 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
811 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
812 printf("code_assop c 2 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
813 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
814 printf("code_assop c 3 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
815 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
816 printf("code_assop c 4 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
817 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
818 printf("code_assop c 5 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
819 i1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
820 printf("code_assop c 6 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
821 i1 ^= 55444234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
822 printf("code_assop c 7 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
823 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
824 printf("code_assop c 8 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
825 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
826 printf("code_assop c 9 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
827
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
828 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
829 printf("code_assop c 1 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
830 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
831 printf("code_assop c 2 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
832 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
833 printf("code_assop c 3 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
834 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
835 printf("code_assop c 4 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
836 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
837 printf("code_assop c 5 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
838 ui1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
839 printf("code_assop c 6 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
840 ui1 ^= 54234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
841 printf("code_assop c 7 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
842 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
843 printf("code_assop c 8 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
844 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
845 printf("code_assop c 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
846 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
847
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
848
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
849 // tosop(int op,int oreg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
850 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
851 tosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
852 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
853 int i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
854 unsigned int u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
855 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
856 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
857
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
858 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
859 printf("tosop 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
860 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
861 printf("tosop 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
862 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
863 printf("tosop 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
864 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
865 printf("tosop 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
866 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
867 printf("tosop 5 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
868 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
869 printf("tosop 6 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
870 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
871 printf("tosop 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
872 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
873 printf("tosop 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
874 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
875 printf("tosop 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
876 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
877 printf("tosop 10 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
878
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
879 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
880 printf("tosop 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
881 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
882 printf("tosop 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
883 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
884 printf("tosop 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
885 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
886 printf("tosop 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
887 u = u1 | u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
888 printf("tosop 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
889 u = u1 & u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
890 printf("tosop 6 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
891 u = u1 ^ u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
892 printf("tosop 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
893 u = u1 << u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
894 printf("tosop 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
895 u = u1 >> u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
896 printf("tosop 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
897 u = u1 % u2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
898 printf("tosop 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
899 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
900
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
901 // oprtc(int op,int v)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
902 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
903 oprtc()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
904 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
905 int i1,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
906 unsigned int u1,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
907 i1 = -555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
908 u1 = 632423423;
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
909
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
910 i = i1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
911 printf("oprtc 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
912 i = i1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
913 printf("oprtc 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
914 i = i1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
915 printf("oprtc 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
916 i = i1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
917 printf("oprtc 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
918 i = i1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
919 printf("oprtc 5 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
920 i = i1 & 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
921 printf("oprtc 6 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
922 i = i1 ^ 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
923 printf("oprtc 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
924 i = i1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
925 printf("oprtc 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
926 i = i1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
927 printf("oprtc 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
928 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
929 printf("oprtc 10 %d\n",i);
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
930
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
931 u = u1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
932 printf("oprtc 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
933 u = u1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
934 printf("oprtc 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
935 u = u1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
936 printf("oprtc 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
937 u = u1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
938 printf("oprtc 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
939 u = u1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
940 printf("oprtc 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
941 u = u1 & 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
942 printf("oprtc 6 %u\n",u);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
943 u = u1 ^ 234234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
944 printf("oprtc 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
945 u = u1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
946 printf("oprtc 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
947 u = u1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
948 printf("oprtc 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
949 u = u1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
950 printf("oprtc 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
951 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
952
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
953
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
954 // tosop(int op,int oreg)
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
955 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
956 register_tosop()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
957 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
958 register int i1,i2,i;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
959 register unsigned int u1,u2,u;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
960 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
961 u1 = 632423423; u2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
962
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
963 i = i1 + i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
964 printf("tosop r 1 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
965 i = i1 - i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
966 printf("tosop r 2 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
967 i = i1 / i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
968 printf("tosop r 3 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
969 i = i1 * i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
970 printf("tosop r 4 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
971 i = i1 | i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
972 printf("tosop r 5 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
973 i = i1 & i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
974 printf("tosop r 6 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
975 i = i1 ^ i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
976 printf("tosop r 7 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
977 i = i1 << i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
978 printf("tosop r 8 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
979 i = i1 >> i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
980 printf("tosop r 9 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
981 i = i1 % i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
982 printf("tosop r 10 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
983
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
984 u = u1 + u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
985 printf("tosop r 1 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
986 u = u1 - u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
987 printf("tosop r 2 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
988 u = u1 / u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
989 printf("tosop r 3 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
990 u = u1 * u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
991 printf("tosop r 4 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
992 u = u1 | u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
993 printf("tosop r 5 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
994 u = u1 & u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
995 printf("tosop r 6 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
996 u = u1 ^ u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
997 printf("tosop r 7 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
998 u = u1 << u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
999 printf("tosop r 8 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1000 u = u1 >> u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1001 printf("tosop r 9 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1002 u = u1 % u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1003 printf("tosop r 10 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1004 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1005
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1006 // oprtc(int op,int v)
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1007 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1008 register_oprtc()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1009 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1010 register int i1,i;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1011 register unsigned int u1,u;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1012 i1 = -555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1013 u1 = 632423423;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1014
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1015 i = i1 + 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1016 printf("oprtc r 1 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1017 i = i1 - 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1018 printf("oprtc r 2 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1019 i = i1 / 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1020 printf("oprtc r 3 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1021 i = i1 * 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1022 printf("oprtc r 4 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1023 i = i1 | 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1024 printf("oprtc r 5 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1025 i = i1 & 23234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1026 printf("oprtc r 6 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1027 i = i1 ^ 23234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1028 printf("oprtc r 7 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1029 i = i1 << 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1030 printf("oprtc r 8 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1031 i = i1 >> 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1032 printf("oprtc r 9 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1033 i = i1 % 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1034 printf("oprtc r 10 %d\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1035
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1036 u = u1 + 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1037 printf("oprtc r 1 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1038 u = u1 - 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1039 printf("oprtc r 2 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1040 u = u1 / 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1041 printf("oprtc r 3 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1042 u = u1 * 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1043 printf("oprtc r 4 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1044 u = u1 | 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1045 printf("oprtc r 5 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1046 u = u1 & 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1047 printf("oprtc r 6 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1048 u = u1 ^ 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1049 printf("oprtc r 7 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1050 u = u1 << 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1051 printf("oprtc r 8 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1052 u = u1 >> 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1053 printf("oprtc r 9 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1054 u = u1 % 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1055 printf("oprtc r 10 %u\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1056 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1057
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1058
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1059 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1060 // code_cmp_dregister(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1061 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1062 code_cmp_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1063 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1064 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1065 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1066 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1067 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1068 f0 && printf("code_bool register 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1069 d0 && printf("code_bool register 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1070
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1071 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1072
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1073 // code_dregister(int e2,int freg,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1074 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1075 code_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1076 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1077 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1078 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1079 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1080 d0 = 10; d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1081 printf("code_lvar float r %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1082 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1083
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1084 // code_dassign_gvar(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1085 // code_dassign_lvar(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1086 // code_dassign_dregister(int e2,int d,int freg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1087
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1088 // code_dassign(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1089 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1090 code_dassign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1091 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1092 int i1,i2;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1093 float f1,f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1094 double ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1095 float *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1096 double *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1097
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1098 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1099 f1 = -555; f2= 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1100 ui1 = 632423423; ui2= 32394234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1101 pi1 = &f1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1102 pi2 = &f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1103 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1104 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1105
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1106 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1107 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1108 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1109 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1110
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1111 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1112 code_register_dassign()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1113 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1114 int i1,i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1115 float f1,f2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1116 double ui1,ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1117 register float *pi1,*pi2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1118 register double *pui1,*pui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1119
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1120 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1121 f1 = -555; f2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1122 ui1 = 632423423; ui2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1123 pi1 = &f1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1124 pi2 = &f2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1125 pui1 = &ui1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1126 pui2 = &ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1127
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1128 *(pi2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1129 *(pui2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1130 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1131 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1132
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1133 // code_dconst(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1134 // code_dneg(int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1135 // code_dneg(int creg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1136 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1137 code_dneg()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1138 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1139 float i,j;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1140 double di,dj;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1141 i = 123123123;j = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1142 di = 123123123;dj = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1143 printf("code_dneg %g %g\n",-i,-j);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1144 printf("code_dneg %g %g\n",-di,-dj);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1145 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1146
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1147 // code_d2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1148 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1149 code_d2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1150 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1151 double d,z;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1152 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1153 d = 0.1;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1154 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1155 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1156 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1157 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1158 // code_i2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1159 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1160 code_i2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1161 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1162 double d;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1163 int i,z;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1164 i = 242342342;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1165 z = -1;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1166 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1167 printf("code_i2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1168 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1169 // code_d2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1170 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1171 code_d2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1172 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1173 double d,z;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1174 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1175 d = 0.1;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1176 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1177 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1178 printf("code_d2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1179 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1180 // code_u2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1181 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1182 code_u2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1183 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1184 double d;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1185 unsigned int i,z;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1186 i = 242342342;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1187 z = 3;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1188 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1189 printf("code_u2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1190 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1191 // code_f2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1192 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1193 code_f2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1194 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1195 float d,z;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1196 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1197 d = 0.1;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1198 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1199 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1200 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1201 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1202 // code_i2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1203 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1204 code_i2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1205 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1206 float d;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1207 int i,z;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1208 i = 24234342;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1209 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1210 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1211 printf("code_i2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1212 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1213 // code_f2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1214 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1215 code_f2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1216 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1217 float d,z;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1218 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1219 d = 0.1;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1220 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1221 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1222 printf("code_f2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1223 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1224 // code_u2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1225 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1226 code_u2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1227 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1228 float d;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1229 unsigned int i,z;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1230 i = 242342342;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1231 z = 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1232 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1233 printf("code_u2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1234 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1235
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1236
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1237 // code_drgvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1238 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1239 code_dgvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1240 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1241 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1242 d0 = 10; d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1243 printf("code_gvar float 1 %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1244 s_f0 = 0.0; s_f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1245 s_d0 = 10; s_d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1246 printf("code_gvar float 2 %f %f %g %g\n",s_f0,s_f1,s_d0,s_d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1247 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1248
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1249 // code_drlvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1250 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1251 code_dlvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1252 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1253 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1254 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1255 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1256 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1257 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1258 printf("code_bool > lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1259 f0>f1,f0>=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1260 printf("code_bool > lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1261 d0>d1,d0>=d1,d0==d1,d0!=d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1262 printf("code_bool < lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1263 f0<f1,f0<=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1264 printf("code_bool < lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1265 d0<d1,d0<=d1,d0==d1,d0!=d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1266 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1267
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1268
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1269 // code_cmp_drgvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1270 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1271 code_cmp_d_global()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1272 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1273 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1274 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1275 f0 && printf("code_bool global 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1276 d0 && printf("code_bool global 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1277 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1278
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1279
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1280 // code_cmp_drlvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1281 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1282 code_cmp_d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1283 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1284 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1285 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1286 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1287 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1288 f0 && printf("code_bool local 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1289 d0 && printf("code_bool local 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1290 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1291
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1292 // dtosop(int op,int e1)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1293 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1294 dtosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1295 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1296 double i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1297 float u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1298 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1299 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1300
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1301 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1302 printf("dtosop 1 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1303 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1304 printf("dtosop 2 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1305 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1306 printf("dtosop 3 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1307 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1308 printf("dtosop 4 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1309 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1310 printf("dtosop 1 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1311 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1312 printf("dtosop 2 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1313 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1314 printf("dtosop 3 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1315 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1316 printf("dtosop 4 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1317 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1318
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1319
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1320 // dtosop(int op,int e1)
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1321 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1322 dtosop_register()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1323 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1324 register double i1,i2,i;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1325 register float u1,u2,u;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1326 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1327 u1 = 632423423; u2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1328
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1329 i = i1 + i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1330 printf("dtosop 1 %g\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1331 i = i1 - i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1332 printf("dtosop 2 %g\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1333 i = i1 / i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1334 printf("dtosop 3 %g\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1335 i = i1 * i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1336 printf("dtosop 4 %g\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1337 u = u1 + u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1338 printf("dtosop 1 %g\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1339 u = u1 - u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1340 printf("dtosop 2 %g\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1341 u = u1 / u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1342 printf("dtosop 3 %g\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1343 u = u1 * u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1344 printf("dtosop 4 %g\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1345 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1346
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1347
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1348 // code_dassop(int op,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1349 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1350 code_dassop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1351 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1352 double i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1353 float ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1354 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1355 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1356
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1357 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1358 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1359 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1360 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1361 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1362 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1363 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1364 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1365
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1366 ui1 += 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1367 printf("code_dassop f 1 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1368 ui1 -= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1369 printf("code_dassop f 2 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1370 ui1 /= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1371 printf("code_dassop f 3 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1372 ui1 *= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1373 printf("code_dassop f 4 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1374 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1375
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1376 // code_dassop(int op,int d)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1377 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1378 code_register_dassop()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1379 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1380 register double i1,i2;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1381 register float ui1,ui2;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1382 i1 = -555; i2= 555;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1383 ui1 = 632423423; ui2= 32394234;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1384
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1385 i1 += 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1386 printf("code_dassop r 1 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1387 i1 -= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1388 printf("code_dassop r 2 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1389 i1 /= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1390 printf("code_dassop r 3 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1391 i1 *= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1392 printf("code_dassop r 4 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1393
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1394 ui1 += 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1395 printf("code_dassop f r 1 %g\n",ui1);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1396 ui1 -= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1397 printf("code_dassop f r 2 %g\n",ui1);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1398 ui1 /= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1399 printf("code_dassop f r 3 %g\n",ui1);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1400 ui1 *= 3;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1401 printf("code_dassop f r 4 %g\n",ui1);
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1402 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1403
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1404
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1405 // code_dpreinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1406 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1407 code_dpreinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1408 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1409 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1410 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1411 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1412 printf("code_dpreinc d %g %g",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1413 printf(" %g %g\n",i,j);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1414 ui = 123123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1415 printf("code_dpreinc f %g %g",++ui,--uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1416 printf(" %g %g\n",ui,uj);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1417 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1418
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1419 // code_dpostinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1420 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1421 code_dpostinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1422 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1423 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1424 float ui,uj;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1425 i = 123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1426 printf("code_dpostinc d %g %g",i--,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1427 printf(" %g %g\n",i,j);
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1428 ui = 123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1429 printf("code_dpostinc f %g %g",ui++,uj--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1430 printf(" %g %g\n",ui,uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1431 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1432
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1433 // code_dpreinc(int e1,int e2,int d,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1434 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1435 code_register_dpreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1436 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1437 register double i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1438 register float ui,uj;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1439 i = 123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1440 printf("code_dpreinc r d %g %g",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1441 printf(" %g %g\n",i,j);
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1442 ui = 123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1443 printf("code_dpreinc r f %g %g",++ui,--uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1444 printf(" %g %g\n",ui,uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1445 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1446
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1447 // code_dpostinc(int e1,int e2,int d,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1448 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1449 code_register_dpostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1450 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1451 register double i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1452 register float ui,uj;
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1453 i = 123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1454 printf("code_dpostinc r d %g %g",i--,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1455 printf(" %g %g\n",i,j);
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1456 ui = 123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1457 printf("code_dpostinc r f %g %g",ui++,uj--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1458 printf(" %g %g\n",ui,uj);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1459 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1460
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1461 // drexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1462
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1463 // case DOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1464 // case FOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1465 // case DOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1466 // case FOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1467 // case DOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1468 // case FOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1469 // case DOP+NEQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1470 // case FOP+NEQ:
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1471 // code_gt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1472
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1473 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1474 code_dgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1475 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1476 double reg;
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1477 if (d0>d1)
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1478 printf("code_dgt 1\n");
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1479 else
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1480 printf("code_dgt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1481 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1482 if (0<reg && reg<3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1483 printf("reg=%g code_dgt 0<reg && reg <3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1484 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1485 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1486 if (-2<reg && reg<0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1487 printf("reg=%g code_dgt -2<reg && reg <0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1488 }
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1489 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1490
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1491 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1492 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1493 code_fgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1494 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1495 float reg;
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1496 if (f0>f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1497 printf("code_fgt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1498 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1499 printf("code_fgt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1500 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1501 if (0<reg && reg<3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1502 printf("reg=%g code_fgt 0<reg && reg <3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1503 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1504 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1505 if (-2<reg && reg<0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1506 printf("reg=%g code_fgt -2<reg && reg <0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1507 }
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1508 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1509
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1510 // code_ge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1511 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1512 code_dge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1513 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1514 double reg;
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1515 if (d0>=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1516 printf("code_dge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1517 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1518 printf("code_dge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1519 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1520 if (0<=reg && reg<=3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1521 printf("reg=%g code_dge 0<reg && reg <=3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1522 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1523 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1524 if (-2<=reg && reg<=0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1525 printf("reg=%g code_dge -2<reg && reg <=0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1526 }
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1527 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1528
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1529 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1530 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1531 code_fge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1532 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1533 float reg;
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1534 if (f0>=f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1535 printf("code_fge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1536 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1537 printf("code_fge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1538 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1539 if (0<=reg && reg<=3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1540 printf("reg=%g code_fge 0<=reg && reg <=3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1541 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1542 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1543 if (-2<=reg && reg<=0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1544 printf("reg=%g code_fge -2<=reg && reg <=0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
1545 }
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1546 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1547
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1548 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1549 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1550 code_deq()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1551 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1552 if (f0==f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1553 printf("code_feq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1554 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1555 printf("code_feq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1556 if (d0!=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1557 printf("code_deq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1558 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1559 printf("code_deq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1560 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1561
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1562 // code_dbool(int e1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1563
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1564 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1565 code_dbool()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1566 {
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1567 float i1l,i2l;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1568 double ui1l,ui2l;
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1569
288
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1570 d1 = d0-3;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1571 for(f1=f0-3;f1<f0+3;f1++) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1572 printf("code_dbool %g>%g gvar %d\n",f0,f1,f0>f1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1573 printf("code_dbool %g>%g gvar %d d\n",d0,d1,d0>d1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1574 printf("code_dbool %g>=%g gvar %d\n",f0,f1,f0>=f1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1575 printf("code_dbool %g>=%g gvar %d d\n",d0,d1,d0>=d1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1576 printf("code_dbool %g<%g gvar %d\n",f0,f1,f0<f1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1577 printf("code_dbool %g<%g gvar %d d\n",d0,d1,d0<d1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1578 printf("code_dbool %g<=%g gvar %d\n",f0,f1,f0<=f1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1579 printf("code_dbool %g<=%g gvar %d d\n",d0,d1,d0<=d1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1580 printf("code_dbool %g==%g gvar %d d\n",d0,d1,d0==d1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1581 printf("code_dbool %g!=%g gvar %d\n",f0,f1,f0!=f1);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1582 d1++;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1583 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1584 ui1l = d0;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1585 i1l = f0;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1586 ui2l = d0-3;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1587 for(i2l=f0-3;i2l<i1l+3;i2l++) {
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1588 printf("code_dbool %g>%g lvar %d\n",i1l,i2l,i1l>i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1589 printf("code_dbool %g>%g lvar %d d\n",ui1l,ui2l,ui1l>ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1590 printf("code_dbool %g>=%g lvar %d\n",i1l,i2l,i1l>=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1591 printf("code_dbool %g>=%g lvar %d d\n",ui1l,ui2l,ui1l>=ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1592 printf("code_dbool %g<%g lvar %d\n",i1l,i2l,i1l<i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1593 printf("code_dbool %g<%g lvar %d d\n",ui1l,ui2l,ui1l<ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1594 printf("code_dbool %g<=%g lvar %d\n",i1l,i2l,i1l<=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1595 printf("code_dbool %g<=%g lvar %d d\n",ui1l,ui2l,ui1l<=ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1596 printf("code_dbool %g==%g lvar %d d\n",ui1l,ui2l,ui1l==ui2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1597 printf("code_dbool %g!=%g lvar %d\n",i1l,i2l,i1l!=i2l);
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1598 ui2l++;
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1599 }
ce7b4d90bc24 PowerPC code bool
kono
parents: 280
diff changeset
1600 }
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1601
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1602 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1603
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1604
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1605 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1606 // lrexpr(int e1, int e2,int l1, int op)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1607 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1608 code_lbool()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1609 {
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1610 long long l0l,l1l;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1611 unsigned long long ul0l,ul1l;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1612
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1613 printf("code_bool > long long %d %d %d %d %d %d\n",
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1614 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1615 printf("code_bool < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1616 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
276
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1617
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1618 l0l=l1l=l0;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1619 ul0l=ul1l=ul0;
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1620
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1621 printf("code_bool eq > long long %d %d %d %d %d %d\n",
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1622 l1l>l0l,ul1l>ul0l,l1l>=l0l,ul1l>=ul0l,ul1l==ul0l,l1l!=l0l);
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1623 printf("code_bool eq < long long %d %d %d %d %d %d\n",
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1624 l1l<l0l,ul1l<ul0l,l1l<=l0l,ul1l<=ul0l,ul1l==ul0l,l1l!=l0l);
ebaec1ae566e MIPS double/longlong lib operand register conflict
kono
parents: 275
diff changeset
1625
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1626 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1627
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1628 // int lpop_register()
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1629 // code_lregister(int e2,int reg)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1630 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1631 code_lregister()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1632 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1633 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1634 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1635 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1636 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1637 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1638 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1639 printf("code_lvar long long %llu %llu %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1640 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1641
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1642 // code_cmp_lregister(int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1643 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1644 code_cmp_lregister()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1645 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1646 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1647 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1648 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1649 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1650 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1651 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1652 l0 && printf("code_bool register 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1653 ul0 && printf("code_bool register 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1654 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1655
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1656 // code_cmp_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1657 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1658 code_cmp_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1659 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1660 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1661 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1662 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1663 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1664 l0 && printf("code_bool global 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1665 ul0 && printf("code_bool global 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1666 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1667 // code_cmp_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1668 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1669 code_cmp_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1670 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1671 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1672 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1673 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1674 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1675 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1676 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1677 l0 && printf("code_bool local 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1678 ul0 && printf("code_bool local 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1679 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1680
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1681 // code_lassign(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1682 // code_lassign_gvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1683 // code_lassign_lvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1684 // code_lassign_lregister(int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1685 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1686 code_lassign()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1687 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1688 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1689 unsigned long long ui1,ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1690 long long *pi1,*pi2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1691 unsigned long long *pui1,*pui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1692
d83291712bf7 test routine
kono
parents: 199
diff changeset
1693 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1694 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1695 pi1 = &i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1696 pi2 = &i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1697 pui1 = &ui1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1698 pui2 = &ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1699
d83291712bf7 test routine
kono
parents: 199
diff changeset
1700 *(pi2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1701 *(pui2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1702 printf("code_rindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1703 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1704
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1705 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1706 code_lassign_register()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1707 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1708 long long i1,i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1709 unsigned long long ui1,ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1710 register long long *pi1,*pi2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1711 register unsigned long long *pui1,*pui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1712
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1713 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1714 ui1 = 632423423; ui2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1715 pi1 = &i1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1716 pi2 = &i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1717 pui1 = &ui1;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1718 pui2 = &ui2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1719
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1720 *(pi2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1721 *(pui2+i1+i2) = 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1722 printf("code_rindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1723 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1724
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1725 // code_lconst(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1726 // code_lneg(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1727 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1728 code_lneg()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1729 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1730 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1731 i = 123123123;j = -32423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1732 printf("code_neg %lld %lld\n",-i,-j);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1733 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1734
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1735 // code_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1736 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1737 code_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1738 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1739 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1740 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1741 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1742 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1743 printf("code_lrgvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1744 s_l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1745 s_l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1746 s_ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1747 s_ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1748 printf("code_lrgvar long long %lld %lld %llu %llu\n",s_l0,s_l1,s_ul0,s_ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1749 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1750
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1751 // code_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1752 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1753 code_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1754 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1755 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1756 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1757 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1758 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1759 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1760 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1761 printf("code_lvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1762 printf("code_bool lvar > long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1763 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1764 printf("code_bool lvar < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1765 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1766 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1767
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1768 // ltosop(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1769 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1770 ltosop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1771 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1772 long long i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1773 unsigned long long u1,u2,u;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1774 int ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1775 unsigned int uu2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1776 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1777 u1 = 632423423; u2= 32394234;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1778 ii2 = -33;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1779 uu2 = 33;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1780 u = 0;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1781
d83291712bf7 test routine
kono
parents: 199
diff changeset
1782 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1783 printf("ltosop 1 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1784 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1785 printf("ltosop 2 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1786 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1787 printf("ltosop 3 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1788 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1789 printf("ltosop 4 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1790 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1791 printf("ltosop 5 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1792 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1793 printf("ltosop 6 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1794 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1795 printf("ltosop 7 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1796 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1797 printf("ltosop 8 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1798 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1799 printf("ltosop 9 %lld\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1800 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1801 printf("ltosop 10 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1802
d83291712bf7 test routine
kono
parents: 199
diff changeset
1803 u = u1 + u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1804 printf("ltosop u 1 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1805 u = u1 - u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1806 printf("ltosop u 2 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1807 u = u1 / u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1808 printf("ltosop u 3 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1809 u = u1 * u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1810 printf("ltosop u 4 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1811 u = u1 | u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1812 printf("ltosop u 5 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1813 u = u1 & u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1814 printf("ltosop u 6 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1815 u = u1 ^ u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1816 printf("ltosop u 7 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1817 u = u1 << u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1818 printf("ltosop u 8 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1819 u = u1 >> u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1820 printf("ltosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1821 u = u1 % u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1822 printf("ltosop u 10 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1823
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1824 i = i1 + ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1825 printf("litosop 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1826 i = i1 - ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1827 printf("litosop 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1828 i = i1 / ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1829 printf("litosop 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1830 i = i1 * ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1831 printf("litosop 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1832 i = i1 | ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1833 printf("litosop 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1834 i = i1 & ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1835 printf("litosop 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1836 i = i1 ^ ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1837 printf("litosop 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1838 i = i1 << ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1839 printf("litosop 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1840 i = i1 >> ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1841 printf("litosop 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1842 i = i1 % ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1843 printf("litosop 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1844
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1845 u = u1 + uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1846 printf("litosop u 1 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1847 u = u1 - uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1848 printf("litosop u 2 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1849 u = u1 / uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1850 printf("litosop u 3 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1851 u = u1 * uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1852 printf("litosop u 4 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1853 u = u1 | uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1854 printf("litosop u 5 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1855 u = u1 & uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1856 printf("litosop u 6 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1857 u = u1 ^ uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1858 printf("litosop u 7 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1859 u = u1 << uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1860 printf("litosop u 8 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1861 u = u1 >> uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1862 printf("litosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1863 u = u1 % uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1864 printf("litosop u 10 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1865 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1866
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1867 // loprtc(int op,int v)
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1868 void
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1869 loprtc()
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1870 {
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1871 long long i1,i;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1872 unsigned long long u1,u;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1873 i1 = -555;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1874 u1 = 632423423;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1875
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1876 i = i1 + 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1877 printf("loprtc 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1878 i = i1 - 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1879 printf("loprtc 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1880 i = i1 / 32323423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1881 printf("loprtc 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1882 i = i1 * 323423423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1883 printf("loprtc 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1884 i = i1 | 234234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1885 printf("loprtc 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1886 i = i1 & 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1887 printf("loprtc 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1888 i = i1 ^ 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1889 printf("loprtc 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1890 i = i1 << 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1891 printf("loprtc 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1892 i = i1 >> 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1893 printf("loprtc 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1894 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1895 printf("loprtc 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1896
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1897 u = u1 + 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1898 printf("loprtc 1 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1899 u = u1 - 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1900 printf("loprtc 2 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1901 u = u1 / 32342342344234LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1902 printf("loprtc 3 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1903 u = u1 * 243234234232324LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1904 printf("loprtc 4 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1905 u = u1 | 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1906 printf("loprtc 5 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1907 u = u1 & 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1908 printf("loprtc 6 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1909 u = u1 ^ 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1910 printf("loprtc 7 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1911 u = u1 << 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1912 printf("loprtc 8 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1913 u = u1 >> 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1914 printf("loprtc 9 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1915 u = u1 % 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1916 printf("loprtc 10 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1917 }
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1918
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1919
274
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1920 // ltosop(int e1,int e2)
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1921 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1922 ltosop_register()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1923 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1924 register long long i1,i2,i;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1925 register unsigned long long u1,u2,u;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1926 register int ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1927 register unsigned int uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1928 i1 = -555; i2= 555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1929 u1 = 632423423; u2= 32394234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1930 ii2 = -33;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1931 uu2 = 33;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1932 u = 0;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1933
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1934 i = i1 + i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1935 printf("ltosop r 1 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1936 i = i1 - i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1937 printf("ltosop r 2 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1938 i = i1 / i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1939 printf("ltosop r 3 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1940 i = i1 * i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1941 printf("ltosop r 4 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1942 i = i1 | i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1943 printf("ltosop r 5 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1944 i = i1 & i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1945 printf("ltosop r 6 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1946 i = i1 ^ i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1947 printf("ltosop r 7 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1948 i = i1 << i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1949 printf("ltosop r 8 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1950 i = i1 >> i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1951 printf("ltosop r 9 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1952 i = i1 % i2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1953 printf("ltosop r 10 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1954
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1955 u = u1 + u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1956 printf("ltosop r u 1 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1957 u = u1 - u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1958 printf("ltosop r u 2 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1959 u = u1 / u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1960 printf("ltosop r u 3 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1961 u = u1 * u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1962 printf("ltosop r u 4 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1963 u = u1 | u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1964 printf("ltosop r u 5 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1965 u = u1 & u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1966 printf("ltosop r u 6 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1967 u = u1 ^ u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1968 printf("ltosop r u 7 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1969 u = u1 << u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1970 printf("ltosop r u 8 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1971 u = u1 >> u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1972 printf("ltosop r u 9 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1973 u = u1 % u2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1974 printf("ltosop r u 10 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1975
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1976 i = i1 + ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1977 printf("litosop r 1 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1978 i = i1 - ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1979 printf("litosop r 2 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1980 i = i1 / ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1981 printf("litosop r 3 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1982 i = i1 * ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1983 printf("litosop r 4 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1984 i = i1 | ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1985 printf("litosop r 5 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1986 i = i1 & ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1987 printf("litosop r 6 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1988 i = i1 ^ ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1989 printf("litosop r 7 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1990 i = i1 << ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1991 printf("litosop r 8 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1992 i = i1 >> ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1993 printf("litosop r 9 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1994 i = i1 % ii2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1995 printf("litosop r 10 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1996
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1997 u = u1 + uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1998 printf("litosop r u 1 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
1999 u = u1 - uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2000 printf("litosop r u 2 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2001 u = u1 / uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2002 printf("litosop r u 3 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2003 u = u1 * uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2004 printf("litosop r u 4 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2005 u = u1 | uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2006 printf("litosop r u 5 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2007 u = u1 & uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2008 printf("litosop r u 6 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2009 u = u1 ^ uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2010 printf("litosop r u 7 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2011 u = u1 << uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2012 printf("litosop r u 8 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2013 u = u1 >> uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2014 printf("litosop r u 9 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2015 u = u1 % uu2;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2016 printf("litosop r u 10 %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2017 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2018
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2019 // loprtc(int op,int v)
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2020 void
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2021 loprtc_register()
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2022 {
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2023 register long long i1,i;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2024 register unsigned long long u1,u;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2025 i1 = -555;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2026 u1 = 632423423;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2027
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2028 i = i1 + 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2029 printf("loprtc r 1 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2030 i = i1 - 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2031 printf("loprtc r 2 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2032 i = i1 / 32323423423LL;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2033 printf("loprtc r 3 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2034 i = i1 * 323423423423LL;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2035 printf("loprtc r 4 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2036 i = i1 | 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2037 printf("loprtc r 5 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2038 i = i1 & 23234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2039 printf("loprtc r 6 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2040 i = i1 ^ 23234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2041 printf("loprtc r 7 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2042 i = i1 << 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2043 printf("loprtc r 8 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2044 i = i1 >> 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2045 printf("loprtc r 9 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2046 i = i1 % 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2047 printf("loprtc r 10 %lld\n",i);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2048
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2049 u = u1 + 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2050 printf("loprtc r 1 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2051 u = u1 - 3;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2052 printf("loprtc r 2 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2053 u = u1 / 32342342344234LL;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2054 printf("loprtc r 3 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2055 u = u1 * 243234234232324LL;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2056 printf("loprtc r 4 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2057 u = u1 | 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2058 printf("loprtc r 5 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2059 u = u1 & 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2060 printf("loprtc r 6 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2061 u = u1 ^ 234234234;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2062 printf("loprtc r 7 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2063 u = u1 << 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2064 printf("loprtc r 8 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2065 u = u1 >> 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2066 printf("loprtc r 9 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2067 u = u1 % 5;
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2068 printf("loprtc r 10 u %llu\n",u);
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2069 }
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2070
3ae68af07fce MIPS code-gen-all passed.
kono
parents: 273
diff changeset
2071
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2072 // code_i2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2073 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2074 code_i2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2075 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2076 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2077 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2078 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2079 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2080 printf("code_i2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2081 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2082 // code_i2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2083 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2084 code_i2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2085 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2086 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2087 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2088 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2089 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2090 printf("code_i2ull %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2091 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2092 // code_u2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2093 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2094 code_u2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2095 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2096 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2097 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2098 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2099 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2100 printf("code_u2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2101 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2102 // code_u2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2103 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2104 code_u2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2105 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2106 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2107 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2108 i = 23342342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2109 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2110 printf("code_u2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2111 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2112 // code_ll2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2113 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2114 code_ll2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2115 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2116 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2117 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2118 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2119 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2120 printf("code_ll2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2121 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2122 // code_ll2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2123 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2124 code_ll2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2125 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2126 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2127 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2128 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2129 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2130 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2131 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2132 // code_ull2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2133 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2134 code_ull2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2135 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2136 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2137 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2138 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2139 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2140 printf("code_ull2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2141 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2142 // code_ull2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2143 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2144 code_ull2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2145 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2146 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2147 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2148 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2149 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2150 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2151 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2152 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2153 // code_d2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2154 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2155 code_d2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2156 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2157 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2158 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2159 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2160 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2161 printf("code_d2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
2162 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2163 // code_d2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2164 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2165 code_d2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2166 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2167 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2168 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2169 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2170 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2171 printf("code_d2ll %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2172 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2173 // code_f2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2174 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2175 code_f2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2176 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2177 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2178 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2179 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2180 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2181 printf("code_f2ll %lld\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2182 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2183 // code_f2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2184 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2185 code_f2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2186 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2187 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2188 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2189 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2190 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2191 printf("code_f2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2192 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2193 // code_ll2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2194 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2195 code_ll2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2196 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2197 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2198 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2199 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2200 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2201 printf("code_ll2d %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2202 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2203 // code_ll2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2204 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2205 code_ll2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2206 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2207 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2208 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2209 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2210 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2211 printf("code_ll2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2212 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2213 // code_ull2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2214 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2215 code_ull2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2216 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2217 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2218 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2219 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2220 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2221 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2222 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2223 // code_ull2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2224 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2225 code_ull2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2226 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2227 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2228 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2229 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2230 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
2231 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2232 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2233 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2234
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2235 // code_lpreinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2236 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
2237 code_lpreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2238 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2239 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2240 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2241 printf("code_preinc l %lld %lld",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2242 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2243 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2244
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2245 // code_lpostinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2246 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
2247 code_lpostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2248 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2249 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2250 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2251 printf("code_postinc l %lld %lld",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2252 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2253 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2254
d83291712bf7 test routine
kono
parents: 199
diff changeset
2255 // code_lpreinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2256 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
2257 code_lupreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2258 {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2259 register unsigned long long i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2260 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2261 printf("code_preinc l %llu %llu",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2262 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2263 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2264
d83291712bf7 test routine
kono
parents: 199
diff changeset
2265 // code_lpostinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2266 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
2267 code_lupostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2268 {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2269 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2270 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2271 printf("code_postinc lu %llu %llu",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2272 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2273 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2274
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2275 // code_lpreinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2276 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2277 code_register_lpreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2278 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2279 register long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2280 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2281 printf("code_preinc l r %lld %lld",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2282 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2283 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2284
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2285 // code_lpostinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2286 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2287 code_register_lpostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2288 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2289 register long long i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2290 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2291 printf("code_postinc l r %lld %lld",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2292 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2293 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2294
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2295 // code_lpreinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2296 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2297 code_register_lupreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2298 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2299 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2300 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2301 printf("code_preinc l r %llu %llu",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2302 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2303 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2304
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2305 // code_lpostinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2306 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2307 code_register_lupostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2308 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2309 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2310 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2311 printf("code_postinc lu r %llu %llu",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
2312 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2313 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2314
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2315 // code_lassop(int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2316
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2317 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2318 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2319 code_register_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2320 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2321 register long long i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2322 register unsigned long long ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2323 long long a = 3;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2324 i1 = -555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2325 ui1 = 632423423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2326
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2327 i1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2328 printf("code_register_lassop 1 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2329 i1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2330 printf("code_register_lassop 2 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2331 i1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2332 printf("code_register_lassop 3 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2333 i1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2334 printf("code_register_lassop 4 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2335 i1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2336 printf("code_register_lassop 5 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2337 i1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2338 printf("code_register_lassop 6 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2339 i1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2340 printf("code_register_lassop 7 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2341 i1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2342 printf("code_register_lassop 8 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2343 i1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2344 printf("code_register_lassop 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2345
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2346 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2347 printf("code_register_lassop 1 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2348 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2349 printf("code_register_lassop 2 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2350 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2351 printf("code_register_lassop 3 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2352 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2353 printf("code_register_lassop 4 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2354 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2355 printf("code_register_lassop 5 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2356 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2357 printf("code_register_lassop 6 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2358 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2359 printf("code_register_lassop 7 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2360 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2361 printf("code_register_lassop 8 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2362 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2363 printf("code_register_lassop 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2364 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2365
d83291712bf7 test routine
kono
parents: 199
diff changeset
2366 // code_lassop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2367 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2368 code_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
2369 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2370 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2371 unsigned long long ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2372 long long a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2373 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2374 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2375
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2376 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2377 printf("code_lassop 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2378 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2379 printf("code_lassop 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2380 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2381 printf("code_lassop 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2382 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2383 printf("code_lassop 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2384 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2385 printf("code_lassop 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2386 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2387 printf("code_lassop 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2388 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2389 printf("code_lassop 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2390 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2391 printf("code_lassop 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2392 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2393 printf("code_lassop 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2394
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2395 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2396 printf("code_lassop 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2397 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2398 printf("code_lassop 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2399 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2400 printf("code_lassop 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2401 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2402 printf("code_lassop 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2403 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2404 printf("code_lassop 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2405 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2406 printf("code_lassop 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2407 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2408 printf("code_lassop 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2409 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2410 printf("code_lassop 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2411 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2412 printf("code_lassop 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2413 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2414
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2415 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2416 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2417 code_register_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2418 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2419 register long long i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2420 register unsigned long long ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2421 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2422 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2423
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2424 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2425 printf("code_register_lassop c 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2426 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2427 printf("code_register_lassop c 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2428 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2429 printf("code_register_lassop c 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2430 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2431 printf("code_register_lassop c 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2432 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2433 printf("code_register_lassop c 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2434 i1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2435 printf("code_register_lassop c 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2436 i1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2437 printf("code_register_lassop c 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2438 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2439 printf("code_register_lassop c 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2440 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2441 printf("code_register_lassop c 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2442
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2443 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2444 printf("code_register_lassop c 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2445 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2446 printf("code_register_lassop c 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2447 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2448 printf("code_register_lassop c 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2449 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2450 printf("code_register_lassop c 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2451 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2452 printf("code_register_lassop c 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2453 ui1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2454 printf("code_register_lassop c 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2455 ui1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2456 printf("code_register_lassop c 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2457 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2458 printf("code_register_lassop c 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2459 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2460 printf("code_register_lassop c 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2461 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2462
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2463 // code_lassop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2464 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2465 code_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2466 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2467 long long i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2468 unsigned long long ui1,ui2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2469 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2470 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
2471
d83291712bf7 test routine
kono
parents: 199
diff changeset
2472 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2473 printf("code_lassop c 1 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2474 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2475 printf("code_lassop c 2 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2476 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2477 printf("code_lassop c 3 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2478 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2479 printf("code_lassop c 4 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2480 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2481 printf("code_lassop c 5 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2482 i1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2483 printf("code_lassop c 6 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2484 i1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2485 printf("code_lassop c 7 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2486 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2487 printf("code_lassop c 8 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2488 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2489 printf("code_lassop c 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2490
d83291712bf7 test routine
kono
parents: 199
diff changeset
2491 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2492 printf("code_lassop c 1 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2493 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2494 printf("code_lassop c 2 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2495 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2496 printf("code_lassop c 3 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2497 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2498 printf("code_lassop c 4 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2499 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2500 printf("code_lassop c 5 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2501 ui1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2502 printf("code_lassop c 6 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2503 ui1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2504 printf("code_lassop c 7 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2505 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2506 printf("code_lassop c 8 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2507 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2508 printf("code_lassop c 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2509 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2510
d83291712bf7 test routine
kono
parents: 199
diff changeset
2511 // code_lgt(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2512
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2513 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2514 code_lgt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2515 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2516 long long reg;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2517 if (l0>l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2518 printf("code_lgt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2519 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2520 printf("code_lgt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2521 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2522 if (0<reg && reg<3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2523 printf("reg=%lld code_lgt 0<reg && reg <3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2524 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2525 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2526 if (-2<reg && reg<0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2527 printf("reg=%lld code_lgt -2<reg && reg <0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2528 }
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2529 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2530
d83291712bf7 test routine
kono
parents: 199
diff changeset
2531 // code_lugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2532 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2533 code_lugt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2534 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2535 unsigned long long reg;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2536 if (ul0>ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2537 printf("code_lugt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2538 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2539 printf("code_lugt 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2540 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2541 if (2<reg && reg<4)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2542 printf("reg=%llu code_lugt 2<reg && reg <4\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2543 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2544 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2545 if (2<reg && reg<4)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2546 printf("reg=%llu code_lugt 2<reg && reg <4\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2547 }
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2548 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2549
d83291712bf7 test routine
kono
parents: 199
diff changeset
2550 // code_lge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2551 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2552 code_lge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2553 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2554 long long reg;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2555 if (l0>=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2556 printf("code_lge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2557 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2558 printf("code_lge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2559 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2560 if (0<=reg && reg<=3)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2561 printf("reg=%lld code_lge 0<=reg && reg <=3\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2562 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2563 for (reg=-3;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2564 if (-2<=reg && reg<=0)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2565 printf("reg=%lld code_lge -2<=reg && reg <=0\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2566 }
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2567 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2568
d83291712bf7 test routine
kono
parents: 199
diff changeset
2569 // code_luge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2570 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2571 code_luge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2572 {
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2573 unsigned long long reg;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2574 if (ul0>=ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2575 printf("code_luge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2576 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2577 printf("code_luge 0\n");
280
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2578 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2579 if (2<reg && reg<4)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2580 printf("reg=%llu code_luge 2<reg && reg <4\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2581 }
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2582 for (reg=0;reg<7;reg++) {
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2583 if (2<reg && reg<4)
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2584 printf("reg=%llu code_luge 2<reg && reg <4\n",reg);
affb054fe920 lrexpr fix. rexpr in MIPS fix.
kono
parents: 276
diff changeset
2585 }
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2586 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2587
d83291712bf7 test routine
kono
parents: 199
diff changeset
2588 // code_leq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2589 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2590 code_leq()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2591 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2592 if (ul0==ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2593 printf("code_leq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2594 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2595 printf("code_leq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2596 if (l0!=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2597 printf("code_lneq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2598 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2599 printf("code_lneq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2600 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2601
275
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2602 #if 0
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2603 void
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2604 code_lswitch()
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2605 {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2606 long long i;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2607 for(i=0;i<6;i++) {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2608 switch(i) {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2609 case 1: printf("code_lswitch 1 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2610 case 2: printf("code_lswitch 2 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2611 case 3: printf("code_lswitch 3 %d\n",i);
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2612 case 4: printf("code_lswitch 4 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2613 default: printf("code_lswitch d %d\n",i);
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2614 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2615 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2616 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2617 #endif
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2618
d83291712bf7 test routine
kono
parents: 199
diff changeset
2619
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2620 #endif
275
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2621
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2622 void
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2623 code_switch()
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2624 {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2625 int i;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2626 for(i=0;i<10;i++) {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2627 switch(i) {
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2628 case 1: printf("code_switch 1 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2629 case 2: printf("code_switch 2 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2630 case 3: printf("code_switch 3 %d\n",i);
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2631 case 4: printf("code_switch 4 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2632 case 7:
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2633 case 5: printf("code_switch 5 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2634 case 6: printf("code_switch 6 %d\n",i); break;
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2635 default: printf("code_switch d %d\n",i);
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2636 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2637 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2638 }
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2639
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2640
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2641
8f09f8bbc494 MIPS switch statement. basic.c passed.
kono
parents: 274
diff changeset
2642
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2643 /* end */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2644