annotate test/code-gen.c @ 273:87b9cfc86a10

*** empty log message ***
author kono
date Fri, 21 May 2004 00:57:27 +0900
parents 8cd8d72286ae
children 3ae68af07fce
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 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
300 if (i1>i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
301 printf("code_gt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
302 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
303 printf("code_gt 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
304 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
305
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
306 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
307 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
308 code_ugt()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
309 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
310 if (ui1>ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
311 printf("code_ugt 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
312 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
313 printf("code_ugt 0\n");
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_ge(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_ge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
319 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
320 if (i1>=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
321 printf("code_ge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
322 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
323 printf("code_ge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
324 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
325
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
326 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
327 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
328 code_uge()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
329 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
330 if (ui1>=ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
331 printf("code_uge 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
332 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
333 printf("code_uge 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
334 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
335
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
336 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
337 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
338 code_eq()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
339 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
340 if (ui1==ui2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
341 printf("code_eq 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_eq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
344 if (i1!=i2)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
345 printf("code_neq 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
346 else
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
347 printf("code_neq 0\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
348 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
349
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
350 // code_bool(int e1)
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
351
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
352 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
353 code_bool()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
354 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
355 printf("code_bool > gvar %d %d %d %d %d %d\n",
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
356 i1>i2,ui1>ui2,i1>=i2,ui1>=ui2,ui1==ui2,i1!=i2);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
357 printf("code_bool < gvar %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
358 i1<i2,ui1<ui2,i1<=i2,ui1<=ui2,ui1==ui2,i1!=i2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
359 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
360
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
361 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
362 code_cmp()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
363 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
364 char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
365 unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
366 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
367 short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
368 unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
369
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
370 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
371 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
372 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
373 i1 && printf("code_bool local 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
374 s1 && printf("code_bool local 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
375 us1 && printf("code_bool local 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
376 c1 && printf("code_bool local 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
377 uc1 && printf("code_bool local 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
378
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
379 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
380 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
381 code_cmp_global()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
382 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
383 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
384 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
385 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
386 i1 && printf("code_bool global 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
387 s1 && printf("code_bool global 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
388 us1 && printf("code_bool global 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
389 c1 && printf("code_bool global 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
390 uc1 && printf("code_bool global 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
391 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
392
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
393 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
394 code_cmp_register()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
395 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
396 register char c1,c2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
397 register unsigned char uc1,uc2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
398 register int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
399 register short s1,s2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
400 register unsigned short us1,us2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
401
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
402 i1 = 1; i2 = -2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
403 s1 = -1; s2 = -3; us1 = 65535; us2 = 65535;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
404 c1 = -1; c2 = -3; uc1 = 200; uc2 = 202;
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
405 i1 && printf("code_bool register 1\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
406 s1 && printf("code_bool register 2\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
407 us1 && printf("code_bool register 3\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
408 c1 && printf("code_bool register 4\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
409 uc1 && printf("code_bool register 5\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
410
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
411 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
412
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
413
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
414 // code_string(int e1,int creg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
415
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
416 void
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
417 code_string()
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
418 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
419 printf("code_string test\n");
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
420 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
421
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
422 // struct_push(int e4,int t,int arg)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
423
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
424 struct aa
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
425 struct_push0(int i,struct aa a)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
426 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
427 a.a[55]++;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
428 if (i==0) {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
429 return struct_push0(1,a0);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
430 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
431 return a0;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
432 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
433
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
434 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
435 struct_push()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
436 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
437 a0.a[55]=3;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
438 a0 = struct_push0(0,a0);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
439 printf("struct_push %d\n",a0.a[55]);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
440 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
441
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
442 // code_jmp(char *s)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
443 // code_indirect_jmp(int e2)
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
444
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
445 // code_rindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
446 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
447 code_rindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
448 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
449 int i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
450 unsigned int ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
451 int *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
452 unsigned int *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
453
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
454 i1 = -555; i2= 555;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
455 ui1 = 632423423; ui2= 32394234;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
456 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
457 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
458 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
459 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
460 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
461 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
462
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
463 // code_crindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
464 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
465 code_crindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
466 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
467 char i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
468 unsigned char ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
469 char *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
470 unsigned char *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
471
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
472 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
473 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
474 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
475 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
476 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
477 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
478 printf("code_cindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
479 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
480
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
481 // code_srindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
482 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
483 code_srindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
484 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
485 short i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
486 unsigned short ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
487 short *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
488 unsigned short *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
489
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
490 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
491 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
492 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
493 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
494 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
495 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
496 printf("code_sindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
497 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
498
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
499 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
500 // code_drindirect(int e1, int offset, int d);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
501 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
502 code_drindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
503 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
504 float i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
505 double ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
506 float *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
507 double *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
508
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
509 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
510 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
511 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
512 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
513 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
514 pui2 = &ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
515 printf("code_dindirect %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
516 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
517
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
518 #endif
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
519
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
520 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
521 // code_lrindirect(int e1, int offset, int us);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
522 void
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
523 code_lrindirect()
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
524 {
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
525 long long i1,i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
526 unsigned long long ui1,ui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
527 long long *pi1,*pi2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
528 unsigned long long *pui1,*pui2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
529
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
530 i1 = -55; i2= 55;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
531 ui1 = 200; ui2= 128;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
532 pi1 = &i1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
533 pi2 = &i2;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
534 pui1 = &ui1;
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
535 pui2 = &ui2;
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
536 printf("code_lrindirect %llx %llx %llx %llx\n",*pi1,*pi2,*pui1,*pui2);
197
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
537 printf("code_lrindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
538 }
b5f49f32c2ee *** empty log message ***
kono
parents: 196
diff changeset
539
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
540 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
541
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
542 // code_assign_gvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
543 // code_assign_lvar(int e2,int creg,int byte)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
544 // code_assign_register(int e2,int byte,int creg)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
545 // code_assign(int e2,int byte,int creg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
546
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
547 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
548 code_assign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
549 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
550 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
551 unsigned int ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
552 int *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
553 unsigned int *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
554
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
555 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
556 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
557 pi1 = &i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
558 pi2 = &i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
559 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
560 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
561
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
562 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
563 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
564 printf("code_rindirect %d %d %u %u\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
565 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
566
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
567 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
568 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
569 code_register_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
570 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
571 register int i1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
572 register unsigned int ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
573 int a = 3;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
574 i1 = -555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
575 ui1 = 632423423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
576
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
577 i1 += a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
578 printf("code_assop 1 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
579 i1 -= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
580 printf("code_assop 2 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
581 i1 /= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
582 printf("code_assop 3 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
583 i1 *= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
584 printf("code_assop 4 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
585 i1 |= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
586 printf("code_assop 5 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
587 i1 &= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
588 printf("code_assop 6 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
589 i1 ^= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
590 printf("code_assop 7 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
591 i1 <<= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
592 printf("code_assop 8 %d\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
593 i1 >>= a;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
594 printf("code_assop 9 %d\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
595
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
596 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
597 printf("code_assop 1 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
598 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
599 printf("code_assop 2 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
600 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
601 printf("code_assop 3 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
602 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
603 printf("code_assop 4 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
604 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
605 printf("code_assop 5 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
606 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
607 printf("code_assop 6 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
608 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
609 printf("code_assop 7 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
610 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
611 printf("code_assop 8 %u\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
612 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
613 printf("code_assop 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
614 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
615
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
616 // code_assop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
617 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
618 code_assop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
619 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
620 int i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
621 unsigned int ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
622 int a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
623 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
624 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
625
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
626 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
627 printf("code_assop 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
628 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
629 printf("code_assop 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
630 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
631 printf("code_assop 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
632 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
633 printf("code_assop 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
634 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
635 printf("code_assop 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
636 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
637 printf("code_assop 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
638 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
639 printf("code_assop 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
640 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
641 printf("code_assop 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
642 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
643 printf("code_assop 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
644
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
645 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
646 printf("code_assop 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
647 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
648 printf("code_assop 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
649 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
650 printf("code_assop 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
651 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
652 printf("code_assop 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
653 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
654 printf("code_assop 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
655 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
656 printf("code_assop 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
657 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
658 printf("code_assop 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
659 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
660 printf("code_assop 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
661 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
662 printf("code_assop 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
663 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
664
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
665
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
666 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
667 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
668 code_register_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
669 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
670 register int i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
671 register unsigned int ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
672 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
673 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
674
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
675 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
676 printf("code_assop c 1 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
677 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
678 printf("code_assop c 2 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
679 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
680 printf("code_assop c 3 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
681 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
682 printf("code_assop c 4 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
683 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
684 printf("code_assop c 5 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
685 i1 &= 23244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
686 printf("code_assop c 6 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
687 i1 ^= 55244234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
688 printf("code_assop c 7 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
689 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
690 printf("code_assop c 8 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
691 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
692 printf("code_assop c 9 %d\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
693
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
694 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
695 printf("code_assop c 1 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
696 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
697 printf("code_assop c 2 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
698 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
699 printf("code_assop c 3 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
700 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
701 printf("code_assop c 4 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
702 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
703 printf("code_assop c 5 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
704 ui1 &= 23234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
705 printf("code_assop c 6 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
706 ui1 ^= 55234234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
707 printf("code_assop c 7 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
708 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
709 printf("code_assop c 8 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
710 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
711 printf("code_assop c 9 %u\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
712 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
713
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
714 // code_assop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
715 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
716 code_assop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
717 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
718 int i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
719 unsigned int ui1,ui2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
720 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
721 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
722
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
723 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
724 printf("code_assop c 1 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
725 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
726 printf("code_assop c 2 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
727 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
728 printf("code_assop c 3 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
729 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
730 printf("code_assop c 4 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
731 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
732 printf("code_assop c 5 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
733 i1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
734 printf("code_assop c 6 %d\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
735 i1 ^= 55444234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
736 printf("code_assop c 7 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
737 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
738 printf("code_assop c 8 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
739 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
740 printf("code_assop c 9 %d\n",i1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
741
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
742 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
743 printf("code_assop c 1 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
744 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
745 printf("code_assop c 2 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
746 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
747 printf("code_assop c 3 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
748 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
749 printf("code_assop c 4 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
750 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
751 printf("code_assop c 5 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
752 ui1 &= 23234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
753 printf("code_assop c 6 %u\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
754 ui1 ^= 54234234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
755 printf("code_assop c 7 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
756 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
757 printf("code_assop c 8 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
758 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
759 printf("code_assop c 9 %u\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
760 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
761
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
762
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
763
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
764 // tosop(int op,int oreg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
765 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
766 tosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
767 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
768 int i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
769 unsigned int u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
770 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
771 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
772
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
773 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
774 printf("tosop 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
775 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
776 printf("tosop 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
777 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
778 printf("tosop 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
779 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
780 printf("tosop 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
781 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
782 printf("tosop 5 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
783 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
784 printf("tosop 6 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
785 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
786 printf("tosop 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
787 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
788 printf("tosop 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
789 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
790 printf("tosop 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
791 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
792 printf("tosop 10 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
793
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
794 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
795 printf("tosop 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
796 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
797 printf("tosop 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
798 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
799 printf("tosop 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
800 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
801 printf("tosop 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
802 u = u1 | u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
803 printf("tosop 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
804 u = u1 & u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
805 printf("tosop 6 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
806 u = u1 ^ u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
807 printf("tosop 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
808 u = u1 << u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
809 printf("tosop 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
810 u = u1 >> u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
811 printf("tosop 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
812 u = u1 % u2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
813 printf("tosop 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
814 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
815
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
816 // oprtc(int op,int v)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
817 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
818 oprtc()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
819 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
820 int i1,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
821 unsigned int u1,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
822 i1 = -555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
823 u1 = 632423423;
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
824
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
825 i = i1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
826 printf("oprtc 1 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
827 i = i1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
828 printf("oprtc 2 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
829 i = i1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
830 printf("oprtc 3 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
831 i = i1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
832 printf("oprtc 4 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
833 i = i1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
834 printf("oprtc 5 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
835 i = i1 & 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
836 printf("oprtc 6 %d\n",i);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
837 i = i1 ^ 23234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
838 printf("oprtc 7 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
839 i = i1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
840 printf("oprtc 8 %d\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
841 i = i1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
842 printf("oprtc 9 %d\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
843 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
844 printf("oprtc 10 %d\n",i);
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
845
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
846 u = u1 + 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
847 printf("oprtc 1 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
848 u = u1 - 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
849 printf("oprtc 2 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
850 u = u1 / 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
851 printf("oprtc 3 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
852 u = u1 * 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
853 printf("oprtc 4 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
854 u = u1 | 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
855 printf("oprtc 5 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
856 u = u1 & 234234234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
857 printf("oprtc 6 %u\n",u);
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
858 u = u1 ^ 234234234;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
859 printf("oprtc 7 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
860 u = u1 << 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
861 printf("oprtc 8 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
862 u = u1 >> 5;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
863 printf("oprtc 9 %u\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
864 u = u1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
865 printf("oprtc 10 %u\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
866 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
867
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
868
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
869 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
870 // code_cmp_dregister(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
871 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
872 code_cmp_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
873 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
874 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
875 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
876 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
877 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
878 f0 && printf("code_bool register 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
879 d0 && printf("code_bool register 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
880
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
881 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
882
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
883 // code_dregister(int e2,int freg,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
884 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
885 code_dregister()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
886 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
887 register float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
888 register double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
889 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
890 d0 = 10; d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
891 printf("code_lvar float r %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
892 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
893
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
894 // code_dassign_gvar(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
895 // code_dassign_lvar(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
896 // code_dassign_dregister(int e2,int d,int freg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
897
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
898 // code_dassign(int e2,int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
899 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
900 code_dassign()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
901 {
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
902 int i1,i2;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
903 float f1,f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
904 double ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
905 float *pi1,*pi2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
906 double *pui1,*pui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
907
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
908 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
909 f1 = -555; f2= 555;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
910 ui1 = 632423423; ui2= 32394234;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
911 pi1 = &f1;
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
912 pi2 = &f2;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
913 pui1 = &ui1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
914 pui2 = &ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
915
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
916 *(pi2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
917 *(pui2+i1+i2) = 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
918 printf("code_dassign %g %g %g %g\n",*pi1,*pi2,*pui1,*pui2);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
919 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
920
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
921 // code_dconst(int e2,int freg,int d)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
922 // code_dneg(int freg,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
923 // code_dneg(int creg)
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
924 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
925 code_dneg()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
926 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
927 float i,j;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
928 double di,dj;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
929 i = 123123123;j = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
930 di = 123123123;dj = -32423;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
931 printf("code_dneg %g %g\n",-i,-j);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
932 printf("code_dneg %g %g\n",-di,-dj);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
933 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
934
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
935 // code_d2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
936 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
937 code_d2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
938 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
939 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
940 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
941 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
942 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
943 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
944 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
945 // code_i2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
946 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
947 code_i2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
948 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
949 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
950 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
951 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
952 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
953 printf("code_i2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
954 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
955 // code_d2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
956 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
957 code_d2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
958 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
959 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
960 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
961 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
962 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
963 printf("code_d2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
964 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
965 // code_u2d(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
966 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
967 code_u2d()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
968 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
969 double d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
970 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
971 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
972 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
973 printf("code_u2d %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
974 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
975 // code_f2i(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
976 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
977 code_f2i()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
978 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
979 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
980 int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
981 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
982 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
983 printf("code_d2i %d\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
984 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
985 // code_i2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
986 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
987 code_i2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
988 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
989 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
990 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
991 i = 24234342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
992 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
993 printf("code_i2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
994 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
995 // code_f2u(int freg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
996 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
997 code_f2u()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
998 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
999 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1000 unsigned int i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1001 d = 0.1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1002 i = d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1003 printf("code_f2u %ud\n",i);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1004 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1005 // code_u2f(int creg0)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1006 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1007 code_u2f()
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1008 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1009 float d;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1010 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1011 i = 242342342;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1012 d = i;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1013 printf("code_u2f %g\n",d);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1014 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1015
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1016
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1017 // code_drgvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1018 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1019 code_dgvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1020 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1021 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1022 d0 = 10; d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1023 printf("code_gvar float 1 %f %f %g %g\n",f0,f1,d0,d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1024 s_f0 = 0.0; s_f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1025 s_d0 = 10; s_d1 = 10e10;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1026 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
1027 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1028
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1029 // code_drlvar(int e2,int d,int freg)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1030 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1031 code_dlvar()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1032 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1033 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1034 double d0,d1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1035 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1036 d0 = 10; d1 = 10e10;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1037 printf("code_lvar float %f %f %g %g\n",f0,f1,d0,d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1038 printf("code_bool > lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1039 f0>f1,f0>=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1040 printf("code_bool > lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1041 d0>d1,d0>=d1,d0==d1,d0!=d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1042 printf("code_bool < lvar float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1043 f0<f1,f0<=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1044 printf("code_bool < lvar double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1045 d0<d1,d0<=d1,d0==d1,d0!=d1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1046 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1047
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1048
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1049 // code_cmp_drgvar(int e2,int d)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1050 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1051 code_cmp_d_global()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1052 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1053 f0 = 0.0; f1 = 0.2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1054 d0 = 10; d1 = 10e10;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1055 f0 && printf("code_bool global 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1056 d0 && printf("code_bool global 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1057 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1058
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1059
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1060 // code_cmp_drlvar(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_d()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1063 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1064 float f0,f1;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1065 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 local 6\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1069 d0 && printf("code_bool local 7\n");
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1070 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1071
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1072 // dtosop(int op,int e1)
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1073 void
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1074 dtosop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1075 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1076 double i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1077 float u1,u2,u;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1078 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1079 u1 = 632423423; u2= 32394234;
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1080
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1081 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1082 printf("dtosop 1 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1083 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1084 printf("dtosop 2 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1085 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1086 printf("dtosop 3 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1087 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1088 printf("dtosop 4 %g\n",i);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1089 u = u1 + u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1090 printf("dtosop 1 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1091 u = u1 - u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1092 printf("dtosop 2 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1093 u = u1 / u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1094 printf("dtosop 3 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1095 u = u1 * u2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1096 printf("dtosop 4 %g\n",u);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1097 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1098
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1099
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1100 // code_dassop(int op,int d)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1101 void
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1102 code_dassop()
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1103 {
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1104 double i1,i2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1105 float ui1,ui2;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1106 i1 = -555; i2= 555;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1107 ui1 = 632423423; ui2= 32394234;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1108
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1109 i1 += 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1110 printf("code_dassop 1 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1111 i1 -= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1112 printf("code_dassop 2 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1113 i1 /= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1114 printf("code_dassop 3 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1115 i1 *= 3;
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1116 printf("code_dassop 4 %g\n",i1);
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1117
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1118 ui1 += 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1119 printf("code_dassop 1 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1120 ui1 -= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1121 printf("code_dassop 2 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1122 ui1 /= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1123 printf("code_dassop 3 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1124 ui1 *= 3;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1125 printf("code_dassop 4 %g\n",ui1);
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1126 }
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1127
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1128 // code_dassop(int op,int d)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1129 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1130 code_register_dassop()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1131 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1132 register double i1,i2;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1133 register float ui1,ui2;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1134 i1 = -555; i2= 555;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1135 ui1 = 632423423; ui2= 32394234;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1136
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1137 i1 += 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1138 printf("code_dassop r 1 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1139 i1 -= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1140 printf("code_dassop r 2 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1141 i1 /= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1142 printf("code_dassop r 3 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1143 i1 *= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1144 printf("code_dassop r 4 %g\n",i1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1145
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1146 ui1 += 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1147 printf("code_dassop r 1 %g\n",ui1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1148 ui1 -= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1149 printf("code_dassop r 2 %g\n",ui1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1150 ui1 /= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1151 printf("code_dassop r 3 %g\n",ui1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1152 ui1 *= 3;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1153 printf("code_dassop r 4 %g\n",ui1);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1154 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1155
198
ef6f0c2d932f *** empty log message ***
kono
parents: 197
diff changeset
1156
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1157 // code_dpreinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1158 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1159 code_dpreinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1160 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1161 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1162 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1163 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1164 printf("code_dpreinc d %g %g",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1165 printf(" %g %g\n",i,j);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1166 ui = 123123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1167 printf("code_dpreinc f %g %g",++ui,--uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1168 printf(" %g %g\n",ui,uj);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1169 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1170
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1171 // code_dpostinc(int e1,int e2,int d,int reg)
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1172 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1173 code_dpostinc()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1174 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1175 double i,j;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1176 float ui,uj;
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1177 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1178 printf("code_dpostinc d %g %g",i--,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1179 printf(" %g %g\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1180 ui = 123123123;uj = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1181 printf("code_dpostinc f %g %g",ui++,uj--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1182 printf(" %g %g\n",ui,uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1183 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1184
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1185 // code_dpreinc(int e1,int e2,int d,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1186 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1187 code_register_dpreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1188 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1189 register double i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1190 register float ui,uj;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1191 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1192 printf("code_dpreinc r d %g %g",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1193 printf(" %g %g\n",i,j);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1194 ui = 123123123;uj = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1195 printf("code_dpreinc r f %g %g",++ui,--uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1196 printf(" %g %g\n",ui,uj);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1197 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1198
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1199 // code_dpostinc(int e1,int e2,int d,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1200 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1201 code_register_dpostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1202 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1203 register double i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1204 register float ui,uj;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1205 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1206 printf("code_dpostinc r d %g %g",i--,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1207 printf(" %g %g\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1208 ui = 123123123;uj = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1209 printf("code_dpostinc r f %g %g",ui++,uj--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1210 printf(" %g %g\n",ui,uj);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1211 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1212
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1213 // drexpr(int e1, int e2,int l1, int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1214
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1215 // case DOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1216 // case FOP+GE:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1217 // case DOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1218 // case FOP+GT:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1219 // case DOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1220 // case FOP+EQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1221 // case DOP+NEQ:
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1222 // case FOP+NEQ:
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1223 // code_gt(int cond)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1224
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1225 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1226 code_dgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1227 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1228 if (d0>d1)
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1229 printf("code_dgt 1\n");
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1230 else
229
d793c84b3679 *** empty log message ***
kono
parents: 228
diff changeset
1231 printf("code_dgt 0\n");
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1232 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1233
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1234 // code_ugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1235 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1236 code_fgt()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1237 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1238 if (f0>f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1239 printf("code_fgt 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1240 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1241 printf("code_fgt 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1242 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1243
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1244 // code_ge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1245 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1246 code_dge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1247 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1248 if (d0>=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1249 printf("code_dge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1250 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1251 printf("code_dge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1252 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1253
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1254 // code_uge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1255 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1256 code_fge()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1257 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1258 if (f0>=f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1259 printf("code_fge 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1260 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1261 printf("code_fge 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1262 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1263
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1264 // code_eq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1265 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1266 code_deq()
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1267 {
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1268 if (f0==f1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1269 printf("code_feq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1270 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1271 printf("code_feq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1272 if (d0!=d1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1273 printf("code_deq 1\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1274 else
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1275 printf("code_deq 0\n");
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1276 }
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1277
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1278 // code_dbool(int e1)
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1279
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1280 void
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1281 code_dbool()
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1282 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1283 printf("code_bool > float %d %d %d %d\n",
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1284 f0>f1,f0>=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1285 printf("code_bool > double %d %d %d %d\n",
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1286 d0>d1,d0>=d1,d0==d1,d0!=d1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1287 printf("code_bool < float %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1288 f0<f1,f0<=f1,f0==f1,f0!=f1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1289 printf("code_bool < double %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1290 d0<d1,d0<=d1,d0==d1,d0!=d1);
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1291 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1292 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1293
199
117772cc77b2 *** empty log message ***
kono
parents: 198
diff changeset
1294
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1295 #if LONGLONG_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1296 // lrexpr(int e1, int e2,int l1, int op)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1297 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1298 code_lbool()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1299 {
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1300 printf("code_bool > long long %d %d %d %d %d %d\n",
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1301 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1302 printf("code_bool < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1303 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1304 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1305
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1306 // int lpop_register()
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1307 // code_lregister(int e2,int reg)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1308 void
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1309 code_lregister()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1310 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1311 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1312 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1313 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1314 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1315 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1316 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1317 printf("code_lvar long long %llu %llu %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1318 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1319
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1320 // code_cmp_lregister(int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1321 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1322 code_cmp_lregister()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1323 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1324 register long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1325 register unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1326 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1327 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1328 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1329 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1330 l0 && printf("code_bool register 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1331 ul0 && printf("code_bool register 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1332 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1333
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1334 // code_cmp_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1335 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1336 code_cmp_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1337 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1338 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1339 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1340 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1341 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1342 l0 && printf("code_bool global 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1343 ul0 && printf("code_bool global 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1344 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1345 // code_cmp_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1346 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1347 code_cmp_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1348 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1349 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1350 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1351 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1352 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1353 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1354 ul1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1355 l0 && printf("code_bool local 8\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1356 ul0 && printf("code_bool local 9\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
1357 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1358
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1359 // code_lassign(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1360 // code_lassign_gvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1361 // code_lassign_lvar(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1362 // code_lassign_lregister(int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1363 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1364 code_lassign()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1365 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1366 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1367 unsigned long long ui1,ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1368 long long *pi1,*pi2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1369 unsigned long long *pui1,*pui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1370
d83291712bf7 test routine
kono
parents: 199
diff changeset
1371 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1372 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1373 pi1 = &i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1374 pi2 = &i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1375 pui1 = &ui1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1376 pui2 = &ui2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1377
d83291712bf7 test routine
kono
parents: 199
diff changeset
1378 *(pi2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1379 *(pui2+i1+i2) = 3;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1380 printf("code_rindirect %lld %lld %llu %llu\n",*pi1,*pi2,*pui1,*pui2);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1381 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1382
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1383 // code_lconst(int e1,int e2)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1384 // code_lneg(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1385 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1386 code_lneg()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1387 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1388 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1389 i = 123123123;j = -32423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1390 printf("code_neg %lld %lld\n",-i,-j);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1391 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1392
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1393 // code_lrgvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1394 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1395 code_lrgvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1396 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1397 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1398 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1399 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1400 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1401 printf("code_lrgvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1402 s_l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1403 s_l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1404 s_ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1405 s_ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1406 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
1407 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1408
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1409 // code_lrlvar(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1410 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1411 code_lrlvar()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1412 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1413 long long l0,l1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1414 unsigned long long ul0,ul1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1415 l0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1416 l1 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1417 ul0 = 123123123LL;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1418 ul1 = 123123123LL;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1419 printf("code_lvar long long %lld %lld %llu %llu\n",l0,l1,ul0,ul1);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1420 printf("code_bool lvar > long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1421 l1>l0,ul1>ul0,l1>=l0,ul1>=ul0,ul1==ul0,l1!=l0);
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1422 printf("code_bool lvar < long long %d %d %d %d %d %d\n",
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1423 l1<l0,ul1<ul0,l1<=l0,ul1<=ul0,ul1==ul0,l1!=l0);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1424 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1425
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1426 // ltosop(int e1,int e2)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1427 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1428 ltosop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1429 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1430 long long i1,i2,i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1431 unsigned long long u1,u2,u;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1432 int ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1433 unsigned int uu2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1434 i1 = -555; i2= 555;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1435 u1 = 632423423; u2= 32394234;
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1436 ii2 = -33;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1437 uu2 = 33;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1438 u = 0;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1439
d83291712bf7 test routine
kono
parents: 199
diff changeset
1440 i = i1 + i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1441 printf("ltosop 1 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1442 i = i1 - i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1443 printf("ltosop 2 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1444 i = i1 / i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1445 printf("ltosop 3 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1446 i = i1 * i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1447 printf("ltosop 4 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1448 i = i1 | i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1449 printf("ltosop 5 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1450 i = i1 & i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1451 printf("ltosop 6 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1452 i = i1 ^ i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1453 printf("ltosop 7 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1454 i = i1 << i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1455 printf("ltosop 8 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1456 i = i1 >> i2;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1457 printf("ltosop 9 %lld\n",i);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1458 i = i1 % i2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1459 printf("ltosop 10 %lld\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1460
d83291712bf7 test routine
kono
parents: 199
diff changeset
1461 u = u1 + u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1462 printf("ltosop u 1 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1463 u = u1 - u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1464 printf("ltosop u 2 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1465 u = u1 / u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1466 printf("ltosop u 3 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1467 u = u1 * u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1468 printf("ltosop u 4 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1469 u = u1 | u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1470 printf("ltosop u 5 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1471 u = u1 & u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1472 printf("ltosop u 6 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1473 u = u1 ^ u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1474 printf("ltosop u 7 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1475 u = u1 << u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1476 printf("ltosop u 8 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1477 u = u1 >> u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1478 printf("ltosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1479 u = u1 % u2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1480 printf("ltosop u 10 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1481
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1482 i = i1 + ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1483 printf("litosop 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1484 i = i1 - ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1485 printf("litosop 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1486 i = i1 / ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1487 printf("litosop 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1488 i = i1 * ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1489 printf("litosop 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1490 i = i1 | ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1491 printf("litosop 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1492 i = i1 & ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1493 printf("litosop 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1494 i = i1 ^ ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1495 printf("litosop 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1496 i = i1 << ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1497 printf("litosop 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1498 i = i1 >> ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1499 printf("litosop 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1500 i = i1 % ii2;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1501 printf("litosop 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1502
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1503 u = u1 + uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1504 printf("litosop u 1 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1505 u = u1 - uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1506 printf("litosop u 2 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1507 u = u1 / uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1508 printf("litosop u 3 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1509 u = u1 * uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1510 printf("litosop u 4 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1511 u = u1 | uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1512 printf("litosop u 5 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1513 u = u1 & uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1514 printf("litosop u 6 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1515 u = u1 ^ uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1516 printf("litosop u 7 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1517 u = u1 << uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1518 printf("litosop u 8 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1519 u = u1 >> uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1520 printf("litosop u 9 %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1521 u = u1 % uu2;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1522 printf("litosop u 10 %llu\n",u);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1523 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1524
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1525 // loprtc(int op,int v)
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1526 void
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1527 loprtc()
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1528 {
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1529 long long i1,i;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1530 unsigned long long u1,u;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1531 i1 = -555;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1532 u1 = 632423423;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1533
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1534 i = i1 + 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1535 printf("loprtc 1 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1536 i = i1 - 3;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1537 printf("loprtc 2 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1538 i = i1 / 32323423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1539 printf("loprtc 3 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1540 i = i1 * 323423423423LL;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1541 printf("loprtc 4 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1542 i = i1 | 234234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1543 printf("loprtc 5 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1544 i = i1 & 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1545 printf("loprtc 6 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1546 i = i1 ^ 23234234;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1547 printf("loprtc 7 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1548 i = i1 << 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1549 printf("loprtc 8 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1550 i = i1 >> 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1551 printf("loprtc 9 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1552 i = i1 % 5;
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1553 printf("loprtc 10 %lld\n",i);
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1554
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1555 u = u1 + 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1556 printf("loprtc 1 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1557 u = u1 - 3;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1558 printf("loprtc 2 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1559 u = u1 / 32342342344234LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1560 printf("loprtc 3 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1561 u = u1 * 243234234232324LL;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1562 printf("loprtc 4 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1563 u = u1 | 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1564 printf("loprtc 5 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1565 u = u1 & 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1566 printf("loprtc 6 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1567 u = u1 ^ 234234234;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1568 printf("loprtc 7 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1569 u = u1 << 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1570 printf("loprtc 8 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1571 u = u1 >> 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1572 printf("loprtc 9 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1573 u = u1 % 5;
231
f5efe15629d4 *** empty log message ***
kono
parents: 229
diff changeset
1574 printf("loprtc 10 u %llu\n",u);
214
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1575 }
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1576
4f459364c334 *** empty log message ***
kono
parents: 203
diff changeset
1577
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1578 // code_i2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1579 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1580 code_i2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1581 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1582 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1583 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1584 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1585 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1586 printf("code_i2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1587 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1588 // code_i2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1589 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1590 code_i2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1591 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1592 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1593 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1594 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1595 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1596 printf("code_i2ull %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1597 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1598 // code_u2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1599 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1600 code_u2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1601 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1602 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1603 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1604 i = 23442342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1605 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1606 printf("code_u2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1607 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1608 // code_u2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1609 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1610 code_u2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1611 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1612 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1613 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1614 i = 23342342;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1615 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1616 printf("code_u2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1617 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1618 // code_ll2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1619 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1620 code_ll2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1621 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1622 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1623 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1624 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1625 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1626 printf("code_ll2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1627 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1628 // code_ll2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1629 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1630 code_ll2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1631 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1632 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1633 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1634 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1635 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1636 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1637 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1638 // code_ull2i(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1639 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1640 code_ull2i()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1641 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1642 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1643 int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1644 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1645 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1646 printf("code_ull2i %d\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1647 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1648 // code_ull2u(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1649 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1650 code_ull2u()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1651 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1652 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1653 unsigned int i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1654 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1655 i = d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1656 printf("code_ll2i %ud\n",i);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1657 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1658 #if FLOAT_CODE
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1659 // code_d2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1660 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1661 code_d2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1662 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1663 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1664 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1665 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1666 d = i;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1667 printf("code_d2ll %lld\n",d);
d83291712bf7 test routine
kono
parents: 199
diff changeset
1668 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1669 // code_d2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1670 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1671 code_d2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1672 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1673 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1674 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1675 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1676 d = i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1677 printf("code_d2ll %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1678 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1679 // code_f2ll(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1680 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1681 code_f2ll()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1682 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1683 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1684 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1685 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1686 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1687 printf("code_f2ll %lld\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1688 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1689 // code_f2ull(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1690 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1691 code_f2ull()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1692 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1693 unsigned long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1694 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1695 i = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1696 d = i;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1697 printf("code_f2ull %llu\n",d);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1698 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1699 // code_ll2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1700 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1701 code_ll2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1702 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1703 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1704 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1705 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1706 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1707 printf("code_ll2d %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1708 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1709 // code_ll2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1710 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1711 code_ll2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1712 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1713 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1714 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1715 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1716 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1717 printf("code_ll2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1718 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1719 // code_ull2d(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1720 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1721 code_ull2d()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1722 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1723 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1724 double i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1725 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1726 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1727 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1728 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1729 // code_ull2f(int creg)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1730 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
1731 code_ull2f()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1732 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1733 long long d;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1734 float i;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1735 d = 2342342342LL;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1736 i = d;
242
c68f618b71f9 ia32 long long done. some error remains.
kono
parents: 237
diff changeset
1737 printf("code_ull2f %g\n",i);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1738 }
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1739 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1740
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1741 // code_lpreinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1742 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1743 code_lpreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1744 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1745 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1746 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1747 printf("code_preinc l %lld %lld",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1748 printf(" %lld %lld\n",i,j);
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_lpostinc(int e1,int e2,int reg)
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1752 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1753 code_lpostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1754 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1755 long long i,j;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1756 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1757 printf("code_postinc l %lld %lld",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1758 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1759 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1760
d83291712bf7 test routine
kono
parents: 199
diff changeset
1761 // code_lpreinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1762 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1763 code_lupreinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1764 {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1765 register unsigned long long i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1766 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1767 printf("code_preinc l %llu %llu",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1768 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1769 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1770
d83291712bf7 test routine
kono
parents: 199
diff changeset
1771 // code_lpostinc(int e1,int e2,int reg)
d83291712bf7 test routine
kono
parents: 199
diff changeset
1772 void
d83291712bf7 test routine
kono
parents: 199
diff changeset
1773 code_lupostinc()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1774 {
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1775 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1776 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1777 printf("code_postinc lu %llu %llu",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1778 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1779 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1780
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1781 // code_lpreinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1782 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1783 code_register_lpreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1784 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1785 register long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1786 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1787 printf("code_preinc l r %lld %lld",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1788 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1789 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1790
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1791 // code_lpostinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1792 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1793 code_register_lpostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1794 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1795 register long long i,j;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1796 i = 123123123;j = 0;
273
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1797 printf("code_postinc l r %lld %lld",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1798 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1799 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1800
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1801 // code_lpreinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1802 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1803 code_register_lupreinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1804 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1805 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1806 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1807 printf("code_preinc l r %llu %llu",++i,--j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1808 printf(" %lld %lld\n",i,j);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1809 }
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1810
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1811 // code_lpostinc(int e1,int e2,int reg)
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1812 void
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1813 code_register_lupostinc()
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1814 {
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1815 register unsigned long long i,j;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1816 i = 123123123;j = 0;
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1817 printf("code_postinc lu r %llu %llu",i++,j--);
87b9cfc86a10 *** empty log message ***
kono
parents: 255
diff changeset
1818 printf(" %lld %lld\n",i,j);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1819 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1820
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1821 // code_lassop(int op)
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
1822
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1823 // code_register_assop(int e2,int op,int byte)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1824 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1825 code_register_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1826 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1827 register long long i1;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1828 register unsigned long long ui1;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1829 long long a = 3;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1830 i1 = -555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1831 ui1 = 632423423;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1832
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1833 i1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1834 printf("code_register_lassop 1 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1835 i1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1836 printf("code_register_lassop 2 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1837 i1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1838 printf("code_register_lassop 3 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1839 i1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1840 printf("code_register_lassop 4 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1841 i1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1842 printf("code_register_lassop 5 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1843 i1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1844 printf("code_register_lassop 6 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1845 i1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1846 printf("code_register_lassop 7 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1847 i1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1848 printf("code_register_lassop 8 %lld\n",i1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1849 i1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1850 printf("code_register_lassop 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1851
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1852 ui1 += a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1853 printf("code_register_lassop 1 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1854 ui1 -= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1855 printf("code_register_lassop 2 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1856 ui1 /= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1857 printf("code_register_lassop 3 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1858 ui1 *= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1859 printf("code_register_lassop 4 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1860 ui1 |= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1861 printf("code_register_lassop 5 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1862 ui1 &= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1863 printf("code_register_lassop 6 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1864 ui1 ^= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1865 printf("code_register_lassop 7 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1866 ui1 <<= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1867 printf("code_register_lassop 8 %llu\n",ui1);
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1868 ui1 >>= a;
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1869 printf("code_register_lassop 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1870 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
1871
d83291712bf7 test routine
kono
parents: 199
diff changeset
1872 // code_lassop(int op,int byte,int sign)
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1873 void
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1874 code_lassop()
d83291712bf7 test routine
kono
parents: 199
diff changeset
1875 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
1876 long long i1,i2;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1877 unsigned long long ui1,ui2;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1878 long long a = 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1879 i1 = -555; i2= 555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1880 ui1 = 632423423; ui2= 32394234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1881
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1882 i1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1883 printf("code_lassop 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1884 i1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1885 printf("code_lassop 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1886 i1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1887 printf("code_lassop 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1888 i1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1889 printf("code_lassop 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1890 i1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1891 printf("code_lassop 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1892 i1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1893 printf("code_lassop 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1894 i1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1895 printf("code_lassop 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1896 i1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1897 printf("code_lassop 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1898 i1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1899 printf("code_lassop 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1900
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1901 ui1 += a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1902 printf("code_lassop 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1903 ui1 -= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1904 printf("code_lassop 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1905 ui1 /= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1906 printf("code_lassop 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1907 ui1 *= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1908 printf("code_lassop 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1909 ui1 |= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1910 printf("code_lassop 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1911 ui1 &= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1912 printf("code_lassop 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1913 ui1 ^= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1914 printf("code_lassop 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1915 ui1 <<= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1916 printf("code_lassop 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1917 ui1 >>= a;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1918 printf("code_lassop 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1919 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1920
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1921 // code_register_assop(int e2,int op,int byte)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1922 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1923 code_register_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1924 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1925 register long long i1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1926 register unsigned long long ui1;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1927 i1 = -555;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1928 ui1 = 632423423;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1929
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1930 i1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1931 printf("code_register_lassop c 1 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1932 i1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1933 printf("code_register_lassop c 2 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1934 i1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1935 printf("code_register_lassop c 3 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1936 i1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1937 printf("code_register_lassop c 4 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1938 i1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1939 printf("code_register_lassop c 5 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1940 i1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1941 printf("code_register_lassop c 6 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1942 i1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1943 printf("code_register_lassop c 7 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1944 i1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1945 printf("code_register_lassop c 8 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1946 i1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1947 printf("code_register_lassop c 9 %lld\n",i1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1948
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1949 ui1 += 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1950 printf("code_register_lassop c 1 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1951 ui1 -= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1952 printf("code_register_lassop c 2 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1953 ui1 /= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1954 printf("code_register_lassop c 3 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1955 ui1 *= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1956 printf("code_register_lassop c 4 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1957 ui1 |= 234;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1958 printf("code_register_lassop c 5 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1959 ui1 &= 2324234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1960 printf("code_register_lassop c 6 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1961 ui1 ^= 5523234234234234LL;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1962 printf("code_register_lassop c 7 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1963 ui1 <<= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1964 printf("code_register_lassop c 8 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1965 ui1 >>= 3;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1966 printf("code_register_lassop c 9 %llu\n",ui1);
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1967 }
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1968
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1969 // code_lassop(int op,int byte,int sign)
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1970 void
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1971 code_lassop_const()
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1972 {
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1973 long long i1,i2;
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1974 unsigned long long ui1,ui2;
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1975 i1 = -555; i2= 555;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1976 ui1 = 632423423; ui2= 32394234;
d83291712bf7 test routine
kono
parents: 199
diff changeset
1977
d83291712bf7 test routine
kono
parents: 199
diff changeset
1978 i1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1979 printf("code_lassop c 1 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1980 i1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1981 printf("code_lassop c 2 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1982 i1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1983 printf("code_lassop c 3 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1984 i1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1985 printf("code_lassop c 4 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1986 i1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1987 printf("code_lassop c 5 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1988 i1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1989 printf("code_lassop c 6 %lld\n",i1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
1990 i1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1991 printf("code_lassop c 7 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1992 i1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1993 printf("code_lassop c 8 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1994 i1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1995 printf("code_lassop c 9 %lld\n",i1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1996
d83291712bf7 test routine
kono
parents: 199
diff changeset
1997 ui1 += 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
1998 printf("code_lassop c 1 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
1999 ui1 -= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2000 printf("code_lassop c 2 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2001 ui1 /= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2002 printf("code_lassop c 3 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2003 ui1 *= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2004 printf("code_lassop c 4 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2005 ui1 |= 234;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2006 printf("code_lassop c 5 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2007 ui1 &= 2324234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2008 printf("code_lassop c 6 %llu\n",ui1);
201
3ae7e188416f *** empty log message ***
kono
parents: 200
diff changeset
2009 ui1 ^= 5523234234234234LL;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2010 printf("code_lassop c 7 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2011 ui1 <<= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2012 printf("code_lassop c 8 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2013 ui1 >>= 3;
255
8cd8d72286ae PowerPC long long complex function call fix.
kono
parents: 242
diff changeset
2014 printf("code_lassop c 9 %llu\n",ui1);
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2015 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2016
d83291712bf7 test routine
kono
parents: 199
diff changeset
2017 // code_lgt(int cond)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2018
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2019 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2020 code_lgt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2021 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2022 if (l0>l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2023 printf("code_lgt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2024 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2025 printf("code_lgt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2026 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2027
d83291712bf7 test routine
kono
parents: 199
diff changeset
2028 // code_lugt(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2029 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2030 code_lugt()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2031 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2032 if (ul0>ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2033 printf("code_lugt 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2034 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2035 printf("code_lugt 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2036 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2037
d83291712bf7 test routine
kono
parents: 199
diff changeset
2038 // code_lge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2039 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2040 code_lge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2041 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2042 if (l0>=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2043 printf("code_lge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2044 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2045 printf("code_lge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2046 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2047
d83291712bf7 test routine
kono
parents: 199
diff changeset
2048 // code_luge(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2049 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2050 code_luge()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2051 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2052 if (ul0>=ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2053 printf("code_luge 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2054 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2055 printf("code_luge 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2056 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2057
d83291712bf7 test routine
kono
parents: 199
diff changeset
2058 // code_leq(int cond)
227
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2059 void
ed92cef127f1 *** empty log message ***
kono
parents: 223
diff changeset
2060 code_leq()
200
d83291712bf7 test routine
kono
parents: 199
diff changeset
2061 {
d83291712bf7 test routine
kono
parents: 199
diff changeset
2062 if (ul0==ul1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2063 printf("code_leq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2064 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2065 printf("code_leq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2066 if (l0!=l1)
d83291712bf7 test routine
kono
parents: 199
diff changeset
2067 printf("code_lneq 1\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2068 else
d83291712bf7 test routine
kono
parents: 199
diff changeset
2069 printf("code_lneq 0\n");
d83291712bf7 test routine
kono
parents: 199
diff changeset
2070 }
d83291712bf7 test routine
kono
parents: 199
diff changeset
2071
d83291712bf7 test routine
kono
parents: 199
diff changeset
2072
d83291712bf7 test routine
kono
parents: 199
diff changeset
2073
196
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2074 #endif
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2075 /* end */
5f70abd9453d *** empty log message ***
kono
parents:
diff changeset
2076