Context Navigation

Compile_Statement.cpp@ 154

Last change on this file since 154 was 142, checked in by dai_9181, 17 years ago
op_ret関数を用意した
File size: 30.8 KB

Line
1	#include "../BasicCompiler_Common/common.h"
2	#include "Opcode.h"
3
4	void OpcodeOthers( const char *Command ){
5	int i,i2;
6	UserProc *pUserProc;
7
8	char leftTerm[8192];
9	int lastParePos = 0;
10	for(i=0;;i++){
11	if(Command[i]=='\"'){
12	//ダブルクォートは不正なのでエラー扱い
13	leftTerm[i]=0;
14	SetError(3,leftTerm,cp);
15	return;
16	}
17
18	if(Command[i]=='('){
19	lastParePos = i;
20	i2=GetStringInPare(leftTerm+i,Command+i);
21	i+=i2-1;
22	continue;
23	}
24	if(Command[i]=='['){
25	i2=GetStringInBracket(leftTerm+i,Command+i);
26	i+=i2-1;
27	continue;
28	}
29	if(Command[i]=='\0'){
30	leftTerm[i] = 0;
31	break;
32	}
33
34	if( IsNumCalcMark( Command, i ) ){
35	leftTerm[i] = 0;
36	break;
37	}
38
39	leftTerm[i]=Command[i];
40	}
41	if(!(
42	IsVariableTopChar(leftTerm[0])\|\|
43	leftTerm[0]=='.'\|\|
44	(leftTerm[0]==1&&leftTerm[1]==ESC_PSMEM)
45	)){
46	SetError(1,NULL,cp);
47	return;
48	}
49
50
51	if(Command[i]=='\0' && lastParePos == 0){
52	//////////////////////////////
53	// パラメータ無しのマクロ検索
54	//////////////////////////////
55
56	pUserProc=GetSubHash(Command);
57
58	//GetSubHash内でエラー提示が行われた場合
59	if(pUserProc==(UserProc *)-1) return;
60
61	if(pUserProc==0){
62	char temporary[VN_SIZE];
63	lstrcpy(temporary,Command);
64
65	CharUpper(temporary);
66	pUserProc=GetSubHash(temporary);
67
68	//GetSubHash内でエラー提示が行われた場合
69	if(pUserProc==(UserProc *)-1) return;
70	}
71
72	if(pUserProc){
73	if( !pUserProc->IsMacro() ){
74	SetError(10,Command,cp);
75	}
76
77	Opcode_CallProc("",pUserProc,0,"",0);
78
79	return;
80	}
81	}
82	else if(IsNumCalcMark(Command,i)){
83	//代入演算
84	OpcodeCalc(Command);
85	return;
86	}
87
88
89	Type resultType;
90	bool isLiteral;
91	BOOL bUseHeap;
92	bool result = TermOpe( leftTerm, Type(), resultType, isLiteral, &bUseHeap, false, NULL, true );
93	if( result ){
94
95	/////////////////////
96	// 戻り値の処理
97	/////////////////////
98
99	if( resultType.IsReal() ){
100	//fstp st(0)
101	OpBuffer[obp++]=(char)0xDD;
102	OpBuffer[obp++]=(char)0xD8;
103	}
104	else if( resultType.IsStruct() ){
105	//mov ebx,eax
106	op_mov_RR(REG_EBX,REG_EAX);
107
108	FreeTempObject(REG_EBX,&resultType.GetClass());
109	}
110
111	//成功
112	return;
113	}
114
115	// 失敗
116	SetError(1, NULL,cp);
117	}
118
119	void OpcodeIf(char *Parameter){
120	int i,i2,i3,i4;
121	Type tempType;
122
123	for(i=0;;i++){
124	if(Parameter[i]=='\0'){
125	SetError(21,NULL,cp);
126	return;
127	}
128	if(Parameter[i]==1&&Parameter[i+1]==ESC_THEN){
129	Parameter[i]=0;
130	break;
131	}
132	}
133
134	if( !NumOpe(Parameter,Type(),tempType) ){
135	//NumOpe内でエラー
136	i3=-1; //ダミー
137	}
138	else if( tempType.IsDouble() ){
139	//fld qword ptr[esp]
140	op_fld_ptr_esp(DEF_DOUBLE);
141
142	//push 0
143	op_push_V(0);
144
145	//fild dword ptr[esp]
146	op_fld_ptr_esp(DEF_LONG);
147
148	//add esp,sizeof(double)+sizeof(long)
149	op_add_esp(sizeof(double)+sizeof(long));
150
151	//fcompp
152	OpBuffer[obp++]=(char)0xDE;
153	OpBuffer[obp++]=(char)0xD9;
154
155	//fnstsw ax
156	OpBuffer[obp++]=(char)0xDF;
157	OpBuffer[obp++]=(char)0xE0;
158
159	//test ah,40
160	OpBuffer[obp++]=(char)0xF6;
161	OpBuffer[obp++]=(char)0xC4;
162	OpBuffer[obp++]=(char)0x40;
163
164	//jne (endif、または else まで)
165	OpBuffer[obp++]=(char)0x0F;
166	OpBuffer[obp++]=(char)0x85;
167	obp+=sizeof(long);
168
169	//jneの番地
170	i3=obp;
171	}
172	else if( tempType.IsSingle() ){
173	//fld dword ptr[esp]
174	op_fld_ptr_esp(DEF_SINGLE);
175
176	//push 0
177	op_push_V(0);
178
179	//fild dword ptr[esp]
180	op_fld_ptr_esp(DEF_LONG);
181
182	//add esp,sizeof(float)+sizeof(long)
183	op_add_esp(sizeof(float)+sizeof(long));
184
185	//fcompp
186	OpBuffer[obp++]=(char)0xDE;
187	OpBuffer[obp++]=(char)0xD9;
188
189	//fnstsw ax
190	OpBuffer[obp++]=(char)0xDF;
191	OpBuffer[obp++]=(char)0xE0;
192
193	//test ah,40
194	OpBuffer[obp++]=(char)0xF6;
195	OpBuffer[obp++]=(char)0xC4;
196	OpBuffer[obp++]=(char)0x40;
197
198	//jne (endif、または else まで)
199	OpBuffer[obp++]=(char)0x0F;
200	OpBuffer[obp++]=(char)0x85;
201	obp+=sizeof(long);
202
203	//jneの番地
204	i3=obp;
205	}
206	else if( tempType.Is64() ){
207	//64ビット型
208
209	//pop eax
210	op_pop(REG_EAX);
211
212	//pop ebx
213	op_pop(REG_EBX);
214
215	//cmp eax,0
216	OpBuffer[obp++]=(char)0x83;
217	OpBuffer[obp++]=(char)0xF8;
218	OpBuffer[obp++]=(char)0x00;
219
220	//jne
221	OpBuffer[obp++]=(char)0x0F;
222	OpBuffer[obp++]=(char)0x85;
223	obp+=sizeof(long);
224	i3=obp;
225
226
227	//cmp ebx,0
228	OpBuffer[obp++]=(char)0x83;
229	OpBuffer[obp++]=(char)0xFB;
230	OpBuffer[obp++]=(char)0x00;
231
232	//jne
233	OpBuffer[obp++]=(char)0x0F;
234	OpBuffer[obp++]=(char)0x85;
235	obp+=sizeof(long);
236	i4=obp;
237
238
239
240	//jmp (endif、または else までジャンプ)
241	OpBuffer[obp++]=(char)0xE9;
242	obp+=sizeof(long);
243
244	((long )(OpBuffer+i3-sizeof(long)))=obp-i3;
245	((long )(OpBuffer+i4-sizeof(long)))=obp-i4;
246
247	//jmpの番地
248	i3=obp;
249	}
250	else{
251	//32ビット型
252
253	//pop eax
254	op_pop(REG_EAX);
255
256	//cmp eax,0
257	OpBuffer[obp++]=(char)0x83;
258	OpBuffer[obp++]=(char)0xF8;
259	OpBuffer[obp++]=(char)0x00;
260
261	//je (endif、または else まで条件ジャンプ)
262	OpBuffer[obp++]=(char)0x0F;
263	OpBuffer[obp++]=(char)0x84;
264	obp+=sizeof(long);
265
266	//jeの番地
267	i3=obp;
268	}
269
270
271	/////////////////////////
272	// If内をコード化
273	/////////////////////////
274
275	//レキシカルスコープをレベルアップ
276	obj_LexScopes.Start( obp, SCOPE_TYPE_IF );
277
278	i2=CompileBuffer(ESC_ENDIF,0);
279
280	//レキシカルスコープをレベルダウン
281	obj_LexScopes.End();
282
283
284	if(i3==-1) return;
285
286	if(i2==ESC_ELSE){
287	//jmp (endifまで)
288	OpBuffer[obp++]=(char)0xE9;
289	obp+=sizeof(long);
290
291	((long )(OpBuffer+i3-sizeof(long)))=obp-i3; //ifからelseへのジャンプ先のオフセット値
292
293	i3=obp;
294
295
296	/////////////////////////
297	// Else内をコード化
298	/////////////////////////
299
300	//レキシカルスコープをレベルアップ
301	obj_LexScopes.Start( obp, SCOPE_TYPE_IF );
302
303	CompileBuffer(ESC_ENDIF,0);
304
305	//レキシカルスコープをレベルダウン
306	obj_LexScopes.End();
307
308
309	((long )(OpBuffer+i3-sizeof(long)))=obp-i3; //jmpジャンプ先のオフセット値
310	}
311	else{
312	((long )(OpBuffer+i3-sizeof(long)))=obp-i3; //jeジャンプ先のオフセット値
313	}
314	}
315
316	int GetLabelAddress(char *LabelName,int LineNum){
317	extern int MaxLabelNum;
318	extern LABEL *pLabelNames;
319	int i;
320
321	if(LabelName){
322	for(i=0;i<MaxLabelNum;i++){
323	if(pLabelNames[i].pName){
324	if(lstrcmp(LabelName,pLabelNames[i].pName)==0) return pLabelNames[i].address;
325	}
326	}
327	}
328	else{
329	for(i=0;i<MaxLabelNum;i++){
330	if(pLabelNames[i].pName==0){
331	if(LineNum==pLabelNames[i].line) return pLabelNames[i].address;
332	}
333	}
334	}
335	return -1;
336	}
337	void OpcodeGoto(char *Parameter){
338	extern HANDLE hHeap;
339	extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
340	extern int GotoLabelScheduleNum;
341	int i,LineNum;
342
343	if(Parameter[0]=='*'){
344	i=GetLabelAddress(Parameter+1,0);
345
346	//jmp ...
347	OpBuffer[obp++]=(char)0xE9;
348	if(i==-1){
349	pGotoLabelSchedule=(GOTOLABELSCHEDULE )HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)sizeof(GOTOLABELSCHEDULE));
350	pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
351	lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
352	pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
353	pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
354	GotoLabelScheduleNum++;
355	}
356	((long )(OpBuffer+obp))=i-(obp+sizeof(long));
357	obp+=sizeof(long);
358	}
359	else{
360	LineNum=atoi(Parameter);
361	i=GetLabelAddress(0,LineNum);
362
363	//jmp ...
364	OpBuffer[obp++]=(char)0xE9;
365	if(i==-1){
366	pGotoLabelSchedule=(GOTOLABELSCHEDULE )HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)sizeof(GOTOLABELSCHEDULE));
367	pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
368	pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
369	pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
370	pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
371	GotoLabelScheduleNum++;
372	}
373	((long )(OpBuffer+obp))=i-(obp+sizeof(long));
374	obp+=sizeof(long);
375	}
376	}
377	void OpcodeWhile(char *Parameter){
378	extern HANDLE hHeap;
379	int i2,i3 = 0;
380
381	//Continueアドレスのバックアップとセット
382	extern DWORD dwContinueAddress;
383	DWORD dwTempContinue;
384	dwTempContinue=dwContinueAddress;
385	dwContinueAddress=obp;
386
387	if(!Parameter[0]) SetError(10,"While",cp);
388
389	int je_schedule;
390	Type tempType;
391	if( !NumOpe(Parameter,Type(),tempType) ){
392	//ダミー
393	i3=-1;
394	}
395	else if( tempType.IsDouble() ){
396	//fld qword ptr[esp]
397	op_fld_ptr_esp(DEF_DOUBLE);
398
399	//push 0
400	op_push_V(0);
401
402	//fild dword ptr[esp]
403	op_fld_ptr_esp(DEF_LONG);
404
405	//add esp,sizeof(double)+sizeof(long)
406	op_add_esp(sizeof(double)+sizeof(long));
407
408	//fcompp
409	OpBuffer[obp++]=(char)0xDE;
410	OpBuffer[obp++]=(char)0xD9;
411
412	//fnstsw ax
413	OpBuffer[obp++]=(char)0xDF;
414	OpBuffer[obp++]=(char)0xE0;
415
416	//test ah,40
417	OpBuffer[obp++]=(char)0xF6;
418	OpBuffer[obp++]=(char)0xC4;
419	OpBuffer[obp++]=(char)0x40;
420
421	//jne (Wend まで)
422	OpBuffer[obp++]=(char)0x0F;
423	OpBuffer[obp++]=(char)0x85;
424	obp+=sizeof(long);
425
426	//jeの番地
427	je_schedule=obp;
428	}
429	else if( tempType.IsSingle() ){
430	//fld dword ptr[esp]
431	op_fld_ptr_esp(DEF_SINGLE);
432
433	//push 0
434	op_push_V(0);
435
436	//fild dword ptr[esp]
437	op_fld_ptr_esp(DEF_LONG);
438
439	//add esp,sizeof(float)+sizeof(long)
440	op_add_esp(sizeof(float)+sizeof(long));
441
442	//fcompp
443	OpBuffer[obp++]=(char)0xDE;
444	OpBuffer[obp++]=(char)0xD9;
445
446	//fnstsw ax
447	OpBuffer[obp++]=(char)0xDF;
448	OpBuffer[obp++]=(char)0xE0;
449
450	//test ah,40
451	OpBuffer[obp++]=(char)0xF6;
452	OpBuffer[obp++]=(char)0xC4;
453	OpBuffer[obp++]=(char)0x40;
454
455	//jne (Wend まで)
456	OpBuffer[obp++]=(char)0x0F;
457	OpBuffer[obp++]=(char)0x85;
458	obp+=sizeof(long);
459
460	//jeの番地
461	je_schedule=obp;
462	}
463	else if( tempType.Is64() ){
464	//64ビット型
465
466	//pop eax
467	op_pop(REG_EAX);
468
469	//pop ebx
470	op_pop(REG_EBX);
471
472	//cmp eax,0
473	OpBuffer[obp++]=(char)0x83;
474	OpBuffer[obp++]=(char)0xF8;
475	OpBuffer[obp++]=(char)0x00;
476
477	//jne
478	OpBuffer[obp++]=(char)0x0F;
479	OpBuffer[obp++]=(char)0x85;
480	obp+=sizeof(long);
481	i2=obp;
482
483
484	//cmp ebx,0
485	OpBuffer[obp++]=(char)0x83;
486	OpBuffer[obp++]=(char)0xFB;
487	OpBuffer[obp++]=(char)0x00;
488
489	//jne
490	OpBuffer[obp++]=(char)0x0F;
491	OpBuffer[obp++]=(char)0x85;
492	obp+=sizeof(long);
493	i3=obp;
494
495
496	//jmp (endif、または else までジャンプ)
497	OpBuffer[obp++]=(char)0xE9;
498	obp+=sizeof(long);
499
500	((long )(OpBuffer+i2-sizeof(long)))=obp-i2;
501	((long )(OpBuffer+i3-sizeof(long)))=obp-i3;
502
503	//jmpの番地
504	je_schedule=obp;
505	}
506	else{
507	//その他整数型
508
509	//pop eax
510	op_pop(REG_EAX);
511
512	//cmp eax,0
513	OpBuffer[obp++]=(char)0x83;
514	OpBuffer[obp++]=(char)0xF8;
515	OpBuffer[obp++]=(char)0x00;
516
517	//je (Wend まで)
518	OpBuffer[obp++]=(char)0x0F;
519	OpBuffer[obp++]=(char)0x84;
520	obp+=sizeof(long);
521
522	//実行中の番地
523	je_schedule=obp;
524	}
525
526	//レキシカルスコープをレベルアップ
527	obj_LexScopes.Start( obp, SCOPE_TYPE_WHILE );
528
529	//While内をコンパイル
530	CompileBuffer(0,COM_WEND);
531
532	obj_LexScopes.CallDestructorsOfScopeEnd();
533
534	if( i3 == -1 ){
535	return;
536	}
537
538	//jmp ...
539	OpBuffer[obp++]=(char)0xE9;
540	((long )(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
541	obp+=sizeof(long);
542
543	//レキシカルスコープをレベルダウン
544	obj_LexScopes.End();
545
546	((long )(OpBuffer+je_schedule-sizeof(long)))=obp-je_schedule; //jeジャンプ先のオフセット値
547
548	//Continueアドレスを復元
549	dwContinueAddress=dwTempContinue;
550	}
551
552	char szNextVariable[VN_SIZE];
553	void OpcodeFor(char *Parameter){
554	extern HANDLE hHeap;
555	int i,i2,i3;
556	char temporary[VN_SIZE],variable[VN_SIZE],JudgeNum[VN_SIZE],StepNum[VN_SIZE];
557
558	//第１パラメータを取得
559	i=GetOneParameter(Parameter,0,temporary);
560	if(!Parameter[i]){
561	SetError(12,"For",cp);
562	goto ErrorStep;
563	}
564
565	for(i2=0;;i2++){
566	if(temporary[i2]=='='){
567	variable[i2]=0;
568
569	//カウンタ初期化
570	OpcodeCalc(temporary);
571	break;
572	}
573	if(temporary[i2]=='\0'){
574	SetError(12,"For",cp);
575	goto ErrorStep;
576	}
577	variable[i2]=temporary[i2];
578	}
579
580	//jmp ...
581	OpBuffer[obp++]=(char)0xE9;
582	i2=obp;
583	obp+=sizeof(long);
584
585	//Continueアドレスのバックアップとセット
586	extern DWORD dwContinueAddress;
587	DWORD dwTempContinue;
588	dwTempContinue=dwContinueAddress;
589	dwContinueAddress=obp;
590
591	//第２パラメータを取得（to～）
592	i=GetOneParameter(Parameter,i,JudgeNum);
593
594	//第３パラメータを取得（step～）
595	if(Parameter[i]){
596	i=GetOneParameter(Parameter,i,StepNum);
597	if(Parameter[i]) SetError(12,"For",cp);
598	}
599	else lstrcpy(StepNum,"1");
600
601	//カウンタを増加させる
602	sprintf(temporary,"%s=(%s)+(%s)",variable,variable,StepNum);
603	OpcodeCalc(temporary);
604
605	((long )(OpBuffer+i2))=obp-(i2+sizeof(long));
606
607	//増加か減少かを区別する
608	sprintf(temporary,"(%s)>=0",StepNum);
609	NumOpe(temporary,Type(),Type());
610
611	//pop eax
612	op_pop(REG_EAX);
613
614	//cmp eax,0
615	OpBuffer[obp++]=(char)0x83;
616	OpBuffer[obp++]=(char)0xF8;
617	OpBuffer[obp++]=(char)0x00;
618
619	//je [カウンタ減少の場合の判定]
620	OpBuffer[obp++]=(char)0x0F;
621	OpBuffer[obp++]=(char)0x84;
622	i2=obp;
623	obp+=sizeof(long);
624
625	//判定（カウンタ増加の場合）
626	sprintf(temporary,"%s<=(%s)",variable,JudgeNum);
627	NumOpe(temporary,Type(),Type());
628
629	//pop eax
630	op_pop(REG_EAX);
631
632	//jmp [カウンタ減少の場合の判定を飛び越す]
633	OpBuffer[obp++]=(char)0xE9;
634	i3=obp;
635	obp+=sizeof(long);
636
637	((long )(OpBuffer+i2))=obp-(i2+sizeof(long)); //jeジャンプ先のオフセット値
638
639	//判定（カウンタ減少の場合）
640	sprintf(temporary,"%s>=(%s)",variable,JudgeNum);
641	NumOpe(temporary,Type(),Type());
642
643	//pop eax
644	op_pop(REG_EAX);
645
646	((long )(OpBuffer+i3))=obp-(i3+sizeof(long)); //jmpジャンプ先のオフセット値
647
648	//cmp eax,0
649	OpBuffer[obp++]=(char)0x83;
650	OpBuffer[obp++]=(char)0xF8;
651	OpBuffer[obp++]=(char)0x00;
652
653	ErrorStep:
654
655	//je ...
656	OpBuffer[obp++]=(char)0x0F;
657	OpBuffer[obp++]=(char)0x84;
658	int je_schedule=obp;
659	obp+=sizeof(long);
660
661	//レキシカルスコープをレベルアップ
662	obj_LexScopes.Start( obp, SCOPE_TYPE_FOR );
663
664	//For内をコンパイル
665	CompileBuffer(0,COM_NEXT);
666
667	obj_LexScopes.CallDestructorsOfScopeEnd();
668
669	if(szNextVariable[0]){
670	if(lstrcmp(szNextVariable,variable)!=0){
671	SetError(55,szNextVariable,cp);
672	}
673	}
674
675	//jmp ...
676	OpBuffer[obp++]=(char)0xE9;
677	((long )(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
678	obp+=sizeof(long);
679
680	//レキシカルスコープをレベルダウン
681	obj_LexScopes.End();
682
683	((long )(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jeジャンプ先のオフセット値
684
685	//Continueアドレスを復元
686	dwContinueAddress=dwTempContinue;
687	}
688
689	void OpcodeDo(char *Parameter){
690	extern HANDLE hHeap;
691	int i,i2,i3,i4;
692
693	if(Parameter[0]) SetError(10,"Do",cp);
694
695	//Continueアドレスのバックアップとセット
696	extern DWORD dwContinueAddress;
697	DWORD dwTempContinue;
698	dwTempContinue=dwContinueAddress;
699	dwContinueAddress=obp;
700
701	//レキシカルスコープをレベルアップ
702	obj_LexScopes.Start( obp, SCOPE_TYPE_DO );
703
704	//Do内をコンパイル
705	CompileBuffer(0,COM_LOOP);
706
707	obj_LexScopes.CallDestructorsOfScopeEnd();
708
709	extern char *basbuf;
710	char temporary[VN_SIZE];
711	for(i=cp-1;;i--){
712	if(IsCommandDelimitation(basbuf[i])){
713	i+=3;
714	if(!(basbuf[i]=='0'\|\|basbuf[i]=='1')){
715	//無条件ループ
716	break;
717	}
718	i3=i;
719
720	for(i+=2,i2=0;;i++,i2++){
721	if(IsCommandDelimitation(basbuf[i])){
722	temporary[i2]=0;
723	break;
724	}
725	temporary[i2]=basbuf[i];
726	}
727
728	Type tempType;
729	NumOpe(temporary,Type(),tempType);
730
731	if( tempType.IsDouble() ){
732	//fld qword ptr[esp]
733	op_fld_ptr_esp(DEF_DOUBLE);
734
735	//push 0
736	op_push_V(0);
737
738	//fild dword ptr[esp]
739	op_fld_ptr_esp(DEF_LONG);
740
741	//add esp,sizeof(double)+sizeof(long)
742	op_add_esp(sizeof(double)+sizeof(long));
743
744	//fcompp
745	OpBuffer[obp++]=(char)0xDE;
746	OpBuffer[obp++]=(char)0xD9;
747
748	//fnstsw ax
749	OpBuffer[obp++]=(char)0xDF;
750	OpBuffer[obp++]=(char)0xE0;
751
752	//test ah,40
753	OpBuffer[obp++]=(char)0xF6;
754	OpBuffer[obp++]=(char)0xC4;
755	OpBuffer[obp++]=(char)0x40;
756
757	if(basbuf[i3]=='0'){
758	//While
759
760	//jne 5（ループ終了）
761	OpBuffer[obp++]=(char)0x75;
762	OpBuffer[obp++]=(char)0x05;
763	}
764	else if(basbuf[i3]=='1'){
765	//Until
766
767	//je 5（ループ終了）
768	OpBuffer[obp++]=(char)0x74;
769	OpBuffer[obp++]=(char)0x05;
770	}
771	}
772	else if( tempType.IsSingle() ){
773	//fld dword ptr[esp]
774	op_fld_ptr_esp(DEF_SINGLE);
775
776	//push 0
777	op_push_V(0);
778
779	//fild dword ptr[esp]
780	op_fld_ptr_esp(DEF_LONG);
781
782	//add esp,sizeof(float)+sizeof(long)
783	op_add_esp(sizeof(float)+sizeof(long));
784
785	//fcompp
786	OpBuffer[obp++]=(char)0xDE;
787	OpBuffer[obp++]=(char)0xD9;
788
789	//fnstsw ax
790	OpBuffer[obp++]=(char)0xDF;
791	OpBuffer[obp++]=(char)0xE0;
792
793	//test ah,40
794	OpBuffer[obp++]=(char)0xF6;
795	OpBuffer[obp++]=(char)0xC4;
796	OpBuffer[obp++]=(char)0x40;
797
798	if(basbuf[i3]=='0'){
799	//While
800
801	//jne 5（ループ終了）
802	OpBuffer[obp++]=(char)0x75;
803	OpBuffer[obp++]=(char)0x05;
804	}
805	else if(basbuf[i3]=='1'){
806	//Until
807
808	//je 5（ループ終了）
809	OpBuffer[obp++]=(char)0x74;
810	OpBuffer[obp++]=(char)0x05;
811	}
812	}
813	else if( tempType.Is64() ){
814	//64ビット型
815
816	//pop eax
817	op_pop(REG_EAX);
818
819	//pop ebx
820	op_pop(REG_EBX);
821
822	//cmp eax,0
823	OpBuffer[obp++]=(char)0x83;
824	OpBuffer[obp++]=(char)0xF8;
825	OpBuffer[obp++]=(char)0x00;
826
827	//jne
828	OpBuffer[obp++]=(char)0x0F;
829	OpBuffer[obp++]=(char)0x85;
830	obp+=sizeof(long);
831	i2=obp;
832
833
834	//cmp ebx,0
835	OpBuffer[obp++]=(char)0x83;
836	OpBuffer[obp++]=(char)0xFB;
837	OpBuffer[obp++]=(char)0x00;
838
839	//jne
840	OpBuffer[obp++]=(char)0x0F;
841	OpBuffer[obp++]=(char)0x85;
842	obp+=sizeof(long);
843	i4=obp;
844
845
846	if(basbuf[i3]=='0'){
847	//While
848
849	//jmp 5（ループ終了）
850	OpBuffer[obp++]=(char)0xEB;
851	OpBuffer[obp++]=(char)0x05;
852
853	((long )(OpBuffer+i2-sizeof(long)))=obp-i2;
854	((long )(OpBuffer+i4-sizeof(long)))=obp-i4;
855	}
856	else if(basbuf[i3]=='1'){
857	//Until
858
859	//jmp 2（ループを続ける）
860	OpBuffer[obp++]=(char)0xEB;
861	OpBuffer[obp++]=(char)0x02;
862
863	((long )(OpBuffer+i2-sizeof(long)))=obp-i2;
864	((long )(OpBuffer+i4-sizeof(long)))=obp-i4;
865
866	//jmp 5（ループ終了）
867	OpBuffer[obp++]=(char)0xEB;
868	OpBuffer[obp++]=(char)0x05;
869	}
870	}
871	else{
872	//pop eax
873	op_pop(REG_EAX);
874
875	//cmp eax,0
876	OpBuffer[obp++]=(char)0x83;
877	OpBuffer[obp++]=(char)0xF8;
878	OpBuffer[obp++]=(char)0x00;
879
880	if(basbuf[i3]=='0'){
881	//While
882
883	//je 5（ループ終了）
884	OpBuffer[obp++]=(char)0x74;
885	OpBuffer[obp++]=(char)0x05;
886	}
887	else if(basbuf[i3]=='1'){
888	//Until
889
890	//jne 5（ループ終了）
891	OpBuffer[obp++]=(char)0x75;
892	OpBuffer[obp++]=(char)0x05;
893	}
894	}
895	break;
896	}
897	}
898
899	//jmp ...
900	OpBuffer[obp++]=(char)0xE9;
901	((long )(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
902	obp+=sizeof(long);
903
904	//jmp ...
905	OpBuffer[obp++]=(char)0xE9;
906	int je_schedule=obp;
907	obp+=sizeof(long);
908
909	//レキシカルスコープをレベルダウン
910	obj_LexScopes.End();
911
912	((long )(OpBuffer+je_schedule))=obp-(je_schedule+sizeof(long)); //jmpジャンプ先のオフセット値
913
914
915	//Continueアドレスを復元
916	dwContinueAddress=dwTempContinue;
917	}
918	void OpcodeContinue(void){
919	extern DWORD dwContinueAddress;
920
921	if(dwContinueAddress==-1){
922	SetError(12,"Continue",cp);
923	return;
924	}
925
926	//jmp ...(Continue addr)
927	OpBuffer[obp++]=(char)0xE9;
928
929	((long )(OpBuffer+obp))=dwContinueAddress-(obp+sizeof(long));
930	obp+=sizeof(long);
931	}
932
933	void OpcodeExitSub(void){
934	extern DWORD *pExitSubSchedule;
935	extern int ExitSubScheduleNum;
936	extern HANDLE hHeap;
937
938	if( UserProc::IsGlobalAreaCompiling() ){
939	SetError(12,"Exit Sub/Function",cp);
940	return;
941	}
942
943	//未解放のローカルオブジェクトのデストラクタを呼び出す
944	obj_LexScopes.CallDestructorsOfReturn();
945
946	//jmp ...(End Sub/Function)
947	OpBuffer[obp++]=(char)0xE9;
948
949	pExitSubSchedule=(DWORD )HeapReAlloc(hHeap,0,pExitSubSchedule,(ExitSubScheduleNum+1)sizeof(DWORD));
950	pExitSubSchedule[ExitSubScheduleNum]=obp;
951	ExitSubScheduleNum++;
952
953	obp+=sizeof(long);
954	}
955
956	void AddCaseSchedule(void){
957	extern DWORD *pCaseSchedule;
958	extern int CaseScheduleNum;
959	extern HANDLE hHeap;
960
961	pCaseSchedule=(DWORD )HeapReAlloc(hHeap,0,pCaseSchedule,(CaseScheduleNum+1)sizeof(DWORD));
962	pCaseSchedule[CaseScheduleNum]=obp;
963	CaseScheduleNum++;
964	}
965
966	int CaseTypeSize;
967	void OpcodeSelect(const char *lpszParms){
968	extern DWORD *pCaseSchedule;
969	extern int CaseScheduleNum;
970	extern int NowCaseSchedule;
971	extern int CaseTypeSize;
972	extern HANDLE hHeap;
973	extern char *basbuf;
974	int i,i2,i3,sw,NowCaseCp;
975	char temporary[VN_SIZE];
976
977	DWORD *temp_pCaseSchedule;
978	int temp_CaseScheduleNum;
979	int temp_NowCaseSchedule;
980	int temp_CaseTypeSize;
981
982	temp_pCaseSchedule=pCaseSchedule;
983	temp_CaseScheduleNum=CaseScheduleNum;
984	temp_NowCaseSchedule=NowCaseSchedule;
985	temp_CaseTypeSize=CaseTypeSize;
986	pCaseSchedule=(DWORD *)HeapAlloc(hHeap,0,1);
987	CaseScheduleNum=0;
988	NowCaseSchedule=0;
989
990	Type type1;
991	if( !NumOpe(lpszParms,Type(), type1 ) ){
992	return;
993	}
994
995	CaseTypeSize = type1.GetSize();
996	if( CaseTypeSize < sizeof(long) ){
997	CaseTypeSize=sizeof(long);
998	}
999
1000	for(i=cp,sw=0;;i++){
1001	if(basbuf[i]=='\0'){
1002	HeapDefaultFree(pCaseSchedule);
1003	pCaseSchedule=temp_pCaseSchedule;
1004	CaseScheduleNum=temp_CaseScheduleNum;
1005	NowCaseSchedule=temp_NowCaseSchedule;
1006	CaseTypeSize=temp_CaseTypeSize;
1007	SetError(22,"Select",cp);
1008	return;
1009	}
1010	if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE){
1011	for(i2=0;;i++){
1012	if(basbuf[i]==1&&basbuf[i+1]==ESC_SELECTCASE) i2++;
1013	if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
1014	i2--;
1015	if(i2==0) break;
1016	}
1017	}
1018	continue;
1019	}
1020	if(basbuf[i]==1&&basbuf[i+1]==ESC_ENDSELECT){
1021	if(sw==0){
1022	//add esp,CaseTypeSize
1023	op_add_esp(CaseTypeSize);
1024	}
1025	break;
1026	}
1027	if(basbuf[i]==1&&basbuf[i+1]==ESC_CASE){
1028	NowCaseCp=i;
1029
1030	i++;
1031	while(1){
1032	for(i++,i2=0;;i++,i2++){
1033	if(basbuf[i]=='\"'){
1034	i3=GetStringInQuotation(temporary+i2,basbuf+i);
1035	i+=i3-1;
1036	i2+=i3-1;
1037	continue;
1038	}
1039	if(basbuf[i]=='('){
1040	i3=GetStringInPare(temporary+i2,basbuf+i);
1041	i+=i3-1;
1042	i2+=i3-1;
1043	continue;
1044	}
1045	if(basbuf[i]=='['){
1046	i3=GetStringInBracket(temporary+i2,basbuf+i);
1047	i+=i3-1;
1048	i2+=i3-1;
1049	continue;
1050	}
1051
1052	if(IsCommandDelimitation(basbuf[i])){
1053	temporary[i2]=0;
1054	break;
1055	}
1056	if(basbuf[i]==','){
1057	temporary[i2]=0;
1058	break;
1059	}
1060
1061	temporary[i2]=basbuf[i];
1062	}
1063
1064	//エラー用
1065	i2=cp;
1066	cp=NowCaseCp;
1067
1068	Type type2;
1069	if( !NumOpe(temporary,type1,type2) ){
1070	return;
1071	}
1072
1073	cp=i2;
1074
1075	if(type1.IsObject()){
1076	std::vector<UserProc *> subs;
1077	type1.GetClass().GetMethods().Enum( CALC_EQUAL, subs );
1078	if( subs.size() == 0 ){
1079	return;
1080	}
1081
1082	Parameters params;
1083	params.push_back( new Parameter( "", Type( type2 ) ) );
1084
1085	//オーバーロードを解決
1086	UserProc *pUserProc;
1087	pUserProc=OverloadSolution("==",subs, params, NULL);
1088
1089	delete params[0];
1090
1091	if(!pUserProc){
1092	//エラー
1093	return;
1094	}
1095
1096
1097	//pop edx
1098	op_pop(REG_EDX);
1099
1100	//mov ecx,dword ptr[esp]
1101	op_mov_RM(sizeof(long),REG_ECX,REG_ESP,0,MOD_BASE);
1102
1103	//push edx
1104	op_push(REG_EDX);
1105
1106	//push ecx
1107	op_push(REG_ECX);
1108
1109	//call operator_proc ※ ==演算子
1110	op_call(pUserProc);
1111
1112	//test eax,eax
1113	op_test(REG_EAX,REG_EAX);
1114
1115	//jne ...
1116	OpBuffer[obp++]=(char)0x0F;
1117	OpBuffer[obp++]=(char)0x85;
1118	AddCaseSchedule();
1119	obp+=sizeof(long);
1120	}
1121	else if(type1.IsDouble()){
1122	ChangeTypeToDouble(type2.GetBasicType());
1123
1124	//fld qword ptr[esp]
1125	op_fld_ptr_esp(DEF_DOUBLE);
1126
1127	//add esp,CaseTypeSize
1128	op_add_esp(CaseTypeSize);
1129
1130	//fld qword ptr[esp]
1131	op_fld_ptr_esp(DEF_DOUBLE);
1132
1133	//fcompp
1134	OpBuffer[obp++]=(char)0xDE;
1135	OpBuffer[obp++]=(char)0xD9;
1136
1137	//fnstsw ax
1138	OpBuffer[obp++]=(char)0xDF;
1139	OpBuffer[obp++]=(char)0xE0;
1140
1141	//test ah,40
1142	OpBuffer[obp++]=(char)0xF6;
1143	OpBuffer[obp++]=(char)0xC4;
1144	OpBuffer[obp++]=(char)0x40;
1145
1146	//jne ...
1147	OpBuffer[obp++]=(char)0x0F;
1148	OpBuffer[obp++]=(char)0x85;
1149	AddCaseSchedule();
1150	obp+=sizeof(long);
1151	}
1152	else if(type1.IsSingle()){
1153	ChangeTypeToSingle(type2.GetBasicType());
1154
1155	//fld dword ptr[esp]
1156	op_fld_ptr_esp(DEF_SINGLE);
1157
1158	//add esp,CaseTypeSize
1159	op_add_esp(CaseTypeSize);
1160
1161	//fld dword ptr[esp]
1162	op_fld_ptr_esp(DEF_SINGLE);
1163
1164	//fcompp
1165	OpBuffer[obp++]=(char)0xDE;
1166	OpBuffer[obp++]=(char)0xD9;
1167
1168	//fnstsw ax
1169	OpBuffer[obp++]=(char)0xDF;
1170	OpBuffer[obp++]=(char)0xE0;
1171
1172	//test ah,40
1173	OpBuffer[obp++]=(char)0xF6;
1174	OpBuffer[obp++]=(char)0xC4;
1175	OpBuffer[obp++]=(char)0x40;
1176
1177	//jne ...
1178	OpBuffer[obp++]=(char)0x0F;
1179	OpBuffer[obp++]=(char)0x85;
1180	AddCaseSchedule();
1181	obp+=sizeof(long);
1182	}
1183	else{
1184	//その他整数型
1185
1186	//pop ebx
1187	op_pop(REG_EBX);
1188
1189	//mov eax,dword ptr[esp]
1190	OpBuffer[obp++]=(char)0x8B;
1191	OpBuffer[obp++]=(char)0x04;
1192	OpBuffer[obp++]=(char)0x24;
1193
1194	//cmp eax,ebx
1195	OpBuffer[obp++]=(char)0x3B;
1196	OpBuffer[obp++]=(char)0xC3;
1197
1198	//je ...
1199	OpBuffer[obp++]=(char)0x0F;
1200	OpBuffer[obp++]=(char)0x84;
1201	AddCaseSchedule();
1202	obp+=sizeof(long);
1203	}
1204
1205	if(basbuf[i]!=',') break;
1206	}
1207	}
1208	if(basbuf[i]==1&&basbuf[i+1]==ESC_CASEELSE){
1209	sw=1;
1210
1211	//jmp ...
1212	OpBuffer[obp++]=(char)0xE9;
1213	AddCaseSchedule();
1214	obp+=sizeof(long);
1215	}
1216	}
1217
1218	//レキシカルスコープをレベルアップ
1219	obj_LexScopes.Start( obp, SCOPE_TYPE_SELECT );
1220
1221	//Select Case内をコンパイル
1222	CompileBuffer(ESC_ENDSELECT,0);
1223
1224	//jmp EndSelect
1225	OpBuffer[obp++]=(char)0xE9;
1226	AddCaseSchedule();
1227	obp+=sizeof(long);
1228
1229	//最終スケジュール
1230	for(i=NowCaseSchedule;i<CaseScheduleNum;i++){
1231	(long )(OpBuffer+pCaseSchedule[i])=obp-(pCaseSchedule[i]+sizeof(long));
1232	}
1233	HeapDefaultFree(pCaseSchedule);
1234
1235	//レキシカルスコープをレベルダウン
1236	obj_LexScopes.End();
1237
1238	pCaseSchedule=temp_pCaseSchedule;
1239	CaseScheduleNum=temp_CaseScheduleNum;
1240	NowCaseSchedule=temp_NowCaseSchedule;
1241	CaseTypeSize=temp_CaseTypeSize;
1242	}
1243	void OpcodeCase(char *Parameter){
1244	extern DWORD *pCaseSchedule;
1245	extern int NowCaseSchedule;
1246	extern int CaseTypeSize;
1247	int i;
1248
1249	if(!pCaseSchedule){
1250	SetError(30,"Case",cp);
1251	return;
1252	}
1253
1254	//jmp EndSelect
1255	OpBuffer[obp++]=(char)0xE9;
1256	AddCaseSchedule();
1257	obp+=sizeof(long);
1258
1259	i=0;
1260	while(1){
1261	//Caseスケジュール
1262	(long )(OpBuffer+pCaseSchedule[NowCaseSchedule])=obp-(pCaseSchedule[NowCaseSchedule]+sizeof(long));
1263	NowCaseSchedule++;
1264
1265	i=JumpOneParameter(Parameter,i);
1266	if(Parameter[i]=='\0') break;
1267	}
1268
1269	//add esp,CaseTypeSize
1270	op_add_esp(CaseTypeSize);
1271	}
1272
1273	void OpcodeGosub(char *Parameter){
1274	extern HANDLE hHeap;
1275	extern GOTOLABELSCHEDULE *pGotoLabelSchedule;
1276	extern int GotoLabelScheduleNum;
1277	int i,LineNum;
1278
1279	if(Parameter[0]=='*'){
1280	i=GetLabelAddress(Parameter+1,0);
1281
1282	//call ...
1283	OpBuffer[obp++]=(char)0xE8;
1284	if(i==-1){
1285	pGotoLabelSchedule=(GOTOLABELSCHEDULE )HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)sizeof(GOTOLABELSCHEDULE));
1286	pGotoLabelSchedule[GotoLabelScheduleNum].pName=(char *)HeapAlloc(hHeap,0,lstrlen(Parameter+1)+1);
1287	lstrcpy(pGotoLabelSchedule[GotoLabelScheduleNum].pName,Parameter+1);
1288	pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
1289	pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
1290	GotoLabelScheduleNum++;
1291	}
1292	((long )(OpBuffer+obp))=i-(obp+sizeof(long));
1293	obp+=sizeof(long);
1294	}
1295	else{
1296	LineNum=atoi(Parameter);
1297	i=GetLabelAddress(0,LineNum);
1298
1299	//call ...
1300	OpBuffer[obp++]=(char)0xE8;
1301	if(i==-1){
1302	pGotoLabelSchedule=(GOTOLABELSCHEDULE )HeapReAlloc(hHeap,0,pGotoLabelSchedule,(GotoLabelScheduleNum+1)sizeof(GOTOLABELSCHEDULE));
1303	pGotoLabelSchedule[GotoLabelScheduleNum].pName=0;
1304	pGotoLabelSchedule[GotoLabelScheduleNum].line=LineNum;
1305	pGotoLabelSchedule[GotoLabelScheduleNum].pos=obp;
1306	pGotoLabelSchedule[GotoLabelScheduleNum].now_cp=cp;
1307	GotoLabelScheduleNum++;
1308	}
1309	((long )(OpBuffer+obp))=i-(obp+sizeof(long));
1310	obp+=sizeof(long);
1311	}
1312	}
1313	void OpcodeReturn(char *Parameter){
1314	if( UserProc::IsGlobalAreaCompiling() ){
1315	//Gosub～Returnとして扱う
1316
1317	//ret
1318	op_ret();
1319	}
1320	else{
1321	//戻り値をセット
1322	if(Parameter[0]){
1323	UserProc &proc = UserProc::CompilingUserProc();
1324
1325	const char *temp = "_System_ReturnValue";
1326	if(proc.GetName()[0]==1&&proc.GetName()[1]==ESC_OPERATOR)
1327	{
1328	}
1329	else{
1330	temp=proc.GetName().c_str();
1331	}
1332
1333	char temporary[VN_SIZE];
1334	sprintf(temporary,"%s=%s",temp,Parameter);
1335	OpcodeCalc(temporary);
1336	}
1337
1338	//プロシージャを抜け出す（C言語のreturnと同様の処理を行う）
1339	OpcodeExitSub();
1340	}
1341	}
1342
1343
1344	////////////
1345	// ポインタ
1346
1347	void OpcodeSetPtrData(char *Parameter,int type){
1348	int i;
1349	char temporary[VN_SIZE];
1350
1351	if(Parameter[0]=='('){
1352	i=JumpStringInPare(Parameter,1);
1353	if(Parameter[i+1]=='\0'){
1354	for(i=0;;i++){
1355	Parameter[i]=Parameter[i+1];
1356	if(Parameter[i]=='\0') break;
1357	}
1358	Parameter[i-1]=0;
1359	}
1360	}
1361
1362	//第１パラメータを取得
1363	i=GetOneParameter(Parameter,0,temporary);
1364	if(!Parameter[i]){
1365	SetError(1,NULL,cp);
1366	return;
1367	}
1368
1369	Type resultType;
1370	if( !NumOpe(temporary,Type(),resultType) ){
1371	return;
1372	}
1373	if(!resultType.IsWhole()){
1374	SetError(11,Parameter,cp);
1375	return;
1376	}
1377
1378	ChangeTypeToLong( resultType.GetBasicType() );
1379
1380	//第２パラメータを取得
1381	i=GetOneParameter(Parameter,i,temporary);
1382	if(Parameter[i]){
1383	SetError(1,NULL,cp);
1384	return;
1385	}
1386
1387	if( !NumOpe(temporary,Type(),resultType) ){
1388	return;
1389	}
1390
1391	if(type==DEF_DOUBLE){
1392	ChangeTypeToDouble_ToFpuReg( resultType.GetBasicType() );
1393
1394	//pop eax
1395	op_pop(REG_EAX);
1396
1397	//fstp qword ptr[eax]
1398	OpBuffer[obp++]=(char)0xDD;
1399	OpBuffer[obp++]=(char)0x18;
1400	}
1401	else if(type==DEF_SINGLE){
1402	ChangeTypeToSingle( resultType.GetBasicType() );
1403
1404	//pop ebx
1405	op_pop(REG_EBX);
1406
1407	//pop eax
1408	op_pop(REG_EAX);
1409
1410	//mov dword ptr[eax],ebx
1411	OpBuffer[obp++]=(char)0x89;
1412	OpBuffer[obp++]=(char)0x18;
1413	}
1414	else if(type==DEF_QWORD){
1415	ChangeTypeToInt64( resultType.GetBasicType() );
1416
1417	//pop ecx
1418	op_pop(REG_ECX);
1419
1420	//pop ebx
1421	op_pop(REG_EBX);
1422
1423	//pop eax
1424	op_pop(REG_EAX);
1425
1426	//mov dword ptr[eax],ecx
1427	OpBuffer[obp++]=(char)0x89;
1428	OpBuffer[obp++]=(char)0x08;
1429
1430	//mov dword ptr[eax+sizeof(long)],ebx
1431	OpBuffer[obp++]=(char)0x89;
1432	OpBuffer[obp++]=(char)0x58;
1433	OpBuffer[obp++]=(char)0x04;
1434	}
1435	else if(type==DEF_DWORD){
1436	ChangeTypeToLong( resultType.GetBasicType() );
1437
1438	//pop ebx
1439	op_pop(REG_EBX);
1440
1441	//pop eax
1442	op_pop(REG_EAX);
1443
1444	//mov dword ptr[eax],ebx
1445	OpBuffer[obp++]=(char)0x89;
1446	OpBuffer[obp++]=(char)0x18;
1447	}
1448	else if(type==DEF_WORD){
1449	ChangeTypeToLong( resultType.GetBasicType() );
1450
1451	//pop ebx
1452	op_pop(REG_EBX);
1453
1454	//pop eax
1455	op_pop(REG_EAX);
1456
1457	//mov word ptr[eax],bx
1458	OpBuffer[obp++]=(char)0x66;
1459	OpBuffer[obp++]=(char)0x89;
1460	OpBuffer[obp++]=(char)0x18;
1461	}
1462	else if(type==DEF_BYTE){
1463	ChangeTypeToLong( resultType.GetBasicType() );
1464
1465	//pop ebx
1466	op_pop(REG_EBX);
1467
1468	//pop eax
1469	op_pop(REG_EAX);
1470
1471	//mov byte ptr[eax],bl
1472	OpBuffer[obp++]=(char)0x88;
1473	OpBuffer[obp++]=(char)0x18;
1474	}
1475	}

Note: See TracBrowser for help on using the repository browser.

Context Navigation

source: dev/trunk/abdev/BasicCompiler32/Compile_Statement.cpp@ 154

Download in other formats: