1 | #include "../BasicCompiler_Common/common.h"
|
---|
2 | #include "Opcode.h"
|
---|
3 |
|
---|
4 | void OpcodeOthers(char *Command){
|
---|
5 | int i,i2;
|
---|
6 | char buffer[8192];
|
---|
7 | SUBINFO *psi;
|
---|
8 |
|
---|
9 | for(i=0;;i++){
|
---|
10 | if(Command[i]=='['){
|
---|
11 | i2=GetStringInBracket(buffer+i,Command+i);
|
---|
12 | i+=i2-1;
|
---|
13 | continue;
|
---|
14 | }
|
---|
15 | if(Command[i]==1&&Command[i+1]==ESC_PSMEM){
|
---|
16 | buffer[i]=Command[i];
|
---|
17 | i++;
|
---|
18 | buffer[i]=Command[i];
|
---|
19 | continue;
|
---|
20 | }
|
---|
21 | if(!IsVariableChar(Command[i])){
|
---|
22 | buffer[i]=0;
|
---|
23 | break;
|
---|
24 | }
|
---|
25 | buffer[i]=Command[i];
|
---|
26 | }
|
---|
27 |
|
---|
28 | if(!(
|
---|
29 | IsVariableTopChar(buffer[0])||
|
---|
30 | buffer[0]=='.'||
|
---|
31 | (buffer[0]==1&&buffer[1]==ESC_PSMEM)
|
---|
32 | )){
|
---|
33 | SetError(1,NULL,cp);
|
---|
34 | return;
|
---|
35 | }
|
---|
36 |
|
---|
37 |
|
---|
38 | if(Command[i]=='\0'){
|
---|
39 | //////////////////////////////
|
---|
40 | // パラメータ無しのマクロ検索
|
---|
41 | //////////////////////////////
|
---|
42 |
|
---|
43 | psi=GetSubHash(Command);
|
---|
44 |
|
---|
45 | //GetSubHash内でエラー提示が行われた場合
|
---|
46 | if(psi==(SUBINFO *)-1) return;
|
---|
47 |
|
---|
48 | if(psi==0){
|
---|
49 | char temporary[VN_SIZE];
|
---|
50 | lstrcpy(temporary,Command);
|
---|
51 |
|
---|
52 | CharUpper(temporary);
|
---|
53 | psi=GetSubHash(temporary);
|
---|
54 |
|
---|
55 | //GetSubHash内でエラー提示が行われた場合
|
---|
56 | if(psi==(SUBINFO *)-1) return;
|
---|
57 | }
|
---|
58 |
|
---|
59 | if(psi){
|
---|
60 | if(psi->dwType!=SUBTYPE_MACRO) SetError(10,Command,cp);
|
---|
61 |
|
---|
62 | Opcode_CallProc("",psi,0,"",0);
|
---|
63 |
|
---|
64 | return;
|
---|
65 | }
|
---|
66 | }
|
---|
67 | else if(IsNumCalcMark(Command,i)){
|
---|
68 | //代入演算
|
---|
69 | OpcodeCalc(Command);
|
---|
70 | return;
|
---|
71 | }
|
---|
72 |
|
---|
73 |
|
---|
74 | int idProc;
|
---|
75 | void *pInfo;
|
---|
76 | idProc=GetProc(buffer,&pInfo);
|
---|
77 |
|
---|
78 | int i4;
|
---|
79 | char temp2[VN_SIZE];
|
---|
80 | if(idProc){
|
---|
81 | if(Command[i]!='('){
|
---|
82 | SetError(10,buffer,cp);
|
---|
83 | return;
|
---|
84 | }
|
---|
85 | i4=GetStringInPare_RemovePare(temp2,Command+i+1);
|
---|
86 |
|
---|
87 | //閉じカッコ")"に続く文字がNULLでないときはエラーにする
|
---|
88 | if(Command[i+1+i4+1]!='\0') SetError(42,NULL,cp);
|
---|
89 |
|
---|
90 | ////////////////
|
---|
91 | // 呼び出し
|
---|
92 | ////////////////
|
---|
93 |
|
---|
94 | LONG_PTR lp;
|
---|
95 | i2=CallProc(idProc,pInfo,buffer,temp2,&lp);
|
---|
96 |
|
---|
97 |
|
---|
98 | /////////////////////
|
---|
99 | // 戻り値の処理
|
---|
100 | /////////////////////
|
---|
101 |
|
---|
102 | if(i2==DEF_DOUBLE||i2==DEF_SINGLE){
|
---|
103 | //fstp st(0)
|
---|
104 | OpBuffer[obp++]=(char)0xDD;
|
---|
105 | OpBuffer[obp++]=(char)0xD8;
|
---|
106 | }
|
---|
107 | if(i2==DEF_OBJECT){
|
---|
108 | CClass *pobj_Class;
|
---|
109 | pobj_Class=(CClass *)lp;
|
---|
110 | if(pobj_Class->DestructorMemberSubIndex!=-1){
|
---|
111 | //デストラクタの呼び出し
|
---|
112 |
|
---|
113 | //push eax
|
---|
114 | op_push(REG_EAX);
|
---|
115 |
|
---|
116 | //push eax
|
---|
117 | op_push(REG_EAX);
|
---|
118 |
|
---|
119 | //call destructor
|
---|
120 | int i5;
|
---|
121 | i5=pobj_Class->DestructorMemberSubIndex;
|
---|
122 | op_call(pobj_Class->ppobj_Method[i5]->psi);
|
---|
123 | }
|
---|
124 | else{
|
---|
125 | //push eax
|
---|
126 | op_push(REG_EAX);
|
---|
127 | }
|
---|
128 |
|
---|
129 | //call free
|
---|
130 | extern SUBINFO *pSub_free;
|
---|
131 | op_call(pSub_free);
|
---|
132 | }
|
---|
133 | return;
|
---|
134 | }
|
---|
135 |
|
---|
136 |
|
---|
137 | //////////////////////////
|
---|
138 | // その他は代入演算を行う
|
---|
139 | //////////////////////////
|
---|
140 | OpcodeCalc(Command);
|
---|
141 | }
|
---|
142 |
|
---|
143 | void OpcodeIf(char *Parameter){
|
---|
144 | int i,i2,i3,i4,type;
|
---|
145 |
|
---|
146 | for(i=0;;i++){
|
---|
147 | if(Parameter[i]=='\0'){
|
---|
148 | SetError(21,NULL,cp);
|
---|
149 | return;
|
---|
150 | }
|
---|
151 | if(Parameter[i]==1&&Parameter[i+1]==ESC_THEN){
|
---|
152 | Parameter[i]=0;
|
---|
153 | break;
|
---|
154 | }
|
---|
155 | }
|
---|
156 |
|
---|
157 | type=NumOpe(Parameter,0,0,0);
|
---|
158 |
|
---|
159 | if(type==-1){
|
---|
160 | //NumOpe内でエラー
|
---|
161 | i3=-1; //ダミー
|
---|
162 | }
|
---|
163 | else if(type==DEF_DOUBLE){
|
---|
164 | //fld qword ptr[esp]
|
---|
165 | op_fld_ptr_esp(DEF_DOUBLE);
|
---|
166 |
|
---|
167 | //push 0
|
---|
168 | op_push_value(0);
|
---|
169 |
|
---|
170 | //fild dword ptr[esp]
|
---|
171 | op_fld_ptr_esp(DEF_LONG);
|
---|
172 |
|
---|
173 | //add esp,sizeof(double)+sizeof(long)
|
---|
174 | op_add_esp(sizeof(double)+sizeof(long));
|
---|
175 |
|
---|
176 | //fcompp
|
---|
177 | OpBuffer[obp++]=(char)0xDE;
|
---|
178 | OpBuffer[obp++]=(char)0xD9;
|
---|
179 |
|
---|
180 | //fnstsw ax
|
---|
181 | OpBuffer[obp++]=(char)0xDF;
|
---|
182 | OpBuffer[obp++]=(char)0xE0;
|
---|
183 |
|
---|
184 | //test ah,40
|
---|
185 | OpBuffer[obp++]=(char)0xF6;
|
---|
186 | OpBuffer[obp++]=(char)0xC4;
|
---|
187 | OpBuffer[obp++]=(char)0x40;
|
---|
188 |
|
---|
189 | //jne (endif、または else まで)
|
---|
190 | OpBuffer[obp++]=(char)0x0F;
|
---|
191 | OpBuffer[obp++]=(char)0x85;
|
---|
192 | obp+=sizeof(long);
|
---|
193 |
|
---|
194 | //jneの番地
|
---|
195 | i3=obp;
|
---|
196 | }
|
---|
197 | else if(type==DEF_SINGLE){
|
---|
198 | //fld dword ptr[esp]
|
---|
199 | op_fld_ptr_esp(DEF_SINGLE);
|
---|
200 |
|
---|
201 | //push 0
|
---|
202 | op_push_value(0);
|
---|
203 |
|
---|
204 | //fild dword ptr[esp]
|
---|
205 | op_fld_ptr_esp(DEF_LONG);
|
---|
206 |
|
---|
207 | //add esp,sizeof(float)+sizeof(long)
|
---|
208 | op_add_esp(sizeof(float)+sizeof(long));
|
---|
209 |
|
---|
210 | //fcompp
|
---|
211 | OpBuffer[obp++]=(char)0xDE;
|
---|
212 | OpBuffer[obp++]=(char)0xD9;
|
---|
213 |
|
---|
214 | //fnstsw ax
|
---|
215 | OpBuffer[obp++]=(char)0xDF;
|
---|
216 | OpBuffer[obp++]=(char)0xE0;
|
---|
217 |
|
---|
218 | //test ah,40
|
---|
219 | OpBuffer[obp++]=(char)0xF6;
|
---|
220 | OpBuffer[obp++]=(char)0xC4;
|
---|
221 | OpBuffer[obp++]=(char)0x40;
|
---|
222 |
|
---|
223 | //jne (endif、または else まで)
|
---|
224 | OpBuffer[obp++]=(char)0x0F;
|
---|
225 | OpBuffer[obp++]=(char)0x85;
|
---|
226 | obp+=sizeof(long);
|
---|
227 |
|
---|
228 | //jneの番地
|
---|
229 | i3=obp;
|
---|
230 | }
|
---|
231 | else if(type==DEF_INT64||type==DEF_QWORD){
|
---|
232 | //64ビット型
|
---|
233 |
|
---|
234 | //pop eax
|
---|
235 | op_pop(REG_EAX);
|
---|
236 |
|
---|
237 | //pop ebx
|
---|
238 | op_pop(REG_EBX);
|
---|
239 |
|
---|
240 | //cmp eax,0
|
---|
241 | OpBuffer[obp++]=(char)0x83;
|
---|
242 | OpBuffer[obp++]=(char)0xF8;
|
---|
243 | OpBuffer[obp++]=(char)0x00;
|
---|
244 |
|
---|
245 | //jne
|
---|
246 | OpBuffer[obp++]=(char)0x0F;
|
---|
247 | OpBuffer[obp++]=(char)0x85;
|
---|
248 | obp+=sizeof(long);
|
---|
249 | i3=obp;
|
---|
250 |
|
---|
251 |
|
---|
252 | //cmp ebx,0
|
---|
253 | OpBuffer[obp++]=(char)0x83;
|
---|
254 | OpBuffer[obp++]=(char)0xFB;
|
---|
255 | OpBuffer[obp++]=(char)0x00;
|
---|
256 |
|
---|
257 | //jne
|
---|
258 | OpBuffer[obp++]=(char)0x0F;
|
---|
259 | OpBuffer[obp++]=(char)0x85;
|
---|
260 | obp+=sizeof(long);
|
---|
261 | i4=obp;
|
---|
262 |
|
---|
263 |
|
---|
264 |
|
---|
265 | //jmp (endif、または else までジャンプ)
|
---|
266 | OpBuffer[obp++]=(char)0xE9;
|
---|
267 | obp+=sizeof(long);
|
---|
268 |
|
---|
269 | *((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;
|
---|
270 | *((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;
|
---|
271 |
|
---|
272 | //jmpの番地
|
---|
273 | i3=obp;
|
---|
274 | }
|
---|
275 | else{
|
---|
276 | //32ビット型
|
---|
277 |
|
---|
278 | //pop eax
|
---|
279 | op_pop(REG_EAX);
|
---|
280 |
|
---|
281 | //cmp eax,0
|
---|
282 | OpBuffer[obp++]=(char)0x83;
|
---|
283 | OpBuffer[obp++]=(char)0xF8;
|
---|
284 | OpBuffer[obp++]=(char)0x00;
|
---|
285 |
|
---|
286 | //je (endif、または else まで条件ジャンプ)
|
---|
287 | OpBuffer[obp++]=(char)0x0F;
|
---|
288 | OpBuffer[obp++]=(char)0x84;
|
---|
289 | obp+=sizeof(long);
|
---|
290 |
|
---|
291 | //jeの番地
|
---|
292 | i3=obp;
|
---|
293 | }
|
---|
294 |
|
---|
295 |
|
---|
296 | /////////////////////////
|
---|
297 | // If内をコード化
|
---|
298 | /////////////////////////
|
---|
299 |
|
---|
300 | //レキシカルスコープをレベルアップ
|
---|
301 | obj_LexScopes.LevelUp(obp);
|
---|
302 |
|
---|
303 | i2=CompileBuffer(ESC_ENDIF,0);
|
---|
304 |
|
---|
305 | //レキシカルスコープをレベルダウン
|
---|
306 | obj_LexScopes.LevelDown();
|
---|
307 |
|
---|
308 |
|
---|
309 | if(i3==-1) return;
|
---|
310 |
|
---|
311 | extern char *basbuf;
|
---|
312 | if(i2==ESC_ELSE){
|
---|
313 | //jmp (endifまで)
|
---|
314 | OpBuffer[obp++]=(char)0xE9;
|
---|
315 | obp+=sizeof(long);
|
---|
316 |
|
---|
317 | *((long *)(OpBuffer+i3-sizeof(long)))=obp-i3; //ifからelseへのジャンプ先のオフセット値
|
---|
318 |
|
---|
319 | i3=obp;
|
---|
320 |
|
---|
321 |
|
---|
322 | /////////////////////////
|
---|
323 | // Else内をコード化
|
---|
324 | /////////////////////////
|
---|
325 |
|
---|
326 | //レキシカルスコープをレベルアップ
|
---|
327 | obj_LexScopes.LevelUp(obp);
|
---|
328 |
|
---|
329 | CompileBuffer(ESC_ENDIF,0);
|
---|
330 |
|
---|
331 | //レキシカルスコープをレベルダウン
|
---|
332 | obj_LexScopes.LevelDown();
|
---|
333 |
|
---|
334 |
|
---|
335 | *((long *)(OpBuffer+i3-sizeof(long)))=obp-i3; //jmpジャンプ先のオフセット値
|
---|
336 | }
|
---|
337 | else{
|
---|
338 | *((long *)(OpBuffer+i3-sizeof(long)))=obp-i3; //jeジャンプ先のオフセット値
|
---|
339 | }
|
---|
340 | }
|
---|
341 |
|
---|
342 | int GetLabelAddress(char *LabelName,int LineNum){
|
---|
343 | extern int MaxLabelNum;
|
---|
344 | extern LABEL *pLabelNames;
|
---|
345 | int i;
|
---|
346 |
|
---|
347 | if(LabelName){
|
---|
348 | for(i=0;i<MaxLabelNum;i++){
|
---|
349 | if(pLabelNames[i].pName){
|
---|
350 | if(lstrcmp(LabelName,pLabelNames[i].pName)==0) return pLabelNames[i].address;
|
---|
351 | }
|
---|
352 | }
|
---|
353 | }
|
---|
354 | else{
|
---|
355 | for(i=0;i<MaxLabelNum;i++){
|
---|
356 | if(pLabelNames[i].pName==0){
|
---|
357 | if(LineNum==pLabelNames[i].line) return pLabelNames[i].address;
|
---|
358 | }
|
---|
359 | }
|
---|
360 | }
|
---|
361 | return -1;
|
---|
362 | }
|
---|
363 | void OpcodeGoto(char *Parameter){
|
---|
364 | extern HANDLE hHeap;
|
---|
365 | extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
|
---|
366 | extern int GotoLabelScheduleNum;
|
---|
367 | int i,LineNum;
|
---|
368 |
|
---|
369 | if(Parameter[0]=='*'){
|
---|
370 | i=GetLabelAddress(Parameter+1,0);
|
---|
371 |
|
---|
372 | //jmp ...
|
---|
373 | OpBuffer[obp++]=(char)0xE9;
|
---|
374 | if(i==-1){
|
---|
375 | pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
|
---|
376 | pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
|
---|
377 | lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
|
---|
378 | pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
|
---|
379 | pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
|
---|
380 | GotoLabelScheduleNum++;
|
---|
381 | }
|
---|
382 | *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
|
---|
383 | obp+=sizeof(long);
|
---|
384 | }
|
---|
385 | else{
|
---|
386 | LineNum=atoi(Parameter);
|
---|
387 | i=GetLabelAddress(0,LineNum);
|
---|
388 |
|
---|
389 | //jmp ...
|
---|
390 | OpBuffer[obp++]=(char)0xE9;
|
---|
391 | if(i==-1){
|
---|
392 | pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
|
---|
393 | pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
|
---|
394 | pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
|
---|
395 | pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
|
---|
396 | pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
|
---|
397 | GotoLabelScheduleNum++;
|
---|
398 | }
|
---|
399 | *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
|
---|
400 | obp+=sizeof(long);
|
---|
401 | }
|
---|
402 | }
|
---|
403 | void OpcodeWhile(char *Parameter){
|
---|
404 | extern DWORD *pExitWhileSchedule;
|
---|
405 | extern int ExitWhileScheduleNum;
|
---|
406 | extern HANDLE hHeap;
|
---|
407 | int i2,i3,type;
|
---|
408 | DWORD *lpdwTemp;
|
---|
409 | int TempNum;
|
---|
410 |
|
---|
411 | //Continueアドレスのバックアップとセット
|
---|
412 | extern DWORD dwContinueAddress;
|
---|
413 | DWORD dwTempContinue;
|
---|
414 | dwTempContinue=dwContinueAddress;
|
---|
415 | dwContinueAddress=obp;
|
---|
416 |
|
---|
417 | if(!Parameter[0]) SetError(10,"While",cp);
|
---|
418 | type=NumOpe(Parameter,0,0,0);
|
---|
419 |
|
---|
420 | int je_schedule;
|
---|
421 | if(type==DEF_DOUBLE){
|
---|
422 | //fld qword ptr[esp]
|
---|
423 | op_fld_ptr_esp(DEF_DOUBLE);
|
---|
424 |
|
---|
425 | //push 0
|
---|
426 | op_push_value(0);
|
---|
427 |
|
---|
428 | //fild dword ptr[esp]
|
---|
429 | op_fld_ptr_esp(DEF_LONG);
|
---|
430 |
|
---|
431 | //add esp,sizeof(double)+sizeof(long)
|
---|
432 | op_add_esp(sizeof(double)+sizeof(long));
|
---|
433 |
|
---|
434 | //fcompp
|
---|
435 | OpBuffer[obp++]=(char)0xDE;
|
---|
436 | OpBuffer[obp++]=(char)0xD9;
|
---|
437 |
|
---|
438 | //fnstsw ax
|
---|
439 | OpBuffer[obp++]=(char)0xDF;
|
---|
440 | OpBuffer[obp++]=(char)0xE0;
|
---|
441 |
|
---|
442 | //test ah,40
|
---|
443 | OpBuffer[obp++]=(char)0xF6;
|
---|
444 | OpBuffer[obp++]=(char)0xC4;
|
---|
445 | OpBuffer[obp++]=(char)0x40;
|
---|
446 |
|
---|
447 | //jne (Wend まで)
|
---|
448 | OpBuffer[obp++]=(char)0x0F;
|
---|
449 | OpBuffer[obp++]=(char)0x85;
|
---|
450 | obp+=sizeof(long);
|
---|
451 |
|
---|
452 | //jeの番地
|
---|
453 | je_schedule=obp;
|
---|
454 | }
|
---|
455 | else if(type==DEF_SINGLE){
|
---|
456 | //fld dword ptr[esp]
|
---|
457 | op_fld_ptr_esp(DEF_SINGLE);
|
---|
458 |
|
---|
459 | //push 0
|
---|
460 | op_push_value(0);
|
---|
461 |
|
---|
462 | //fild dword ptr[esp]
|
---|
463 | op_fld_ptr_esp(DEF_LONG);
|
---|
464 |
|
---|
465 | //add esp,sizeof(float)+sizeof(long)
|
---|
466 | op_add_esp(sizeof(float)+sizeof(long));
|
---|
467 |
|
---|
468 | //fcompp
|
---|
469 | OpBuffer[obp++]=(char)0xDE;
|
---|
470 | OpBuffer[obp++]=(char)0xD9;
|
---|
471 |
|
---|
472 | //fnstsw ax
|
---|
473 | OpBuffer[obp++]=(char)0xDF;
|
---|
474 | OpBuffer[obp++]=(char)0xE0;
|
---|
475 |
|
---|
476 | //test ah,40
|
---|
477 | OpBuffer[obp++]=(char)0xF6;
|
---|
478 | OpBuffer[obp++]=(char)0xC4;
|
---|
479 | OpBuffer[obp++]=(char)0x40;
|
---|
480 |
|
---|
481 | //jne (Wend まで)
|
---|
482 | OpBuffer[obp++]=(char)0x0F;
|
---|
483 | OpBuffer[obp++]=(char)0x85;
|
---|
484 | obp+=sizeof(long);
|
---|
485 |
|
---|
486 | //jeの番地
|
---|
487 | je_schedule=obp;
|
---|
488 | }
|
---|
489 | else if(type==DEF_INT64||type==DEF_QWORD){
|
---|
490 | //64ビット型
|
---|
491 |
|
---|
492 | //pop eax
|
---|
493 | op_pop(REG_EAX);
|
---|
494 |
|
---|
495 | //pop ebx
|
---|
496 | op_pop(REG_EBX);
|
---|
497 |
|
---|
498 | //cmp eax,0
|
---|
499 | OpBuffer[obp++]=(char)0x83;
|
---|
500 | OpBuffer[obp++]=(char)0xF8;
|
---|
501 | OpBuffer[obp++]=(char)0x00;
|
---|
502 |
|
---|
503 | //jne
|
---|
504 | OpBuffer[obp++]=(char)0x0F;
|
---|
505 | OpBuffer[obp++]=(char)0x85;
|
---|
506 | obp+=sizeof(long);
|
---|
507 | i2=obp;
|
---|
508 |
|
---|
509 |
|
---|
510 | //cmp ebx,0
|
---|
511 | OpBuffer[obp++]=(char)0x83;
|
---|
512 | OpBuffer[obp++]=(char)0xFB;
|
---|
513 | OpBuffer[obp++]=(char)0x00;
|
---|
514 |
|
---|
515 | //jne
|
---|
516 | OpBuffer[obp++]=(char)0x0F;
|
---|
517 | OpBuffer[obp++]=(char)0x85;
|
---|
518 | obp+=sizeof(long);
|
---|
519 | i3=obp;
|
---|
520 |
|
---|
521 |
|
---|
522 | //jmp (endif、または else までジャンプ)
|
---|
523 | OpBuffer[obp++]=(char)0xE9;
|
---|
524 | obp+=sizeof(long);
|
---|
525 |
|
---|
526 | *((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
|
---|
527 | *((long *)(OpBuffer+i3-sizeof(long)))=obp-i3;
|
---|
528 |
|
---|
529 | //jmpの番地
|
---|
530 | je_schedule=obp;
|
---|
531 | }
|
---|
532 | else{
|
---|
533 | //その他整数型
|
---|
534 |
|
---|
535 | //pop eax
|
---|
536 | op_pop(REG_EAX);
|
---|
537 |
|
---|
538 | //cmp eax,0
|
---|
539 | OpBuffer[obp++]=(char)0x83;
|
---|
540 | OpBuffer[obp++]=(char)0xF8;
|
---|
541 | OpBuffer[obp++]=(char)0x00;
|
---|
542 |
|
---|
543 | //je (Wend まで)
|
---|
544 | OpBuffer[obp++]=(char)0x0F;
|
---|
545 | OpBuffer[obp++]=(char)0x84;
|
---|
546 | obp+=sizeof(long);
|
---|
547 |
|
---|
548 | //実行中の番地
|
---|
549 | je_schedule=obp;
|
---|
550 | }
|
---|
551 |
|
---|
552 | //ExitWhileスケジュールの準備
|
---|
553 | lpdwTemp=pExitWhileSchedule;
|
---|
554 | TempNum=ExitWhileScheduleNum;
|
---|
555 | pExitWhileSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
|
---|
556 | ExitWhileScheduleNum=0;
|
---|
557 |
|
---|
558 | //レキシカルスコープをレベルアップ
|
---|
559 | obj_LexScopes.LevelUp(obp);
|
---|
560 |
|
---|
561 | //While内をコンパイル
|
---|
562 | CompileBuffer(0,COM_WEND);
|
---|
563 |
|
---|
564 | CallDestrouctorsOfScope();
|
---|
565 |
|
---|
566 | //jmp ...
|
---|
567 | OpBuffer[obp++]=(char)0xE9;
|
---|
568 | *((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
|
---|
569 | obp+=sizeof(long);
|
---|
570 |
|
---|
571 | //ExitWhileスケジュール
|
---|
572 | for(i2=0;i2<ExitWhileScheduleNum;i2++){
|
---|
573 | *((long *)(OpBuffer+pExitWhileSchedule[i2]))=obp-(pExitWhileSchedule[i2]+sizeof(long));
|
---|
574 | }
|
---|
575 | HeapDefaultFree(pExitWhileSchedule);
|
---|
576 | pExitWhileSchedule=lpdwTemp;
|
---|
577 | ExitWhileScheduleNum=TempNum;
|
---|
578 |
|
---|
579 | //レキシカルスコープをレベルダウン
|
---|
580 | obj_LexScopes.LevelDown();
|
---|
581 |
|
---|
582 | *((long *)(OpBuffer+je_schedule-sizeof(long)))=obp-je_schedule; //jeジャンプ先のオフセット値
|
---|
583 |
|
---|
584 | //Continueアドレスを復元
|
---|
585 | dwContinueAddress=dwTempContinue;
|
---|
586 | }
|
---|
587 | void OpcodeExitWhile(void){
|
---|
588 | extern DWORD *pExitWhileSchedule;
|
---|
589 | extern int ExitWhileScheduleNum;
|
---|
590 | extern HANDLE hHeap;
|
---|
591 |
|
---|
592 | if(!pExitWhileSchedule){
|
---|
593 | SetError(12,"Exit While",cp);
|
---|
594 | return;
|
---|
595 | }
|
---|
596 |
|
---|
597 | //jmp ...(Wend addr)
|
---|
598 | OpBuffer[obp++]=(char)0xE9;
|
---|
599 |
|
---|
600 | pExitWhileSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitWhileSchedule,(ExitWhileScheduleNum+1)*sizeof(DWORD));
|
---|
601 | pExitWhileSchedule[ExitWhileScheduleNum]=obp;
|
---|
602 | ExitWhileScheduleNum++;
|
---|
603 |
|
---|
604 | obp+=sizeof(long);
|
---|
605 | }
|
---|
606 | char szNextVariable[VN_SIZE];
|
---|
607 | void OpcodeFor(char *Parameter){
|
---|
608 | extern DWORD *pExitForSchedule;
|
---|
609 | extern int ExitForScheduleNum;
|
---|
610 | extern HANDLE hHeap;
|
---|
611 | DWORD *lpdwTemp;
|
---|
612 | int TempNum;
|
---|
613 | int i,i2,i3;
|
---|
614 | char temporary[VN_SIZE],variable[VN_SIZE],JudgeNum[VN_SIZE],StepNum[VN_SIZE];
|
---|
615 |
|
---|
616 | //第1パラメータを取得
|
---|
617 | i=GetOneParameter(Parameter,0,temporary);
|
---|
618 | if(!Parameter[i]){
|
---|
619 | SetError(12,"For",cp);
|
---|
620 | goto ErrorStep;
|
---|
621 | }
|
---|
622 |
|
---|
623 | for(i2=0;;i2++){
|
---|
624 | if(temporary[i2]=='='){
|
---|
625 | variable[i2]=0;
|
---|
626 |
|
---|
627 | //カウンタ初期化
|
---|
628 | OpcodeCalc(temporary);
|
---|
629 | break;
|
---|
630 | }
|
---|
631 | if(temporary[i2]=='\0'){
|
---|
632 | SetError(12,"For",cp);
|
---|
633 | goto ErrorStep;
|
---|
634 | }
|
---|
635 | variable[i2]=temporary[i2];
|
---|
636 | }
|
---|
637 |
|
---|
638 | //jmp ...
|
---|
639 | OpBuffer[obp++]=(char)0xE9;
|
---|
640 | i2=obp;
|
---|
641 | obp+=sizeof(long);
|
---|
642 |
|
---|
643 | //Continueアドレスのバックアップとセット
|
---|
644 | extern DWORD dwContinueAddress;
|
---|
645 | DWORD dwTempContinue;
|
---|
646 | dwTempContinue=dwContinueAddress;
|
---|
647 | dwContinueAddress=obp;
|
---|
648 |
|
---|
649 | //第2パラメータを取得(to~)
|
---|
650 | i=GetOneParameter(Parameter,i,JudgeNum);
|
---|
651 |
|
---|
652 | //第3パラメータを取得(step~)
|
---|
653 | if(Parameter[i]){
|
---|
654 | i=GetOneParameter(Parameter,i,StepNum);
|
---|
655 | if(Parameter[i]) SetError(12,"For",cp);
|
---|
656 | }
|
---|
657 | else lstrcpy(StepNum,"1");
|
---|
658 |
|
---|
659 | //カウンタを増加させる
|
---|
660 | sprintf(temporary,"%s=(%s)+(%s)",variable,variable,StepNum);
|
---|
661 | OpcodeCalc(temporary);
|
---|
662 |
|
---|
663 | *((long *)(OpBuffer+i2))=obp-(i2+sizeof(long));
|
---|
664 |
|
---|
665 | //増加か減少かを区別する
|
---|
666 | sprintf(temporary,"(%s)>=0",StepNum);
|
---|
667 | NumOpe(temporary,0,0,0);
|
---|
668 |
|
---|
669 | //pop eax
|
---|
670 | op_pop(REG_EAX);
|
---|
671 |
|
---|
672 | //cmp eax,0
|
---|
673 | OpBuffer[obp++]=(char)0x83;
|
---|
674 | OpBuffer[obp++]=(char)0xF8;
|
---|
675 | OpBuffer[obp++]=(char)0x00;
|
---|
676 |
|
---|
677 | //je [カウンタ減少の場合の判定]
|
---|
678 | OpBuffer[obp++]=(char)0x0F;
|
---|
679 | OpBuffer[obp++]=(char)0x84;
|
---|
680 | i2=obp;
|
---|
681 | obp+=sizeof(long);
|
---|
682 |
|
---|
683 | //判定(カウンタ増加の場合)
|
---|
684 | sprintf(temporary,"%s<=(%s)",variable,JudgeNum);
|
---|
685 | NumOpe(temporary,0,0,0);
|
---|
686 |
|
---|
687 | //pop eax
|
---|
688 | op_pop(REG_EAX);
|
---|
689 |
|
---|
690 | //jmp [カウンタ減少の場合の判定を飛び越す]
|
---|
691 | OpBuffer[obp++]=(char)0xE9;
|
---|
692 | i3=obp;
|
---|
693 | obp+=sizeof(long);
|
---|
694 |
|
---|
695 | *((long *)(OpBuffer+i2))=obp-(i2+sizeof(long)); //jeジャンプ先のオフセット値
|
---|
696 |
|
---|
697 | //判定(カウンタ減少の場合)
|
---|
698 | sprintf(temporary,"%s>=(%s)",variable,JudgeNum);
|
---|
699 | NumOpe(temporary,0,0,0);
|
---|
700 |
|
---|
701 | //pop eax
|
---|
702 | op_pop(REG_EAX);
|
---|
703 |
|
---|
704 | *((long *)(OpBuffer+i3))=obp-(i3+sizeof(long)); //jmpジャンプ先のオフセット値
|
---|
705 |
|
---|
706 | //cmp eax,0
|
---|
707 | OpBuffer[obp++]=(char)0x83;
|
---|
708 | OpBuffer[obp++]=(char)0xF8;
|
---|
709 | OpBuffer[obp++]=(char)0x00;
|
---|
710 |
|
---|
711 | ErrorStep:
|
---|
712 |
|
---|
713 | //je ...
|
---|
714 | OpBuffer[obp++]=(char)0x0F;
|
---|
715 | OpBuffer[obp++]=(char)0x84;
|
---|
716 | int je_schedule=obp;
|
---|
717 | obp+=sizeof(long);
|
---|
718 |
|
---|
719 | //ExitForスケジュールの準備
|
---|
720 | lpdwTemp=pExitForSchedule;
|
---|
721 | TempNum=ExitForScheduleNum;
|
---|
722 | pExitForSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
|
---|
723 | ExitForScheduleNum=0;
|
---|
724 |
|
---|
725 | //レキシカルスコープをレベルアップ
|
---|
726 | obj_LexScopes.LevelUp(obp);
|
---|
727 |
|
---|
728 | //For内をコンパイル
|
---|
729 | CompileBuffer(0,COM_NEXT);
|
---|
730 |
|
---|
731 | CallDestrouctorsOfScope();
|
---|
732 |
|
---|
733 | if(szNextVariable[0]){
|
---|
734 | if(lstrcmp(szNextVariable,variable)!=0){
|
---|
735 | SetError(55,szNextVariable,cp);
|
---|
736 | }
|
---|
737 | }
|
---|
738 |
|
---|
739 | //jmp ...
|
---|
740 | OpBuffer[obp++]=(char)0xE9;
|
---|
741 | *((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
|
---|
742 | obp+=sizeof(long);
|
---|
743 |
|
---|
744 | //ExitForスケジュール
|
---|
745 | for(i=0;i<ExitForScheduleNum;i++){
|
---|
746 | *((long *)(OpBuffer+pExitForSchedule[i]))=obp-(pExitForSchedule[i]+sizeof(long));
|
---|
747 | }
|
---|
748 | HeapDefaultFree(pExitForSchedule);
|
---|
749 | pExitForSchedule=lpdwTemp;
|
---|
750 | ExitForScheduleNum=TempNum;
|
---|
751 |
|
---|
752 | //レキシカルスコープをレベルダウン
|
---|
753 | obj_LexScopes.LevelDown();
|
---|
754 |
|
---|
755 | *((long *)(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jeジャンプ先のオフセット値
|
---|
756 |
|
---|
757 | //Continueアドレスを復元
|
---|
758 | dwContinueAddress=dwTempContinue;
|
---|
759 | }
|
---|
760 | void OpcodeExitFor(void){
|
---|
761 | extern DWORD *pExitForSchedule;
|
---|
762 | extern int ExitForScheduleNum;
|
---|
763 | extern HANDLE hHeap;
|
---|
764 |
|
---|
765 | if(!pExitForSchedule){
|
---|
766 | SetError(12,"Exit For",cp);
|
---|
767 | return;
|
---|
768 | }
|
---|
769 |
|
---|
770 | //jmp ...(Next addr)
|
---|
771 | OpBuffer[obp++]=(char)0xE9;
|
---|
772 |
|
---|
773 | pExitForSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitForSchedule,(ExitForScheduleNum+1)*sizeof(DWORD));
|
---|
774 | pExitForSchedule[ExitForScheduleNum]=obp;
|
---|
775 | ExitForScheduleNum++;
|
---|
776 |
|
---|
777 | obp+=sizeof(long);
|
---|
778 | }
|
---|
779 |
|
---|
780 | void OpcodeDo(char *Parameter){
|
---|
781 | extern DWORD *pExitDoSchedule;
|
---|
782 | extern int ExitDoScheduleNum;
|
---|
783 | extern HANDLE hHeap;
|
---|
784 | int i,i2,i3,i4,type;
|
---|
785 | DWORD *lpdwTemp;
|
---|
786 | int TempNum;
|
---|
787 |
|
---|
788 | if(Parameter[0]) SetError(10,"Do",cp);
|
---|
789 |
|
---|
790 | //ExitDoスケジュールの準備
|
---|
791 | lpdwTemp=pExitDoSchedule;
|
---|
792 | TempNum=ExitDoScheduleNum;
|
---|
793 | pExitDoSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
|
---|
794 | ExitDoScheduleNum=0;
|
---|
795 |
|
---|
796 | //Continueアドレスのバックアップとセット
|
---|
797 | extern DWORD dwContinueAddress;
|
---|
798 | DWORD dwTempContinue;
|
---|
799 | dwTempContinue=dwContinueAddress;
|
---|
800 | dwContinueAddress=obp;
|
---|
801 |
|
---|
802 | //レキシカルスコープをレベルアップ
|
---|
803 | obj_LexScopes.LevelUp(obp);
|
---|
804 |
|
---|
805 | //Do内をコンパイル
|
---|
806 | CompileBuffer(0,COM_LOOP);
|
---|
807 |
|
---|
808 | CallDestrouctorsOfScope();
|
---|
809 |
|
---|
810 | extern char *basbuf;
|
---|
811 | char temporary[VN_SIZE];
|
---|
812 | for(i=cp-1;;i--){
|
---|
813 | if(IsCommandDelimitation(basbuf[i])){
|
---|
814 | i+=3;
|
---|
815 | if(!(basbuf[i]=='0'||basbuf[i]=='1')){
|
---|
816 | //無条件ループ
|
---|
817 | break;
|
---|
818 | }
|
---|
819 | i3=i;
|
---|
820 |
|
---|
821 | for(i+=2,i2=0;;i++,i2++){
|
---|
822 | if(IsCommandDelimitation(basbuf[i])){
|
---|
823 | temporary[i2]=0;
|
---|
824 | break;
|
---|
825 | }
|
---|
826 | temporary[i2]=basbuf[i];
|
---|
827 | }
|
---|
828 |
|
---|
829 | type=NumOpe(temporary,0,0,0);
|
---|
830 |
|
---|
831 | if(type==DEF_DOUBLE){
|
---|
832 | //fld qword ptr[esp]
|
---|
833 | op_fld_ptr_esp(DEF_DOUBLE);
|
---|
834 |
|
---|
835 | //push 0
|
---|
836 | op_push_value(0);
|
---|
837 |
|
---|
838 | //fild dword ptr[esp]
|
---|
839 | op_fld_ptr_esp(DEF_LONG);
|
---|
840 |
|
---|
841 | //add esp,sizeof(double)+sizeof(long)
|
---|
842 | op_add_esp(sizeof(double)+sizeof(long));
|
---|
843 |
|
---|
844 | //fcompp
|
---|
845 | OpBuffer[obp++]=(char)0xDE;
|
---|
846 | OpBuffer[obp++]=(char)0xD9;
|
---|
847 |
|
---|
848 | //fnstsw ax
|
---|
849 | OpBuffer[obp++]=(char)0xDF;
|
---|
850 | OpBuffer[obp++]=(char)0xE0;
|
---|
851 |
|
---|
852 | //test ah,40
|
---|
853 | OpBuffer[obp++]=(char)0xF6;
|
---|
854 | OpBuffer[obp++]=(char)0xC4;
|
---|
855 | OpBuffer[obp++]=(char)0x40;
|
---|
856 |
|
---|
857 | if(basbuf[i3]=='0'){
|
---|
858 | //While
|
---|
859 |
|
---|
860 | //jne 5(ループ終了)
|
---|
861 | OpBuffer[obp++]=(char)0x75;
|
---|
862 | OpBuffer[obp++]=(char)0x05;
|
---|
863 | }
|
---|
864 | else if(basbuf[i3]=='1'){
|
---|
865 | //Until
|
---|
866 |
|
---|
867 | //je 5(ループ終了)
|
---|
868 | OpBuffer[obp++]=(char)0x74;
|
---|
869 | OpBuffer[obp++]=(char)0x05;
|
---|
870 | }
|
---|
871 | }
|
---|
872 | else if(type==DEF_SINGLE){
|
---|
873 | //fld dword ptr[esp]
|
---|
874 | op_fld_ptr_esp(DEF_SINGLE);
|
---|
875 |
|
---|
876 | //push 0
|
---|
877 | op_push_value(0);
|
---|
878 |
|
---|
879 | //fild dword ptr[esp]
|
---|
880 | op_fld_ptr_esp(DEF_LONG);
|
---|
881 |
|
---|
882 | //add esp,sizeof(float)+sizeof(long)
|
---|
883 | op_add_esp(sizeof(float)+sizeof(long));
|
---|
884 |
|
---|
885 | //fcompp
|
---|
886 | OpBuffer[obp++]=(char)0xDE;
|
---|
887 | OpBuffer[obp++]=(char)0xD9;
|
---|
888 |
|
---|
889 | //fnstsw ax
|
---|
890 | OpBuffer[obp++]=(char)0xDF;
|
---|
891 | OpBuffer[obp++]=(char)0xE0;
|
---|
892 |
|
---|
893 | //test ah,40
|
---|
894 | OpBuffer[obp++]=(char)0xF6;
|
---|
895 | OpBuffer[obp++]=(char)0xC4;
|
---|
896 | OpBuffer[obp++]=(char)0x40;
|
---|
897 |
|
---|
898 | if(basbuf[i3]=='0'){
|
---|
899 | //While
|
---|
900 |
|
---|
901 | //jne 5(ループ終了)
|
---|
902 | OpBuffer[obp++]=(char)0x75;
|
---|
903 | OpBuffer[obp++]=(char)0x05;
|
---|
904 | }
|
---|
905 | else if(basbuf[i3]=='1'){
|
---|
906 | //Until
|
---|
907 |
|
---|
908 | //je 5(ループ終了)
|
---|
909 | OpBuffer[obp++]=(char)0x74;
|
---|
910 | OpBuffer[obp++]=(char)0x05;
|
---|
911 | }
|
---|
912 | }
|
---|
913 | else if(type==DEF_INT64||type==DEF_QWORD){
|
---|
914 | //64ビット型
|
---|
915 |
|
---|
916 | //pop eax
|
---|
917 | op_pop(REG_EAX);
|
---|
918 |
|
---|
919 | //pop ebx
|
---|
920 | op_pop(REG_EBX);
|
---|
921 |
|
---|
922 | //cmp eax,0
|
---|
923 | OpBuffer[obp++]=(char)0x83;
|
---|
924 | OpBuffer[obp++]=(char)0xF8;
|
---|
925 | OpBuffer[obp++]=(char)0x00;
|
---|
926 |
|
---|
927 | //jne
|
---|
928 | OpBuffer[obp++]=(char)0x0F;
|
---|
929 | OpBuffer[obp++]=(char)0x85;
|
---|
930 | obp+=sizeof(long);
|
---|
931 | i2=obp;
|
---|
932 |
|
---|
933 |
|
---|
934 | //cmp ebx,0
|
---|
935 | OpBuffer[obp++]=(char)0x83;
|
---|
936 | OpBuffer[obp++]=(char)0xFB;
|
---|
937 | OpBuffer[obp++]=(char)0x00;
|
---|
938 |
|
---|
939 | //jne
|
---|
940 | OpBuffer[obp++]=(char)0x0F;
|
---|
941 | OpBuffer[obp++]=(char)0x85;
|
---|
942 | obp+=sizeof(long);
|
---|
943 | i4=obp;
|
---|
944 |
|
---|
945 |
|
---|
946 | if(basbuf[i3]=='0'){
|
---|
947 | //While
|
---|
948 |
|
---|
949 | //jmp 5(ループ終了)
|
---|
950 | OpBuffer[obp++]=(char)0xEB;
|
---|
951 | OpBuffer[obp++]=(char)0x05;
|
---|
952 |
|
---|
953 | *((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
|
---|
954 | *((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;
|
---|
955 | }
|
---|
956 | else if(basbuf[i3]=='1'){
|
---|
957 | //Until
|
---|
958 |
|
---|
959 | //jmp 2(ループを続ける)
|
---|
960 | OpBuffer[obp++]=(char)0xEB;
|
---|
961 | OpBuffer[obp++]=(char)0x02;
|
---|
962 |
|
---|
963 | *((long *)(OpBuffer+i2-sizeof(long)))=obp-i2;
|
---|
964 | *((long *)(OpBuffer+i4-sizeof(long)))=obp-i4;
|
---|
965 |
|
---|
966 | //jmp 5(ループ終了)
|
---|
967 | OpBuffer[obp++]=(char)0xEB;
|
---|
968 | OpBuffer[obp++]=(char)0x05;
|
---|
969 | }
|
---|
970 | }
|
---|
971 | else{
|
---|
972 | //pop eax
|
---|
973 | op_pop(REG_EAX);
|
---|
974 |
|
---|
975 | //cmp eax,0
|
---|
976 | OpBuffer[obp++]=(char)0x83;
|
---|
977 | OpBuffer[obp++]=(char)0xF8;
|
---|
978 | OpBuffer[obp++]=(char)0x00;
|
---|
979 |
|
---|
980 | if(basbuf[i3]=='0'){
|
---|
981 | //While
|
---|
982 |
|
---|
983 | //je 5(ループ終了)
|
---|
984 | OpBuffer[obp++]=(char)0x74;
|
---|
985 | OpBuffer[obp++]=(char)0x05;
|
---|
986 | }
|
---|
987 | else if(basbuf[i3]=='1'){
|
---|
988 | //Until
|
---|
989 |
|
---|
990 | //jne 5(ループ終了)
|
---|
991 | OpBuffer[obp++]=(char)0x75;
|
---|
992 | OpBuffer[obp++]=(char)0x05;
|
---|
993 | }
|
---|
994 | }
|
---|
995 | break;
|
---|
996 | }
|
---|
997 | }
|
---|
998 |
|
---|
999 | //jmp ...
|
---|
1000 | OpBuffer[obp++]=(char)0xE9;
|
---|
1001 | *((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
|
---|
1002 | obp+=sizeof(long);
|
---|
1003 |
|
---|
1004 | //jmp ...
|
---|
1005 | OpBuffer[obp++]=(char)0xE9;
|
---|
1006 | int je_schedule=obp;
|
---|
1007 | obp+=sizeof(long);
|
---|
1008 |
|
---|
1009 | //ExitDoスケジュール
|
---|
1010 | for(i=0;i<ExitDoScheduleNum;i++){
|
---|
1011 | *((long *)(OpBuffer+pExitDoSchedule[i]))=obp-(pExitDoSchedule[i]+sizeof(long));
|
---|
1012 | }
|
---|
1013 | HeapDefaultFree(pExitDoSchedule);
|
---|
1014 | pExitDoSchedule=lpdwTemp;
|
---|
1015 | ExitDoScheduleNum=TempNum;
|
---|
1016 |
|
---|
1017 | //レキシカルスコープをレベルダウン
|
---|
1018 | obj_LexScopes.LevelDown();
|
---|
1019 |
|
---|
1020 | *((long *)(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jmpジャンプ先のオフセット値
|
---|
1021 |
|
---|
1022 |
|
---|
1023 | //Continueアドレスを復元
|
---|
1024 | dwContinueAddress=dwTempContinue;
|
---|
1025 | }
|
---|
1026 | void OpcodeExitDo(void){
|
---|
1027 | extern HANDLE hHeap;
|
---|
1028 | extern DWORD *pExitDoSchedule;
|
---|
1029 | extern int ExitDoScheduleNum;
|
---|
1030 |
|
---|
1031 | if(!pExitDoSchedule){
|
---|
1032 | SetError(12,"Exit Do",cp);
|
---|
1033 | return;
|
---|
1034 | }
|
---|
1035 |
|
---|
1036 | //jmp ...(Loop addr)
|
---|
1037 | OpBuffer[obp++]=(char)0xE9;
|
---|
1038 |
|
---|
1039 | pExitDoSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitDoSchedule,(ExitDoScheduleNum+1)*sizeof(DWORD));
|
---|
1040 | pExitDoSchedule[ExitDoScheduleNum]=obp;
|
---|
1041 | ExitDoScheduleNum++;
|
---|
1042 |
|
---|
1043 | obp+=sizeof(long);
|
---|
1044 | }
|
---|
1045 | void OpcodeContinue(void){
|
---|
1046 | extern DWORD dwContinueAddress;
|
---|
1047 |
|
---|
1048 | if(dwContinueAddress==-1){
|
---|
1049 | SetError(12,"Continue",cp);
|
---|
1050 | return;
|
---|
1051 | }
|
---|
1052 |
|
---|
1053 | //jmp ...(Continue addr)
|
---|
1054 | OpBuffer[obp++]=(char)0xE9;
|
---|
1055 |
|
---|
1056 | *((long *)(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
|
---|
1057 | obp+=sizeof(long);
|
---|
1058 | }
|
---|
1059 |
|
---|
1060 | void OpcodeExitSub(void){
|
---|
1061 | extern DWORD *pExitSubSchedule;
|
---|
1062 | extern int ExitSubScheduleNum;
|
---|
1063 | extern HANDLE hHeap;
|
---|
1064 |
|
---|
1065 | extern BOOL bCompilingGlobal;
|
---|
1066 | if(bCompilingGlobal){
|
---|
1067 | SetError(12,"Exit Sub/Function",cp);
|
---|
1068 | return;
|
---|
1069 | }
|
---|
1070 |
|
---|
1071 | //jmp ...(End Sub/Function)
|
---|
1072 | OpBuffer[obp++]=(char)0xE9;
|
---|
1073 |
|
---|
1074 | pExitSubSchedule=(DWORD *)HeapReAlloc(hHeap,0,pExitSubSchedule,(ExitSubScheduleNum+1)*sizeof(DWORD));
|
---|
1075 | pExitSubSchedule[ExitSubScheduleNum]=obp;
|
---|
1076 | ExitSubScheduleNum++;
|
---|
1077 |
|
---|
1078 | obp+=sizeof(long);
|
---|
1079 | }
|
---|
1080 |
|
---|
1081 | void AddCaseSchedule(void){
|
---|
1082 | extern DWORD *pCaseSchedule;
|
---|
1083 | extern int CaseScheduleNum;
|
---|
1084 | extern HANDLE hHeap;
|
---|
1085 |
|
---|
1086 | pCaseSchedule=(DWORD *)HeapReAlloc(hHeap,0,pCaseSchedule,(CaseScheduleNum+1)*sizeof(DWORD));
|
---|
1087 | pCaseSchedule[CaseScheduleNum]=obp;
|
---|
1088 | CaseScheduleNum++;
|
---|
1089 | }
|
---|
1090 |
|
---|
1091 | int CaseTypeSize;
|
---|
1092 | void OpcodeSelect(char *Parameter){
|
---|
1093 | extern DWORD *pCaseSchedule;
|
---|
1094 | extern int CaseScheduleNum;
|
---|
1095 | extern int NowCaseSchedule;
|
---|
1096 | extern int CaseTypeSize;
|
---|
1097 | extern HANDLE hHeap;
|
---|
1098 | extern char *basbuf;
|
---|
1099 | int i,i2,i3,sw,type1,type2,NowCaseCp;
|
---|
1100 | char temporary[VN_SIZE];
|
---|
1101 |
|
---|
1102 | DWORD *temp_pCaseSchedule;
|
---|
1103 | int temp_CaseScheduleNum;
|
---|
1104 | int temp_NowCaseSchedule;
|
---|
1105 | int temp_CaseTypeSize;
|
---|
1106 |
|
---|
1107 | temp_pCaseSchedule=pCaseSchedule;
|
---|
1108 | temp_CaseScheduleNum=CaseScheduleNum;
|
---|
1109 | temp_NowCaseSchedule=NowCaseSchedule;
|
---|
1110 | temp_CaseTypeSize=CaseTypeSize;
|
---|
1111 | pCaseSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
|
---|
1112 | CaseScheduleNum=0;
|
---|
1113 | NowCaseSchedule=0;
|
---|
1114 |
|
---|
1115 | LONG_PTR lpIndex;
|
---|
1116 | type1=NumOpe(Parameter,0,0,&lpIndex);
|
---|
1117 | if(type1==DEF_INTEGER||
|
---|
1118 | type1==DEF_WORD||
|
---|
1119 | type1==DEF_CHAR||
|
---|
1120 | type1==DEF_BYTE) CaseTypeSize=sizeof(long);
|
---|
1121 | else{
|
---|
1122 | CaseTypeSize=GetTypeSize(type1,lpIndex);
|
---|
1123 | if(type1==DEF_OBJECT) CaseTypeSize=PTR_SIZE;
|
---|
1124 | }
|
---|
1125 |
|
---|
1126 | for(i=cp,sw=0;;i++){
|
---|
1127 | if(basbuf[i]=='\0'){
|
---|
1128 | HeapDefaultFree(pCaseSchedule);
|
---|
1129 | pCaseSchedule=temp_pCaseSchedule;
|
---|
1130 | CaseScheduleNum=temp_CaseScheduleNum;
|
---|
1131 | NowCaseSchedule=temp_NowCaseSchedule;
|
---|
1132 | CaseTypeSize=temp_CaseTypeSize;
|
---|
1133 | SetError(22,"Select",cp);
|
---|
1134 | return;
|
---|
1135 | }
|
---|
1136 | if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
|
---|
1137 | for(i2=0;;i++){
|
---|
1138 | if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
|
---|
1139 | if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
|
---|
1140 | i2--;
|
---|
1141 | if(i2==0) break;
|
---|
1142 | }
|
---|
1143 | }
|
---|
1144 | continue;
|
---|
1145 | }
|
---|
1146 | if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
|
---|
1147 | if(sw==0){
|
---|
1148 | //add esp,CaseTypeSize
|
---|
1149 | op_add_esp(CaseTypeSize);
|
---|
1150 | }
|
---|
1151 | break;
|
---|
1152 | }
|
---|
1153 | if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
|
---|
1154 | NowCaseCp=i;
|
---|
1155 |
|
---|
1156 | i++;
|
---|
1157 | while(1){
|
---|
1158 | for(i++,i2=0;;i++,i2++){
|
---|
1159 | if(basbuf[i]=='\"'){
|
---|
1160 | i3=GetStringInQuotation(temporary+i2,basbuf+i);
|
---|
1161 | i+=i3-1;
|
---|
1162 | i2+=i3-1;
|
---|
1163 | continue;
|
---|
1164 | }
|
---|
1165 | if(basbuf[i]=='('){
|
---|
1166 | i3=GetStringInPare(temporary+i2,basbuf+i);
|
---|
1167 | i+=i3-1;
|
---|
1168 | i2+=i3-1;
|
---|
1169 | continue;
|
---|
1170 | }
|
---|
1171 | if(basbuf[i]=='['){
|
---|
1172 | i3=GetStringInBracket(temporary+i2,basbuf+i);
|
---|
1173 | i+=i3-1;
|
---|
1174 | i2+=i3-1;
|
---|
1175 | continue;
|
---|
1176 | }
|
---|
1177 |
|
---|
1178 | if(IsCommandDelimitation(basbuf[i])){
|
---|
1179 | temporary[i2]=0;
|
---|
1180 | break;
|
---|
1181 | }
|
---|
1182 | if(basbuf[i]==','){
|
---|
1183 | temporary[i2]=0;
|
---|
1184 | break;
|
---|
1185 | }
|
---|
1186 |
|
---|
1187 | temporary[i2]=basbuf[i];
|
---|
1188 | }
|
---|
1189 |
|
---|
1190 | //エラー用
|
---|
1191 | i2=cp;
|
---|
1192 | cp=NowCaseCp;
|
---|
1193 |
|
---|
1194 | LONG_PTR lpIndex2;
|
---|
1195 | type2=NumOpe(temporary,type1,lpIndex,&lpIndex2);
|
---|
1196 |
|
---|
1197 | cp=i2;
|
---|
1198 |
|
---|
1199 | if(type1==DEF_OBJECT){
|
---|
1200 | CClass *pobj_c;
|
---|
1201 | pobj_c=(CClass *)lpIndex;
|
---|
1202 |
|
---|
1203 | SUBINFO **ppsi;
|
---|
1204 | int num;
|
---|
1205 | ppsi=pobj_c->GetOperatorSubInfo(CALC_EQUAL,num);
|
---|
1206 | if(num==0){
|
---|
1207 | HeapDefaultFree(ppsi);
|
---|
1208 |
|
---|
1209 | return;
|
---|
1210 | }
|
---|
1211 |
|
---|
1212 | PARAMETER_INFO *ppi = (PARAMETER_INFO *)HeapAlloc(hHeap,0,sizeof(PARAMETER_INFO)*3);
|
---|
1213 | int iParmNum=0;
|
---|
1214 | ppi[iParmNum].bArray=0;
|
---|
1215 | ppi[iParmNum].bByVal=0;
|
---|
1216 | ppi[iParmNum].name=0;
|
---|
1217 | ppi[iParmNum].type=type2;
|
---|
1218 | ppi[iParmNum].u.index=lpIndex2;
|
---|
1219 | ppi[iParmNum].SubScripts[0]=-1;
|
---|
1220 | iParmNum++;
|
---|
1221 |
|
---|
1222 | //オーバーロードを解決
|
---|
1223 | SUBINFO *psi;
|
---|
1224 | psi=OverloadSolution("==",ppsi,num,ppi,iParmNum,NULL);
|
---|
1225 | HeapDefaultFree(ppsi);
|
---|
1226 | HeapDefaultFree(ppi);
|
---|
1227 |
|
---|
1228 | if(!psi){
|
---|
1229 | //エラー
|
---|
1230 | return;
|
---|
1231 | }
|
---|
1232 |
|
---|
1233 |
|
---|
1234 | //pop edx
|
---|
1235 | op_pop(REG_EDX);
|
---|
1236 |
|
---|
1237 | //mov ecx,dword ptr[esp]
|
---|
1238 | op_mov_RM(sizeof(long),REG_ECX,REG_ESP,0,MOD_BASE);
|
---|
1239 |
|
---|
1240 | //push edx
|
---|
1241 | op_push(REG_EDX);
|
---|
1242 |
|
---|
1243 | //push ecx
|
---|
1244 | op_push(REG_ECX);
|
---|
1245 |
|
---|
1246 | //call operator_proc ※ ==演算子
|
---|
1247 | op_call(psi);
|
---|
1248 |
|
---|
1249 | //test eax,eax
|
---|
1250 | op_test(REG_EAX,REG_EAX);
|
---|
1251 |
|
---|
1252 | //jne ...
|
---|
1253 | OpBuffer[obp++]=(char)0x0F;
|
---|
1254 | OpBuffer[obp++]=(char)0x85;
|
---|
1255 | AddCaseSchedule();
|
---|
1256 | obp+=sizeof(long);
|
---|
1257 | }
|
---|
1258 | else if(type1==DEF_DOUBLE){
|
---|
1259 | ChangeTypeToDouble(type2);
|
---|
1260 |
|
---|
1261 | //fld qword ptr[esp]
|
---|
1262 | op_fld_ptr_esp(DEF_DOUBLE);
|
---|
1263 |
|
---|
1264 | //add esp,CaseTypeSize
|
---|
1265 | op_add_esp(CaseTypeSize);
|
---|
1266 |
|
---|
1267 | //fld qword ptr[esp]
|
---|
1268 | op_fld_ptr_esp(DEF_DOUBLE);
|
---|
1269 |
|
---|
1270 | //fcompp
|
---|
1271 | OpBuffer[obp++]=(char)0xDE;
|
---|
1272 | OpBuffer[obp++]=(char)0xD9;
|
---|
1273 |
|
---|
1274 | //fnstsw ax
|
---|
1275 | OpBuffer[obp++]=(char)0xDF;
|
---|
1276 | OpBuffer[obp++]=(char)0xE0;
|
---|
1277 |
|
---|
1278 | //test ah,40
|
---|
1279 | OpBuffer[obp++]=(char)0xF6;
|
---|
1280 | OpBuffer[obp++]=(char)0xC4;
|
---|
1281 | OpBuffer[obp++]=(char)0x40;
|
---|
1282 |
|
---|
1283 | //jne ...
|
---|
1284 | OpBuffer[obp++]=(char)0x0F;
|
---|
1285 | OpBuffer[obp++]=(char)0x85;
|
---|
1286 | AddCaseSchedule();
|
---|
1287 | obp+=sizeof(long);
|
---|
1288 | }
|
---|
1289 | else if(type1==DEF_SINGLE){
|
---|
1290 | ChangeTypeToSingle(type2);
|
---|
1291 |
|
---|
1292 | //fld dword ptr[esp]
|
---|
1293 | op_fld_ptr_esp(DEF_SINGLE);
|
---|
1294 |
|
---|
1295 | //add esp,CaseTypeSize
|
---|
1296 | op_add_esp(CaseTypeSize);
|
---|
1297 |
|
---|
1298 | //fld dword ptr[esp]
|
---|
1299 | op_fld_ptr_esp(DEF_SINGLE);
|
---|
1300 |
|
---|
1301 | //fcompp
|
---|
1302 | OpBuffer[obp++]=(char)0xDE;
|
---|
1303 | OpBuffer[obp++]=(char)0xD9;
|
---|
1304 |
|
---|
1305 | //fnstsw ax
|
---|
1306 | OpBuffer[obp++]=(char)0xDF;
|
---|
1307 | OpBuffer[obp++]=(char)0xE0;
|
---|
1308 |
|
---|
1309 | //test ah,40
|
---|
1310 | OpBuffer[obp++]=(char)0xF6;
|
---|
1311 | OpBuffer[obp++]=(char)0xC4;
|
---|
1312 | OpBuffer[obp++]=(char)0x40;
|
---|
1313 |
|
---|
1314 | //jne ...
|
---|
1315 | OpBuffer[obp++]=(char)0x0F;
|
---|
1316 | OpBuffer[obp++]=(char)0x85;
|
---|
1317 | AddCaseSchedule();
|
---|
1318 | obp+=sizeof(long);
|
---|
1319 | }
|
---|
1320 | else{
|
---|
1321 | //その他整数型
|
---|
1322 |
|
---|
1323 | //pop ebx
|
---|
1324 | op_pop(REG_EBX);
|
---|
1325 |
|
---|
1326 | //mov eax,dword ptr[esp]
|
---|
1327 | OpBuffer[obp++]=(char)0x8B;
|
---|
1328 | OpBuffer[obp++]=(char)0x04;
|
---|
1329 | OpBuffer[obp++]=(char)0x24;
|
---|
1330 |
|
---|
1331 | //cmp eax,ebx
|
---|
1332 | OpBuffer[obp++]=(char)0x3B;
|
---|
1333 | OpBuffer[obp++]=(char)0xC3;
|
---|
1334 |
|
---|
1335 | //je ...
|
---|
1336 | OpBuffer[obp++]=(char)0x0F;
|
---|
1337 | OpBuffer[obp++]=(char)0x84;
|
---|
1338 | AddCaseSchedule();
|
---|
1339 | obp+=sizeof(long);
|
---|
1340 | }
|
---|
1341 |
|
---|
1342 | if(basbuf[i]!=',') break;
|
---|
1343 | }
|
---|
1344 | }
|
---|
1345 | if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
|
---|
1346 | sw=1;
|
---|
1347 |
|
---|
1348 | //jmp ...
|
---|
1349 | OpBuffer[obp++]=(char)0xE9;
|
---|
1350 | AddCaseSchedule();
|
---|
1351 | obp+=sizeof(long);
|
---|
1352 | }
|
---|
1353 | }
|
---|
1354 |
|
---|
1355 | //レキシカルスコープをレベルアップ
|
---|
1356 | obj_LexScopes.LevelUp(obp);
|
---|
1357 |
|
---|
1358 | //Select Case内をコンパイル
|
---|
1359 | CompileBuffer(ESC_ENDSELECT,0);
|
---|
1360 |
|
---|
1361 | //jmp EndSelect
|
---|
1362 | OpBuffer[obp++]=(char)0xE9;
|
---|
1363 | AddCaseSchedule();
|
---|
1364 | obp+=sizeof(long);
|
---|
1365 |
|
---|
1366 | //最終スケジュール
|
---|
1367 | for(i=NowCaseSchedule;i<CaseScheduleNum;i++){
|
---|
1368 | *(long *)(OpBuffer+pCaseSchedule[i])=obp-(pCaseSchedule[i]+sizeof(long));
|
---|
1369 | }
|
---|
1370 | HeapDefaultFree(pCaseSchedule);
|
---|
1371 |
|
---|
1372 | //レキシカルスコープをレベルダウン
|
---|
1373 | obj_LexScopes.LevelDown();
|
---|
1374 |
|
---|
1375 | pCaseSchedule=temp_pCaseSchedule;
|
---|
1376 | CaseScheduleNum=temp_CaseScheduleNum;
|
---|
1377 | NowCaseSchedule=temp_NowCaseSchedule;
|
---|
1378 | CaseTypeSize=temp_CaseTypeSize;
|
---|
1379 | }
|
---|
1380 | void OpcodeCase(char *Parameter){
|
---|
1381 | extern DWORD *pCaseSchedule;
|
---|
1382 | extern int NowCaseSchedule;
|
---|
1383 | extern int CaseTypeSize;
|
---|
1384 | int i;
|
---|
1385 |
|
---|
1386 | if(!pCaseSchedule){
|
---|
1387 | SetError(30,"Case",cp);
|
---|
1388 | return;
|
---|
1389 | }
|
---|
1390 |
|
---|
1391 | //jmp EndSelect
|
---|
1392 | OpBuffer[obp++]=(char)0xE9;
|
---|
1393 | AddCaseSchedule();
|
---|
1394 | obp+=sizeof(long);
|
---|
1395 |
|
---|
1396 | i=0;
|
---|
1397 | while(1){
|
---|
1398 | //Caseスケジュール
|
---|
1399 | *(long *)(OpBuffer+pCaseSchedule[NowCaseSchedule])=obp-(pCaseSchedule[NowCaseSchedule]+sizeof(long));
|
---|
1400 | NowCaseSchedule++;
|
---|
1401 |
|
---|
1402 | i=JumpOneParameter(Parameter,i);
|
---|
1403 | if(Parameter[i]=='\0') break;
|
---|
1404 | }
|
---|
1405 |
|
---|
1406 | //add esp,CaseTypeSize
|
---|
1407 | op_add_esp(CaseTypeSize);
|
---|
1408 | }
|
---|
1409 |
|
---|
1410 | void OpcodeGosub(char *Parameter){
|
---|
1411 | extern HANDLE hHeap;
|
---|
1412 | extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
|
---|
1413 | extern int GotoLabelScheduleNum;
|
---|
1414 | int i,LineNum;
|
---|
1415 |
|
---|
1416 | if(Parameter[0]=='*'){
|
---|
1417 | i=GetLabelAddress(Parameter+1,0);
|
---|
1418 |
|
---|
1419 | //call ...
|
---|
1420 | OpBuffer[obp++]=(char)0xE8;
|
---|
1421 | if(i==-1){
|
---|
1422 | pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
|
---|
1423 | pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
|
---|
1424 | lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
|
---|
1425 | pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
|
---|
1426 | pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
|
---|
1427 | GotoLabelScheduleNum++;
|
---|
1428 | }
|
---|
1429 | *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
|
---|
1430 | obp+=sizeof(long);
|
---|
1431 | }
|
---|
1432 | else{
|
---|
1433 | LineNum=atoi(Parameter);
|
---|
1434 | i=GetLabelAddress(0,LineNum);
|
---|
1435 |
|
---|
1436 | //call ...
|
---|
1437 | OpBuffer[obp++]=(char)0xE8;
|
---|
1438 | if(i==-1){
|
---|
1439 | pGotoLabelSchedule=(GOTOLABELSCHEDULE *)HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)*sizeof(GOTOLABELSCHEDULE));
|
---|
1440 | pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
|
---|
1441 | pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
|
---|
1442 | pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
|
---|
1443 | pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
|
---|
1444 | GotoLabelScheduleNum++;
|
---|
1445 | }
|
---|
1446 | *((long *)(OpBuffer+obp))=i-(obp+sizeof(long));
|
---|
1447 | obp+=sizeof(long);
|
---|
1448 | }
|
---|
1449 | }
|
---|
1450 | void OpcodeReturn(char *Parameter){
|
---|
1451 | extern BOOL bCompilingGlobal;
|
---|
1452 | if(bCompilingGlobal){
|
---|
1453 | //Gosub~Returnとして扱う
|
---|
1454 |
|
---|
1455 | //ret
|
---|
1456 | OpBuffer[obp++]=(char)0xC3;
|
---|
1457 | }
|
---|
1458 | else{
|
---|
1459 | //戻り値をセット
|
---|
1460 | if(Parameter[0]){
|
---|
1461 | extern SUBINFO *pCompilingSubInfo;
|
---|
1462 | char *temp;
|
---|
1463 | if(pCompilingSubInfo->name[0]==1&&pCompilingSubInfo->name[1]==ESC_OPERATOR)
|
---|
1464 | temp="_System_ReturnValue";
|
---|
1465 | else temp=pCompilingSubInfo->name;
|
---|
1466 |
|
---|
1467 | char temporary[VN_SIZE];
|
---|
1468 | sprintf(temporary,"%s=%s",temp,Parameter);
|
---|
1469 | OpcodeCalc(temporary);
|
---|
1470 | }
|
---|
1471 |
|
---|
1472 | //プロシージャを抜け出す(C言語のreturnと同様の処理を行う)
|
---|
1473 | OpcodeExitSub();
|
---|
1474 | }
|
---|
1475 | }
|
---|
1476 |
|
---|
1477 | void Opcode_Input(char *Parameter){
|
---|
1478 | extern int cp;
|
---|
1479 | int i2,i3,i4,i5,type;
|
---|
1480 | BOOL bFile;
|
---|
1481 | char temporary[VN_SIZE],temp2[VN_SIZE],buffer[VN_SIZE];
|
---|
1482 |
|
---|
1483 | KillStringSpaces(Parameter);
|
---|
1484 |
|
---|
1485 | if(Parameter[0]=='#'){
|
---|
1486 | bFile=1;
|
---|
1487 | for(i2=0,i3=1;;i2++,i3++){
|
---|
1488 | buffer[i2]=Parameter[i3];
|
---|
1489 | if(Parameter[i3]==','||Parameter[i3]=='\0') break;
|
---|
1490 | }
|
---|
1491 | buffer[i2+1]=0;
|
---|
1492 | i2=i3+1;
|
---|
1493 | }
|
---|
1494 | else{
|
---|
1495 | bFile=0;
|
---|
1496 | i2=0;
|
---|
1497 | buffer[0]=0;
|
---|
1498 |
|
---|
1499 | //表示用文字列パラメータをセット
|
---|
1500 | if(Parameter[0]=='\"'){
|
---|
1501 | buffer[0]='\"';
|
---|
1502 | for(i2=1;;i2++){
|
---|
1503 | if(Parameter[i2]=='\"'){
|
---|
1504 | buffer[i2]=0;
|
---|
1505 | break;
|
---|
1506 | }
|
---|
1507 | buffer[i2]=Parameter[i2];
|
---|
1508 | }
|
---|
1509 | if(Parameter[i2+1]==';') lstrcpy(buffer+i2,"? \"");
|
---|
1510 | else if(Parameter[i2+1]==',') lstrcpy(buffer+i2,"\"");
|
---|
1511 | else SetError(10,"Input",cp);
|
---|
1512 | i2+=2;
|
---|
1513 | }
|
---|
1514 | else if((Parameter[0]=='e'||Parameter[0]=='E')&&
|
---|
1515 | (Parameter[1]=='x'||Parameter[1]=='X')&&
|
---|
1516 | Parameter[2]=='\"'){
|
---|
1517 | memcpy(buffer,Parameter,3);
|
---|
1518 | for(i2=3;;i2++){
|
---|
1519 | if(Parameter[i2]=='\"'){
|
---|
1520 | buffer[i2]=0;
|
---|
1521 | break;
|
---|
1522 | }
|
---|
1523 | buffer[i2]=Parameter[i2];
|
---|
1524 | }
|
---|
1525 | if(Parameter[i2+1]==';') lstrcpy(buffer+i2,"? \"");
|
---|
1526 | else if(Parameter[i2+1]==',') lstrcpy(buffer+i2,"\"");
|
---|
1527 | else SetError(10,"Input",cp);
|
---|
1528 | i2+=2;
|
---|
1529 | }
|
---|
1530 | else{
|
---|
1531 | lstrcpy(buffer,"\"? \"");
|
---|
1532 | i2=0;
|
---|
1533 | }
|
---|
1534 | }
|
---|
1535 |
|
---|
1536 | //変数ポインタ、変数のタイプをセット
|
---|
1537 | i4=0;
|
---|
1538 | while(1){
|
---|
1539 | for(i3=0;;i2++,i3++){
|
---|
1540 | if(Parameter[i2]=='('){
|
---|
1541 | i5=GetStringInPare(temporary+i3,Parameter+i2);
|
---|
1542 | i2+=i5-1;
|
---|
1543 | i3+=i5-1;
|
---|
1544 | }
|
---|
1545 | if(Parameter[i2]=='['){
|
---|
1546 | i5=GetStringInBracket(temporary+i3,Parameter+i2);
|
---|
1547 | i2+=i5-1;
|
---|
1548 | i3+=i5-1;
|
---|
1549 | }
|
---|
1550 | if(Parameter[i2]==','){
|
---|
1551 | temporary[i3]=0;
|
---|
1552 | i2++;
|
---|
1553 | break;
|
---|
1554 | }
|
---|
1555 | temporary[i3]=Parameter[i2];
|
---|
1556 | if(Parameter[i2]=='\0') break;
|
---|
1557 | }
|
---|
1558 | if(temporary[0]=='\0'){
|
---|
1559 | SetError(10,"Input",cp);
|
---|
1560 | return;
|
---|
1561 | }
|
---|
1562 |
|
---|
1563 | LONG_PTR lpIndex;
|
---|
1564 | type = GetVarType(temporary,&lpIndex,1);
|
---|
1565 |
|
---|
1566 | sprintf(temp2,"_System_InputDataPtr[%d]=VarPtr(%s)",i4,temporary);
|
---|
1567 | OpcodeCalc(temp2);
|
---|
1568 |
|
---|
1569 | if(type==DEF_LONG) type=DEF_DWORD;
|
---|
1570 | else if(type==DEF_INTEGER) type=DEF_WORD;
|
---|
1571 | else if(type==DEF_OBJECT){
|
---|
1572 | CClass *pobj_Class=(CClass *)lpIndex;
|
---|
1573 | if(lstrcmp(pobj_Class->name,"String")==0) type=DEF_STRING;
|
---|
1574 | }
|
---|
1575 | sprintf(temp2,"_System_InputDataType[%d]=%d",i4,type);
|
---|
1576 | OpcodeCalc(temp2);
|
---|
1577 |
|
---|
1578 | i4++;
|
---|
1579 | if(Parameter[i2]=='\0') break;
|
---|
1580 | }
|
---|
1581 | sprintf(temp2,"_System_InputDataPtr[%d]=0",i4);
|
---|
1582 | OpcodeCalc(temp2);
|
---|
1583 |
|
---|
1584 | SUBINFO *psi;
|
---|
1585 | if(bFile) psi=GetSubHash("INPUT_FromFile");
|
---|
1586 | else psi=GetSubHash("INPUT_FromPrompt");
|
---|
1587 | if(!psi){
|
---|
1588 | SetError(3,"Input",cp);
|
---|
1589 | return;
|
---|
1590 | }
|
---|
1591 | Opcode_CallProc(buffer,psi,0,"",0);
|
---|
1592 | }
|
---|
1593 | void Opcode_PrintUsing(char *Parameter,char *buffer,BOOL bFile){
|
---|
1594 | extern int cp;
|
---|
1595 | int i2,i3,i4,i5;
|
---|
1596 | char temporary[VN_SIZE],temp2[8192];
|
---|
1597 | BOOL bReturnLine;
|
---|
1598 |
|
---|
1599 | i2=lstrlen(Parameter);
|
---|
1600 | if(Parameter[i2-1]==';'){
|
---|
1601 | bReturnLine=0;
|
---|
1602 | Parameter[i2-1]=0;
|
---|
1603 | }
|
---|
1604 | else bReturnLine=1;
|
---|
1605 |
|
---|
1606 | i3=lstrlen(buffer);
|
---|
1607 | for(i2=0;;i2++,i3++){
|
---|
1608 | if(Parameter[i2]==';'){
|
---|
1609 | buffer[i3]=0;
|
---|
1610 | break;
|
---|
1611 | }
|
---|
1612 | buffer[i3]=Parameter[i2];
|
---|
1613 | if(Parameter[i2]=='\0') break;
|
---|
1614 | }
|
---|
1615 | if(Parameter[i2]==';') i2++;
|
---|
1616 |
|
---|
1617 | if(bReturnLine) lstrcat(buffer,"+Ex\"\\r\\n\"");
|
---|
1618 |
|
---|
1619 | //データポインタ、データのタイプをセット
|
---|
1620 | i4=0;
|
---|
1621 | while(1){
|
---|
1622 | for(i3=0;;i2++,i3++){
|
---|
1623 | if(Parameter[i2]=='\"'){
|
---|
1624 | temporary[i3]=Parameter[i2];
|
---|
1625 | for(i2++,i3++;;i2++,i3++){
|
---|
1626 | temporary[i3]=Parameter[i2];
|
---|
1627 | if(Parameter[i2]=='\"') break;
|
---|
1628 | }
|
---|
1629 | continue;
|
---|
1630 | }
|
---|
1631 | if(Parameter[i2]=='('){
|
---|
1632 | i5=GetStringInPare(temporary+i3,Parameter+i2);
|
---|
1633 | i2+=i5-1;
|
---|
1634 | i3+=i5-1;
|
---|
1635 | continue;
|
---|
1636 | }
|
---|
1637 | if(Parameter[i2]=='['){
|
---|
1638 | i5=GetStringInBracket(temporary+i3,Parameter+i2);
|
---|
1639 | i2+=i5-1;
|
---|
1640 | i3+=i5-1;
|
---|
1641 | continue;
|
---|
1642 | }
|
---|
1643 | if(Parameter[i2]==','){
|
---|
1644 | temporary[i3]=0;
|
---|
1645 | i2++;
|
---|
1646 | break;
|
---|
1647 | }
|
---|
1648 | temporary[i3]=Parameter[i2];
|
---|
1649 | if(Parameter[i2]=='\0') break;
|
---|
1650 | }
|
---|
1651 | if(temporary[0]=='\0'){
|
---|
1652 | SetError(10,"Print",cp);
|
---|
1653 | return;
|
---|
1654 | }
|
---|
1655 |
|
---|
1656 | int iResult;
|
---|
1657 | iResult=IsStrCalculation(temporary);
|
---|
1658 |
|
---|
1659 | if(iResult==1){
|
---|
1660 | //文字列
|
---|
1661 | sprintf(temp2,"_System_UsingStrData[%d]=%s",i4,temporary);
|
---|
1662 | OpcodeCalc(temp2);
|
---|
1663 |
|
---|
1664 | sprintf(temp2,"_System_UsingDataType[%d]=%d",i4,DEF_STRING);
|
---|
1665 | OpcodeCalc(temp2);
|
---|
1666 | }
|
---|
1667 | else if(iResult==0){
|
---|
1668 | //数値
|
---|
1669 | sprintf(temp2,"_System_UsingDblData[%d]=%s",i4,temporary);
|
---|
1670 | OpcodeCalc(temp2);
|
---|
1671 |
|
---|
1672 | sprintf(temp2,"_System_UsingDataType[%d]=%d",i4,DEF_DOUBLE);
|
---|
1673 | OpcodeCalc(temp2);
|
---|
1674 | }
|
---|
1675 | //else if(iResult==-1) エラー
|
---|
1676 |
|
---|
1677 | i4++;
|
---|
1678 | if(Parameter[i2]=='\0') break;
|
---|
1679 | }
|
---|
1680 | sprintf(temp2,"_System_UsingDataType[%d]=-1",i4);
|
---|
1681 | OpcodeCalc(temp2);
|
---|
1682 |
|
---|
1683 | SUBINFO *psi;
|
---|
1684 | if(bFile) psi=GetSubHash("PRINTUSING_ToFile");
|
---|
1685 | else psi=GetSubHash("PRINTUSING_ToPrompt");
|
---|
1686 | if(!psi){
|
---|
1687 | SetError(3,"Print",cp);
|
---|
1688 | return;
|
---|
1689 | }
|
---|
1690 | Opcode_CallProc(buffer,psi,0,"",0);
|
---|
1691 | }
|
---|
1692 | void Opcode_Print(char *Parameter,BOOL bWrite){
|
---|
1693 | int i2,i3,i4,sw;
|
---|
1694 | char temporary[VN_SIZE],buffer[VN_SIZE];
|
---|
1695 | BOOL bFile;
|
---|
1696 |
|
---|
1697 | KillStringSpaces(Parameter);
|
---|
1698 |
|
---|
1699 | if(Parameter[0]=='#'){
|
---|
1700 | bFile=1;
|
---|
1701 | for(i2=0,i3=1;;i2++,i3++){
|
---|
1702 | buffer[i2]=Parameter[i3];
|
---|
1703 | if(Parameter[i3]==','||Parameter[i3]=='\0') break;
|
---|
1704 | }
|
---|
1705 | buffer[i2+1]=0;
|
---|
1706 | if(Parameter[i3]==',') i3++;
|
---|
1707 | i2=i3;
|
---|
1708 | }
|
---|
1709 | else{
|
---|
1710 | bFile=0;
|
---|
1711 | i2=0;
|
---|
1712 | buffer[0]=0;
|
---|
1713 | }
|
---|
1714 | if(Parameter[i2]==1&&Parameter[i2+1]==ESC_USING){
|
---|
1715 | Opcode_PrintUsing(Parameter+i2+2,buffer,bFile);
|
---|
1716 | return;
|
---|
1717 | }
|
---|
1718 |
|
---|
1719 | lstrcat(buffer,"_System_DummyStr+");
|
---|
1720 |
|
---|
1721 | sw=1;
|
---|
1722 | while(1){
|
---|
1723 | for(i3=0;;i2++,i3++){
|
---|
1724 | if(Parameter[i2]=='\"'){
|
---|
1725 | temporary[i3]=Parameter[i2];
|
---|
1726 | for(i2++,i3++;;i2++,i3++){
|
---|
1727 | temporary[i3]=Parameter[i2];
|
---|
1728 | if(Parameter[i2]=='\"') break;
|
---|
1729 | }
|
---|
1730 | continue;
|
---|
1731 | }
|
---|
1732 | if(Parameter[i2]=='('){
|
---|
1733 | i4=GetStringInPare(temporary+i3,Parameter+i2);
|
---|
1734 | i2+=i4-1;
|
---|
1735 | i3+=i4-1;
|
---|
1736 | continue;
|
---|
1737 | }
|
---|
1738 | if(Parameter[i2]=='['){
|
---|
1739 | i4=GetStringInBracket(temporary+i3,Parameter+i2);
|
---|
1740 | i2+=i4-1;
|
---|
1741 | i3+=i4-1;
|
---|
1742 | continue;
|
---|
1743 | }
|
---|
1744 | if(Parameter[i2]==','||Parameter[i2]==';'){
|
---|
1745 | temporary[i3]=0;
|
---|
1746 | break;
|
---|
1747 | }
|
---|
1748 | temporary[i3]=Parameter[i2];
|
---|
1749 | if(Parameter[i2]=='\0') break;
|
---|
1750 | }
|
---|
1751 |
|
---|
1752 | if(temporary[0]=='\0') lstrcat(buffer,"\"\"");
|
---|
1753 | else{
|
---|
1754 | int iResult;
|
---|
1755 | iResult=IsStrCalculation(temporary);
|
---|
1756 | if(iResult==-1){
|
---|
1757 | //エラー
|
---|
1758 | lstrcat(buffer,"\"\"");
|
---|
1759 | }
|
---|
1760 | else if(iResult){
|
---|
1761 | //文字列
|
---|
1762 | lstrcat(buffer,temporary);
|
---|
1763 | }
|
---|
1764 | else{
|
---|
1765 | //数値
|
---|
1766 | sprintf(buffer+lstrlen(buffer),"Str$(%s)",temporary);
|
---|
1767 | }
|
---|
1768 | }
|
---|
1769 |
|
---|
1770 | if(Parameter[i2]==','){
|
---|
1771 | if(bWrite) lstrcat(buffer,"+\",\"+");
|
---|
1772 | else lstrcat(buffer,"+\"\t\"+");
|
---|
1773 | }
|
---|
1774 | else if(Parameter[i2]==';'){
|
---|
1775 | if(Parameter[i2+1]=='\0'){
|
---|
1776 | sw=0;
|
---|
1777 | break;
|
---|
1778 | }
|
---|
1779 | if(bWrite) lstrcat(buffer,"+\",\"+");
|
---|
1780 | else lstrcat(buffer,"+\" \"+");
|
---|
1781 | }
|
---|
1782 | else if(Parameter[i2]=='\0') break;
|
---|
1783 |
|
---|
1784 | i2++;
|
---|
1785 | }
|
---|
1786 |
|
---|
1787 | if(sw) lstrcat(buffer,"+Ex\"\\r\\n\"");
|
---|
1788 |
|
---|
1789 | SUBINFO *psi;
|
---|
1790 | if(bFile) psi=GetSubHash("PRINT_ToFile");
|
---|
1791 | else psi=GetSubHash("PRINT_ToPrompt");
|
---|
1792 | if(!psi){
|
---|
1793 | SetError(3,"Print",cp);
|
---|
1794 | return;
|
---|
1795 | }
|
---|
1796 | Opcode_CallProc(buffer,psi,0,"",0);
|
---|
1797 | }
|
---|
1798 |
|
---|
1799 |
|
---|
1800 |
|
---|
1801 |
|
---|
1802 | ////////////
|
---|
1803 | // ポインタ
|
---|
1804 |
|
---|
1805 | void OpcodeCallPtr(char *Parameter){
|
---|
1806 | extern HANDLE hHeap;
|
---|
1807 | int i,i2,i3,num,types[255];
|
---|
1808 | BOOL bCdecl;
|
---|
1809 | char szFuncPtr[VN_SIZE],temporary[VN_SIZE],*Parms[255];
|
---|
1810 |
|
---|
1811 | //関数ポインタを取得
|
---|
1812 | i=GetOneParameter(Parameter,0,szFuncPtr);
|
---|
1813 |
|
---|
1814 | if(lstrcmpi(szFuncPtr,"cdecl")==0){
|
---|
1815 | //cdeclが指定された場合は、第2パラメータを関数ポインタとして扱う
|
---|
1816 | bCdecl=1;
|
---|
1817 |
|
---|
1818 | i=GetOneParameter(Parameter,i,szFuncPtr);
|
---|
1819 | }
|
---|
1820 | else bCdecl=0;
|
---|
1821 |
|
---|
1822 | if(Parameter[0]=='\0'){
|
---|
1823 | SetError(10,"CallPtr",cp);
|
---|
1824 | }
|
---|
1825 |
|
---|
1826 | num=0;
|
---|
1827 | while(Parameter[i]){
|
---|
1828 | i=GetOneParameter(Parameter,i,temporary);
|
---|
1829 |
|
---|
1830 | types[num]=DEF_LONG;
|
---|
1831 |
|
---|
1832 | for(i2=0;;i2++){
|
---|
1833 | if(temporary[i2]=='\0') break;
|
---|
1834 | if(temporary[i2]==1&&temporary[i2+1]==ESC_AS){
|
---|
1835 | LONG_PTR lp;
|
---|
1836 | types[num]=GetTypeFixed(temporary+i2+2,&lp);
|
---|
1837 |
|
---|
1838 | if(types[num]==DEF_OBJECT){
|
---|
1839 | SetError(11,temporary+i2+2,cp);
|
---|
1840 | }
|
---|
1841 |
|
---|
1842 | temporary[i2]=0;
|
---|
1843 | break;
|
---|
1844 | }
|
---|
1845 | }
|
---|
1846 |
|
---|
1847 | Parms[num]=(char *)HeapAlloc(hHeap,0,lstrlen(temporary)+1);
|
---|
1848 | lstrcpy(Parms[num],temporary);
|
---|
1849 |
|
---|
1850 | num++;
|
---|
1851 | }
|
---|
1852 |
|
---|
1853 | int ParmSize=0;
|
---|
1854 |
|
---|
1855 | for(i=num-1;i>=0;i--){
|
---|
1856 | //スタックへプッシュ
|
---|
1857 | i3=NumOpe(Parms[i],0,0,0);
|
---|
1858 |
|
---|
1859 | switch(types[i]){
|
---|
1860 | case DEF_INT64:
|
---|
1861 | case DEF_QWORD:
|
---|
1862 | ChangeTypeToInt64(i3);
|
---|
1863 | break;
|
---|
1864 | case DEF_SINGLE:
|
---|
1865 | ChangeTypeToSingle(i3);
|
---|
1866 | break;
|
---|
1867 | case DEF_DOUBLE:
|
---|
1868 | ChangeTypeToDouble(i3);
|
---|
1869 | break;
|
---|
1870 |
|
---|
1871 | default:
|
---|
1872 | ChangeTypeToLong(i3);
|
---|
1873 | break;
|
---|
1874 | }
|
---|
1875 |
|
---|
1876 | ParmSize+=GetTypeSize(types[i],0);
|
---|
1877 |
|
---|
1878 | HeapDefaultFree(Parms[i]);
|
---|
1879 | }
|
---|
1880 |
|
---|
1881 | i3=NumOpe(szFuncPtr,0,0,0);
|
---|
1882 | ChangeTypeToLong(i3);
|
---|
1883 |
|
---|
1884 | //pop eax
|
---|
1885 | op_pop(REG_EAX);
|
---|
1886 |
|
---|
1887 | //call eax
|
---|
1888 | OpBuffer[obp++]=(char)0xFF;
|
---|
1889 | OpBuffer[obp++]=(char)0xD0;
|
---|
1890 |
|
---|
1891 | if(bCdecl){
|
---|
1892 | //スタックを戻す
|
---|
1893 |
|
---|
1894 | //add esp,ParmSize
|
---|
1895 | op_add_esp(ParmSize);
|
---|
1896 | }
|
---|
1897 | }
|
---|
1898 |
|
---|
1899 | void OpcodeSetPtrData(char *Parameter,int type){
|
---|
1900 | int i,i2;
|
---|
1901 | char temporary[VN_SIZE];
|
---|
1902 |
|
---|
1903 | if(Parameter[0]=='('){
|
---|
1904 | i=JumpStringInPare(Parameter,1);
|
---|
1905 | if(Parameter[i+1]=='\0'){
|
---|
1906 | for(i=0;;i++){
|
---|
1907 | Parameter[i]=Parameter[i+1];
|
---|
1908 | if(Parameter[i]=='\0') break;
|
---|
1909 | }
|
---|
1910 | Parameter[i-1]=0;
|
---|
1911 | }
|
---|
1912 | }
|
---|
1913 |
|
---|
1914 | //第1パラメータを取得
|
---|
1915 | i=GetOneParameter(Parameter,0,temporary);
|
---|
1916 | if(!Parameter[i]){
|
---|
1917 | SetError(1,NULL,cp);
|
---|
1918 | return;
|
---|
1919 | }
|
---|
1920 |
|
---|
1921 | i2=NumOpe(temporary,0,0,0);
|
---|
1922 | ChangeTypeToLong(i2);
|
---|
1923 |
|
---|
1924 | //第2パラメータを取得
|
---|
1925 | i=GetOneParameter(Parameter,i,temporary);
|
---|
1926 | if(Parameter[i]){
|
---|
1927 | SetError(1,NULL,cp);
|
---|
1928 | return;
|
---|
1929 | }
|
---|
1930 |
|
---|
1931 | i2=NumOpe(temporary,0,0,0);
|
---|
1932 | if(type==DEF_DOUBLE){
|
---|
1933 | ChangeTypeToDouble_ToFpuReg(i2);
|
---|
1934 |
|
---|
1935 | //pop eax
|
---|
1936 | op_pop(REG_EAX);
|
---|
1937 |
|
---|
1938 | //fstp qword ptr[eax]
|
---|
1939 | OpBuffer[obp++]=(char)0xDD;
|
---|
1940 | OpBuffer[obp++]=(char)0x18;
|
---|
1941 | }
|
---|
1942 | else if(type==DEF_SINGLE){
|
---|
1943 | ChangeTypeToSingle(i2);
|
---|
1944 |
|
---|
1945 | //pop ebx
|
---|
1946 | op_pop(REG_EBX);
|
---|
1947 |
|
---|
1948 | //pop eax
|
---|
1949 | op_pop(REG_EAX);
|
---|
1950 |
|
---|
1951 | //mov dword ptr[eax],ebx
|
---|
1952 | OpBuffer[obp++]=(char)0x89;
|
---|
1953 | OpBuffer[obp++]=(char)0x18;
|
---|
1954 | }
|
---|
1955 | else if(type==DEF_QWORD){
|
---|
1956 | ChangeTypeToInt64(i2);
|
---|
1957 |
|
---|
1958 | //pop ecx
|
---|
1959 | op_pop(REG_ECX);
|
---|
1960 |
|
---|
1961 | //pop ebx
|
---|
1962 | op_pop(REG_EBX);
|
---|
1963 |
|
---|
1964 | //pop eax
|
---|
1965 | op_pop(REG_EAX);
|
---|
1966 |
|
---|
1967 | //mov dword ptr[eax],ecx
|
---|
1968 | OpBuffer[obp++]=(char)0x89;
|
---|
1969 | OpBuffer[obp++]=(char)0x08;
|
---|
1970 |
|
---|
1971 | //mov dword ptr[eax+sizeof(long)],ebx
|
---|
1972 | OpBuffer[obp++]=(char)0x89;
|
---|
1973 | OpBuffer[obp++]=(char)0x58;
|
---|
1974 | OpBuffer[obp++]=(char)0x04;
|
---|
1975 | }
|
---|
1976 | else if(type==DEF_DWORD){
|
---|
1977 | ChangeTypeToLong(i2);
|
---|
1978 |
|
---|
1979 | //pop ebx
|
---|
1980 | op_pop(REG_EBX);
|
---|
1981 |
|
---|
1982 | //pop eax
|
---|
1983 | op_pop(REG_EAX);
|
---|
1984 |
|
---|
1985 | //mov dword ptr[eax],ebx
|
---|
1986 | OpBuffer[obp++]=(char)0x89;
|
---|
1987 | OpBuffer[obp++]=(char)0x18;
|
---|
1988 | }
|
---|
1989 | else if(type==DEF_WORD){
|
---|
1990 | ChangeTypeToLong(i2);
|
---|
1991 |
|
---|
1992 | //pop ebx
|
---|
1993 | op_pop(REG_EBX);
|
---|
1994 |
|
---|
1995 | //pop eax
|
---|
1996 | op_pop(REG_EAX);
|
---|
1997 |
|
---|
1998 | //mov word ptr[eax],bx
|
---|
1999 | OpBuffer[obp++]=(char)0x66;
|
---|
2000 | OpBuffer[obp++]=(char)0x89;
|
---|
2001 | OpBuffer[obp++]=(char)0x18;
|
---|
2002 | }
|
---|
2003 | else if(type==DEF_BYTE){
|
---|
2004 | ChangeTypeToLong(i2);
|
---|
2005 |
|
---|
2006 | //pop ebx
|
---|
2007 | op_pop(REG_EBX);
|
---|
2008 |
|
---|
2009 | //pop eax
|
---|
2010 | op_pop(REG_EAX);
|
---|
2011 |
|
---|
2012 | //mov byte ptr[eax],bl
|
---|
2013 | OpBuffer[obp++]=(char)0x88;
|
---|
2014 | OpBuffer[obp++]=(char)0x18;
|
---|
2015 | }
|
---|
2016 | }
|
---|