Context Navigation

source: dev/BasicCompiler32/Compile_Set_Var.cpp@ 75

Last change on this file since 75 was 75, checked in by dai_9181, 17 years ago
TYPEINFO→Typeへのリファクタリングを実施。64bitはほぼ完了。32bitが全般的に未完成。
File size: 29.9 KB

Line
1	#include "../BasicCompiler_Common/common.h"
2	#include "Opcode.h"
3
4	BOOL IsUse_ecx(RELATIVE_VAR *pRelativeVar){
5	if(pRelativeVar->bOffsetOffset\|\|pRelativeVar->dwKind==VAR_DIRECTMEM) return 1;
6	return 0;
7	}
8
9	void SetStructVariable( const Type &varType, const Type &calcType, BOOL bUseHeap){
10	/*
11	TODO: 消す
12	///////////////////////////////////////////////////////////////////
13	// オペレータ '=' のオーバーロード関数を呼ぶ
14	///////////////////////////////////////////////////////////////////
15
16	int type[10];
17	LONG_PTR index_stack[10];
18	BOOL array_bUseHeap[10];
19	int sp=2;
20
21	//左辺
22	type[0]=DEF_OBJECT;
23	index_stack[0]=lpVarIndex;
24	array_bUseHeap[0]=0;
25
26	//右辺
27	type[1]=CalcType;
28	index_stack[1]=lpCalcIndex;
29	array_bUseHeap[1]=bUseHeap;
30
31	int iRet;
32	iRet=CallOperatorProc(CALC_SUBSITUATION,NULL,type,index_stack,array_bUseHeap,sp);
33	if(iRet==-1\|\|iRet==1){
34	//成功したとき、またはエラーが発行されたとき
35	return;
36	}*/
37
38
39	if( calcType.IsStruct() ){
40	if( varType.GetClass().IsEquals( &calcType.GetClass() ) ){ //等しい
41
42	//双方のオブジェクト型が一致、または派生・継承関係にあるとき
43	//※コピーを行う
44
45	int object_size = varType.GetClass().GetSize();
46
47	//mov ecx,object_size
48	op_mov_RV(REG_ECX,object_size);
49
50	//pop esi
51	op_pop(REG_ESI);
52
53	//pop edi
54	op_pop(REG_EDI);
55
56	if(bUseHeap){
57	//mov eax,esi
58	op_mov_RR(REG_EAX,REG_ESI);
59	}
60
61	//rep movs byte ptr[edi],byte ptr[esi]
62	op_rep_movs(sizeof(BYTE));
63
64	if(bUseHeap){
65	//push eax
66	op_push(REG_EAX);
67
68	//call free
69	extern UserProc *pSub_free;
70	op_call(pSub_free);
71	}
72
73	return;
74	}
75	}
76
77	SetError(1,NULL,cp);
78	}
79
80
81	void SetRealVariable(int VarType,int CalcType,RELATIVE_VAR *pRelativeVar){
82	if( !IsRealNumberType( CalcType ) ){
83	// 実数へ変換
84	// 64bit edx:eax -> st(0)
85	// 32bit eax -> st(0)
86
87	if( Is64Type( CalcType ) ){
88	//64ビット整数型
89
90	//push edx
91	op_push( REG_EDX );
92
93	//push eax
94	op_push( REG_EAX );
95
96	//fild qword ptr[esp]
97	op_fld_ptr_esp(DEF_INT64);
98
99	//pop
100	op_pop( REG_NON );
101
102	//pop
103	op_pop( REG_NON );
104	}
105	else{
106	//push eax
107	op_push( REG_EAX );
108
109	//fild qword ptr[esp]
110	op_fld_ptr_esp(DEF_LONG);
111
112	//pop
113	op_pop( REG_NON );
114	}
115	}
116
117	if(pRelativeVar->dwKind==VAR_GLOBAL){
118	if(pRelativeVar->bOffsetOffset){
119	//fstp ptr[ecx+offset]
120	op_fstp_base_offset(VarType,REG_ECX,(int)pRelativeVar->offset);
121	obp-=sizeof(long);
122	pobj_GlobalVarSchedule->add();
123	obp+=sizeof(long);
124	}
125	else{
126	//mov ecx,offset
127	op_mov_RV(REG_ECX,(int)pRelativeVar->offset);
128	obp-=sizeof(long);
129	pobj_GlobalVarSchedule->add();
130	obp+=sizeof(long);
131
132	//fstp ptr[ecx]
133	op_fstp_basereg(VarType,REG_ECX);
134	}
135	}
136	else if(pRelativeVar->dwKind==VAR_REFGLOBAL){
137	if(pRelativeVar->bOffsetOffset){
138	//add ecx,qword ptr[offset]
139	op_add_RM(sizeof(long),REG_ECX,REG_NON,(int)pRelativeVar->offset,MOD_DISP32);
140	}
141	else{
142	//mov ecx,qword ptr[offset]
143	op_mov_RM(sizeof(long),REG_ECX,REG_NON,(int)pRelativeVar->offset,MOD_DISP32);
144	}
145	obp-=sizeof(long);
146	pobj_GlobalVarSchedule->add();
147	obp+=sizeof(long);
148
149	goto directmem;
150	}
151	else if(pRelativeVar->dwKind==VAR_LOCAL){
152	if(pRelativeVar->bOffsetOffset){
153	//fstp ptr[ebp+ecx+offset]
154	op_fstp_base_offset_ex(VarType,REG_EBP,REG_ECX,(int)pRelativeVar->offset,USE_OFFSET);
155	}
156	else{
157	//fstp ptr[ebp+offset]
158	op_fstp_base_offset(VarType,REG_EBP,(int)pRelativeVar->offset);
159	}
160	obp-=sizeof(long);
161	AddLocalVarAddrSchedule();
162	obp+=sizeof(long);
163	}
164	else if(pRelativeVar->dwKind==VAR_REFLOCAL){
165	if(pRelativeVar->bOffsetOffset){
166	//add ecx,qword ptr[ebp+offset]
167	op_add_RM(sizeof(long),REG_ECX,REG_EBP,(int)pRelativeVar->offset,MOD_BASE_DISP32);
168	}
169	else{
170	//mov ecx,qword ptr[ebp+offset]
171	op_mov_RM(sizeof(long),REG_ECX,REG_EBP,(int)pRelativeVar->offset,MOD_BASE_DISP32);
172	}
173	obp-=sizeof(long);
174	AddLocalVarAddrSchedule();
175	obp+=sizeof(long);
176
177	goto directmem;
178	}
179	else if(pRelativeVar->dwKind==VAR_DIRECTMEM){
180	directmem:
181	//fstp ptr[ecx]
182	op_fstp_basereg(VarType,REG_ECX);
183	}
184	}
185
186	void SetBooleanVariable(int type,RELATIVE_VAR *pRelative){
187	if(type==DEF_DOUBLE){
188	// TODO: 実装
189	SetError();
190	}
191	else if(type==DEF_SINGLE){
192	// TODO: 実装
193	SetError();
194	}
195	else if(type==DEF_INT64\|\|type==DEF_QWORD){
196	//cmp eax,0
197	op_cmp_value(GetTypeSize(type,-1),REG_EAX,0);
198
199	//setne al
200	op_setne( REG_EAX );
201
202	//cmp edx,0
203	op_cmp_value(GetTypeSize(type,-1),REG_EDX,0);
204
205	//setne cl
206	op_setne( REG_ECX );
207
208	//or al,cl
209	op_or_RR( sizeof( _int8 ), REG_EAX, REG_ECX );
210	}
211	else{
212	if(!IsWholeNumberType(type)){
213	//不正な型の場合
214	SetError(9,NULL,cp);
215	return;
216	}
217	}
218
219	//cmp eax,0
220	op_cmp_value(GetTypeSize(type,-1),REG_EAX,0);
221
222	//setne al
223	op_setne( REG_EAX );
224
225	SetWholeVariable( sizeof(char), DEF_BYTE, pRelative );
226	}
227
228	void ExtendTypeTo32(int type,int reg);
229	void ExtendTypeTo64(int type){
230	if(Is64Type(type)) return;
231
232	ExtendTypeTo32(type,REG_EAX);
233
234	if(IsSignedType(type)){
235	//cdq
236	op_cdq();
237	}
238	else{
239	//xor edx,edx
240	op_zero_reg(REG_EDX);
241	}
242	}
243	void ExtendTypeTo32(int type,int reg){
244	if(type==DEF_INTEGER \|\| (isUnicode&&type==DEF_CHAR)){
245	//movsx reg32,reg16
246	op_movsx_R32R16(reg,reg);
247	}
248	else if(type==DEF_WORD){
249	//and reg,0000FFFFh
250	op_and_RV(reg,(int)0x0000FFFF);
251	}
252	else if(type==DEF_SBYTE \|\| (isUnicode==false&&type==DEF_CHAR)){
253	//movsx reg32,reg8
254	op_movsx_R32R8(reg,reg);
255	}
256	else if(type==DEF_BYTE\|\|type==DEF_BOOLEAN){
257	//and reg,000000FFh
258	op_and_RV(reg,(int)0xFF);
259	}
260	}
261	void ExtendTypeTo16(int type,int reg){
262	if(type==DEF_SBYTE \|\| (isUnicode==false&&type==DEF_CHAR)){
263	//movsx reg16,reg8
264	op_movsx_R16R8(reg,reg);
265	}
266	else if(type==DEF_BYTE\|\|type==DEF_BOOLEAN){
267	//and reg,000000FFh
268	op_and_RV(reg,(int)0xFF);
269	}
270	}
271
272	void SetWholeVariable(int varSize,int calcType,RELATIVE_VAR *pRelative){
273	if( IsRealNumberType( calcType ) ){
274	// 実数型から整数型へ変換する
275
276	if( varSize == sizeof(_int64) ){
277	// 64bitへ
278	// st(0) -> edx:eax
279	breakpoint;
280
281	//push
282	//push
283	op_sub_esp( PTR_SIZE * 2 );
284
285	//fistp qword ptr[esp]
286	op_fistp_ptr_esp( sizeof(_int64) );
287
288	//pop eax
289	op_pop( REG_EAX );
290
291	//pop edx
292	op_pop( REG_EDX );
293	}
294	else{
295	// 32bit
296	// st(0) -> eax
297
298	//push
299	op_push( REG_NON );
300
301	//fistp dword ptr[esp]
302	op_fistp_ptr_esp( sizeof(long) );
303
304	//pop eax
305	op_pop( REG_EAX );
306	}
307	}
308	else{
309	//その他の整数
310
311	if(varSize==sizeof(_int64)){
312	//eaxの値を64ビット（edx:eax）に拡張する
313	ExtendTypeTo64(calcType);
314	}
315	else if(varSize==sizeof(long)){
316	//レジスタの値を32ビット（eax）に拡張する
317	ExtendTypeTo32(calcType,REG_EAX);
318	}
319	else if(varSize==sizeof(short)){
320	//レジスタの値を16ビット（ax）に拡張する
321	ExtendTypeTo16(calcType,REG_EAX);
322	}
323	//8ビットは拡張なし
324	}
325
326	if(varSize==sizeof(_int64)){
327	//下位32ビット
328	SetWholeVariable(sizeof(long),DEF_LONG,pRelative);
329
330	//上位32ビット
331
332	//直接参照に切り替え
333	SetVarPtrToEax(pRelative);
334	pRelative->dwKind=VAR_DIRECTMEM;
335
336	//mov ecx,eax
337	op_mov_RR( REG_ECX, REG_EAX );
338
339	//add ecx,sizeof(long)
340	op_add_RV8( REG_ECX, sizeof(long) );
341
342	//mov eax,edx
343	op_mov_RR( REG_EAX, REG_EDX );
344
345	SetWholeVariable(sizeof(long),DEF_LONG,pRelative);
346
347	return;
348	}
349
350	if(pRelative->dwKind==VAR_GLOBAL){
351	if(pRelative->bOffsetOffset){
352	//mov ptr[ecx+offset],eax/ax/al
353	op_mov_MR(varSize,REG_EAX,REG_ECX,(int)pRelative->offset,MOD_BASE_DISP32);
354	}
355	else{
356	//mov ptr[offset],eax/ax/al
357	op_mov_MR(varSize,REG_EAX,0,(int)pRelative->offset,MOD_DISP32);
358	}
359	obp-=sizeof(long);
360	pobj_GlobalVarSchedule->add();
361	obp+=sizeof(long);
362	}
363	else if(pRelative->dwKind==VAR_REFGLOBAL){
364	if(pRelative->bOffsetOffset){
365	//add ecx,qword ptr[offset]
366	op_add_RM(varSize,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
367	}
368	else{
369	//mov ecx,qword ptr[offset]
370	op_mov_RM(varSize,REG_ECX,REG_NON,(int)pRelative->offset,MOD_DISP32);
371	}
372	obp-=sizeof(long);
373	pobj_GlobalVarSchedule->add();
374	obp+=sizeof(long);
375
376	goto directmem;
377	}
378	else if(pRelative->dwKind==VAR_LOCAL){
379	if(pRelative->bOffsetOffset){
380	//mov ptr[ebp+ecx+offset],eax/ax/al
381	op_mov_MR_ex(varSize,REG_EAX,REG_EBP,REG_ECX,(int)pRelative->offset,USE_OFFSET);
382	}
383	else{
384	//mov ptr[ebp+offset],eax/ax/al
385	op_mov_MR(varSize,REG_EAX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
386	}
387	obp-=sizeof(long);
388	AddLocalVarAddrSchedule();
389	obp+=sizeof(long);
390	}
391	else if(pRelative->dwKind==VAR_REFLOCAL){
392	if(pRelative->bOffsetOffset){
393	//add ecx,qword ptr[ebp+offset]
394	op_add_RM(varSize,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
395	}
396	else{
397	//mov ecx,qword ptr[ebp+offset]
398	op_mov_RM(varSize,REG_ECX,REG_EBP,(int)pRelative->offset,MOD_BASE_DISP32);
399	}
400	obp-=sizeof(long);
401	AddLocalVarAddrSchedule();
402	obp+=sizeof(long);
403
404	goto directmem;
405	}
406	else if(pRelative->dwKind==VAR_DIRECTMEM){
407	directmem:
408
409	//mov ptr[ecx],eax/ax/al
410	op_mov_MR(varSize,REG_EAX,REG_ECX,0,MOD_BASE);
411	}
412	}
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438	/*
439	TODO: 消す
440	void SetDoubleVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
441	ChangeTypeToDouble(type);
442
443	//pop ebx
444	op_pop(REG_EBX);
445
446	//pop eax
447	op_pop(REG_EAX);
448
449	if(VarKind==VAR_GLOBAL){
450	if(bOffsetOffset){
451	//mov dword ptr[ecx+offset],ebx
452	OpBuffer[obp++]=(char)0x89;
453	OpBuffer[obp++]=(char)0x99;
454	((long )(OpBuffer+obp))=offset;
455	pobj_GlobalVarSchedule->add();
456	obp+=sizeof(long);
457
458	//mov dword ptr[ecx+offset+sizeof(long)],eax
459	OpBuffer[obp++]=(char)0x89;
460	OpBuffer[obp++]=(char)0x81;
461	((long )(OpBuffer+obp))=offset+sizeof(long);
462	pobj_GlobalVarSchedule->add();
463	obp+=sizeof(long);
464	}
465	else{
466	//mov dword ptr[offset],ebx
467	OpBuffer[obp++]=(char)0x89;
468	OpBuffer[obp++]=(char)0x1D;
469	((long )(OpBuffer+obp))=offset;
470	pobj_GlobalVarSchedule->add();
471	obp+=sizeof(long);
472
473	//mov dword ptr[offset+sizeof(long)],eax
474	OpBuffer[obp++]=(char)0xA3;
475	((long )(OpBuffer+obp))=offset+sizeof(long);
476	pobj_GlobalVarSchedule->add();
477	obp+=sizeof(long);
478	}
479	}
480	else if( VarKind==VAR_REFGLOBAL ){
481	SetError(300,NULL,cp);
482	}
483	else if(VarKind==VAR_LOCAL){
484	if(bOffsetOffset){
485	//add ecx,offset
486	OpBuffer[obp++]=(char)0x81;
487	OpBuffer[obp++]=(char)0xC1;
488	((long )(OpBuffer+obp))=offset;
489	AddLocalVarAddrSchedule();
490	obp+=sizeof(long);
491
492	//mov dword ptr[ebp+ecx],ebx
493	OpBuffer[obp++]=(char)0x89;
494	OpBuffer[obp++]=(char)0x5C;
495	OpBuffer[obp++]=(char)0x0D;
496	OpBuffer[obp++]=(char)0x00;
497
498	//add ecx,sizeof(long)
499	OpBuffer[obp++]=(char)0x83;
500	OpBuffer[obp++]=(char)0xC1;
501	OpBuffer[obp++]=(char)0x04;
502
503	//mov dword ptr[ebp+ecx],eax
504	OpBuffer[obp++]=(char)0x89;
505	OpBuffer[obp++]=(char)0x44;
506	OpBuffer[obp++]=(char)0x0D;
507	OpBuffer[obp++]=(char)0x00;
508	}
509	else{
510	//mov dword ptr[ebp+offset],ebx
511	OpBuffer[obp++]=(char)0x89;
512	OpBuffer[obp++]=(char)0x9D;
513	((long )(OpBuffer+obp))=offset;
514	AddLocalVarAddrSchedule();
515	obp+=sizeof(long);
516
517	//mov dword ptr[ebp+offset+sizeof(long)],eax
518	OpBuffer[obp++]=(char)0x89;
519	OpBuffer[obp++]=(char)0x85;
520	((long )(OpBuffer+obp))=offset+sizeof(long);
521	AddLocalVarAddrSchedule();
522	obp+=sizeof(long);
523	}
524	}
525	else if(VarKind==VAR_REFLOCAL){
526	if(bOffsetOffset){
527	//add ecx,dword ptr[ebp+offset]
528	OpBuffer[obp++]=(char)0x03;
529	OpBuffer[obp++]=(char)0x8D;
530	((long )(OpBuffer+obp))=offset;
531	AddLocalVarAddrSchedule();
532	obp+=sizeof(long);
533	}
534	else{
535	//mov ecx,dword ptr[ebp+offset]
536	OpBuffer[obp++]=(char)0x8B;
537	OpBuffer[obp++]=(char)0x8D;
538	((long )(OpBuffer+obp))=offset;
539	AddLocalVarAddrSchedule();
540	obp+=sizeof(long);
541	}
542
543	//mov dword ptr[ecx],ebx
544	OpBuffer[obp++]=(char)0x89;
545	OpBuffer[obp++]=(char)0x19;
546
547	//mov dword ptr[ecx+sizeof(long)],eax
548	OpBuffer[obp++]=(char)0x89;
549	OpBuffer[obp++]=(char)0x41;
550	OpBuffer[obp++]=(char)0x04;
551	}
552	else if(VarKind==VAR_DIRECTMEM){
553	//mov dword ptr[ecx],ebx
554	OpBuffer[obp++]=(char)0x89;
555	OpBuffer[obp++]=(char)0x19;
556
557	//mov dword ptr[ecx+sizeof(long)],eax
558	OpBuffer[obp++]=(char)0x89;
559	OpBuffer[obp++]=(char)0x41;
560	OpBuffer[obp++]=(char)0x04;
561	}
562	}
563	void SetSingleVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
564	if(type==DEF_SINGLE){
565	//32ビット変数としてそのままコピーする
566	SetDWordVariable(DEF_DWORD,VarKind,offset,bOffsetOffset);
567	return;
568	}
569
570	if(type==DEF_DOUBLE){
571	//fld qword ptr[esp]
572	op_fld_ptr_esp(DEF_DOUBLE);
573
574	//add esp,8
575	op_add_esp(8);
576	}
577	else if(type==DEF_INT64\|\|type==DEF_QWORD){
578	//64ビット整数
579
580	//fild qword ptr[esp]
581	op_fld_ptr_esp(DEF_INT64);
582
583	//add esp,8
584	op_add_esp(8);
585	}
586	else if(IsSignedType(type)){
587	//符号あり整数
588
589	//fild dword ptr[esp]
590	op_fld_ptr_esp(DEF_LONG);
591
592	//add esp,4
593	op_add_esp(4);
594	}
595	else{
596	if(!IsWholeNumberType(type)){
597	//不正な型の場合
598	SetError(9,NULL,cp);
599	return;
600	}
601
602	//符号なし整数
603
604	//pop eax
605	op_pop(REG_EAX);
606
607	//push 0
608	op_push_V(0);
609
610	//push eax
611	op_push(REG_EAX);
612
613	//fild qword ptr[esp]
614	OpBuffer[obp++]=(char)0xDF;
615	OpBuffer[obp++]=(char)0x2C;
616	OpBuffer[obp++]=(char)0x24;
617
618	//add esp,8
619	op_add_esp(8);
620	}
621
622	if(VarKind==VAR_GLOBAL){
623	if(bOffsetOffset){
624	//fstp dword ptr[ecx+offset]
625	OpBuffer[obp++]=(char)0xD9;
626	OpBuffer[obp++]=(char)0x99;
627	((long )(OpBuffer+obp))=offset;
628	pobj_GlobalVarSchedule->add();
629	obp+=sizeof(long);
630	}
631	else{
632	//fstp dword ptr[offset]
633	OpBuffer[obp++]=(char)0xD9;
634	OpBuffer[obp++]=(char)0x1D;
635	((long )(OpBuffer+obp))=offset;
636	pobj_GlobalVarSchedule->add();
637	obp+=sizeof(long);
638	}
639	}
640	else if( VarKind==VAR_REFGLOBAL ){
641	SetError(300,NULL,cp);
642	}
643	else if(VarKind==VAR_LOCAL){
644	if(bOffsetOffset){
645	//add ecx,offset
646	OpBuffer[obp++]=(char)0x81;
647	OpBuffer[obp++]=(char)0xC1;
648	((long )(OpBuffer+obp))=offset;
649	AddLocalVarAddrSchedule();
650	obp+=sizeof(long);
651
652	//fstp dword ptr[ebp+ecx]
653	OpBuffer[obp++]=(char)0xD9;
654	OpBuffer[obp++]=(char)0x5C;
655	OpBuffer[obp++]=(char)0x0D;
656	OpBuffer[obp++]=(char)0x00;
657	}
658	else{
659	//fstp dword ptr[ebp+offset]
660	OpBuffer[obp++]=(char)0xD9;
661	OpBuffer[obp++]=(char)0x9D;
662	((long )(OpBuffer+obp))=offset;
663	AddLocalVarAddrSchedule();
664	obp+=sizeof(long);
665	}
666	}
667	else if(VarKind==VAR_REFLOCAL){
668	//mov eax,dword ptr[ebp+offset]
669	OpBuffer[obp++]=(char)0x8B;
670	OpBuffer[obp++]=(char)0x85;
671	((long )(OpBuffer+obp))=offset;
672	AddLocalVarAddrSchedule();
673	obp+=sizeof(long);
674
675	if(bOffsetOffset){
676	//add eax,ecx
677	OpBuffer[obp++]=(char)0x03;
678	OpBuffer[obp++]=(char)0xC1;
679	}
680
681	//fstp dword ptr[eax]
682	OpBuffer[obp++]=(char)0xD9;
683	OpBuffer[obp++]=(char)0x18;
684	}
685	else if(VarKind==VAR_DIRECTMEM){
686	//fstp dword ptr[ecx]
687	OpBuffer[obp++]=(char)0xD9;
688	OpBuffer[obp++]=(char)0x19;
689	}
690	}
691	void SetInt64Variable(int type,RELATIVE_VAR *pRelative){
692	if(type==DEF_DOUBLE){
693	//fld qword ptr[esp]
694	op_fld_ptr_esp(DEF_DOUBLE);
695
696	//fistp qword ptr[esp]
697	fpu_cast();
698	OpBuffer[obp++]=(char)0xDF;
699	OpBuffer[obp++]=(char)0x3C;
700	OpBuffer[obp++]=(char)0x24;
701	fpu_cast_end();
702
703	//pop eax
704	op_pop(REG_EAX);
705
706	//pop edx
707	op_pop(REG_EDX);
708	}
709	else if(type==DEF_SINGLE){
710	//fld dword ptr[esp]
711	op_fld_ptr_esp(DEF_SINGLE);
712
713	//sub esp,4
714	op_sub_esp(4);
715
716	//fistp qword ptr[esp]
717	fpu_cast();
718	OpBuffer[obp++]=(char)0xDF;
719	OpBuffer[obp++]=(char)0x3C;
720	OpBuffer[obp++]=(char)0x24;
721	fpu_cast_end();
722
723	//pop eax
724	op_pop(REG_EAX);
725
726	//pop edx
727	op_pop(REG_EDX);
728	}
729	else if(type==DEF_INT64\|\|type==DEF_QWORD){
730	//pop eax
731	op_pop(REG_EAX);
732
733	//pop edx
734	op_pop(REG_EDX);
735	}
736	else if(IsSignedType(type)){
737	//符号拡張
738	//edx:eax ← eax
739
740	//pop eax
741	op_pop(REG_EAX);
742
743	//cdq
744	op_cdq();
745	}
746	else{
747	if(!IsWholeNumberType(type)){
748	//不正な型の場合
749	SetError(9,NULL,cp);
750	return;
751	}
752
753	//符号拡張
754	//edx=0:eax
755
756	//pop eax
757	op_pop(REG_EAX);
758
759	//xor edx,edx
760	op_zero_reg(REG_EDX);
761	}
762
763	if(pRelative->dwKind==VAR_GLOBAL){
764	if(pRelative->bOffsetOffset){
765	//mov dword ptr[ecx+offset],eax
766	OpBuffer[obp++]=(char)0x89;
767	OpBuffer[obp++]=(char)0x81;
768	((long )(OpBuffer+obp))=pRelative->offset;
769	pobj_GlobalVarSchedule->add();
770	obp+=sizeof(long);
771
772	//mov dword ptr[ecx+offset+sizeof(long)],edx
773	OpBuffer[obp++]=(char)0x89;
774	OpBuffer[obp++]=(char)0x91;
775	((long )(OpBuffer+obp))=pRelative->offset+sizeof(long);
776	pobj_GlobalVarSchedule->add();
777	obp+=sizeof(long);
778	}
779	else{
780	//mov dword ptr[offset],eax
781	OpBuffer[obp++]=(char)0xA3;
782	((long )(OpBuffer+obp))=pRelative->offset;
783	pobj_GlobalVarSchedule->add();
784	obp+=sizeof(long);
785
786	//mov dword ptr[offset+sizeof(long)],edx
787	OpBuffer[obp++]=(char)0x89;
788	OpBuffer[obp++]=(char)0x15;
789	((long )(OpBuffer+obp))=pRelative->offset+sizeof(DWORD);
790	pobj_GlobalVarSchedule->add();
791	obp+=sizeof(long);
792	}
793	}
794	else if(pRelative->dwKind==VAR_REFLOCAL){
795	if(pRelative->bOffsetOffset){
796	//add ecx,dword ptr[offset]
797	op_add_RM( sizeof(long), REG_ECX, REG_NON, (int)pRelative->offset, MOD_DISP32 );
798	}
799	else{
800	//mov ecx,dword ptr[offset]
801	op_mov_RM( sizeof(long), REG_ECX, REG_NON, (int)pRelative->offset, MOD_DISP32 );
802	}
803	obp-=sizeof(long);
804	pobj_GlobalVarSchedule->add();
805	obp+=sizeof(long);
806
807	//mov dword ptr[ecx],eax
808	OpBuffer[obp++]=(char)0x89;
809	OpBuffer[obp++]=(char)0x01;
810
811	//mov dword ptr[ecx+sizeof(long)],edx
812	OpBuffer[obp++]=(char)0x89;
813	OpBuffer[obp++]=(char)0x51;
814	OpBuffer[obp++]=(char)0x04;
815	}
816	else if(pRelative->dwKind==VAR_LOCAL){
817	if(pRelative->bOffsetOffset){
818	//add ecx,offset
819	OpBuffer[obp++]=(char)0x81;
820	OpBuffer[obp++]=(char)0xC1;
821	((long )(OpBuffer+obp))=pRelative->offset;
822	AddLocalVarAddrSchedule();
823	obp+=sizeof(long);
824
825	//mov dword ptr[ebp+ecx],eax
826	OpBuffer[obp++]=(char)0x89;
827	OpBuffer[obp++]=(char)0x44;
828	OpBuffer[obp++]=(char)0x0D;
829	OpBuffer[obp++]=(char)0x00;
830
831	//add ecx,sizeof(long)
832	OpBuffer[obp++]=(char)0x83;
833	OpBuffer[obp++]=(char)0xC1;
834	OpBuffer[obp++]=(char)0x04;
835
836	//mov dword ptr[ebp+ecx],edx
837	OpBuffer[obp++]=(char)0x89;
838	OpBuffer[obp++]=(char)0x54;
839	OpBuffer[obp++]=(char)0x0D;
840	OpBuffer[obp++]=(char)0x00;
841	}
842	else{
843	//mov dword ptr[ebp+offset],eax
844	OpBuffer[obp++]=(char)0x89;
845	OpBuffer[obp++]=(char)0x85;
846	((long )(OpBuffer+obp))=pRelative->offset;
847	AddLocalVarAddrSchedule();
848	obp+=sizeof(long);
849
850	//mov dword ptr[ebp+offset+sizeof(long)],edx
851	OpBuffer[obp++]=(char)0x89;
852	OpBuffer[obp++]=(char)0x95;
853	((long )(OpBuffer+obp))=pRelative->offset+sizeof(long);
854	AddLocalVarAddrSchedule();
855	obp+=sizeof(long);
856	}
857	}
858	else if(pRelative->dwKind==VAR_REFLOCAL){
859	if(pRelative->bOffsetOffset){
860	//add ecx,dword ptr[ebp+offset]
861	OpBuffer[obp++]=(char)0x03;
862	OpBuffer[obp++]=(char)0x8D;
863	((long )(OpBuffer+obp))=pRelative->offset;
864	AddLocalVarAddrSchedule();
865	obp+=sizeof(long);
866	}
867	else{
868	//mov ecx,dword ptr[ebp+offset]
869	OpBuffer[obp++]=(char)0x8B;
870	OpBuffer[obp++]=(char)0x8D;
871	((long )(OpBuffer+obp))=pRelative->offset;
872	AddLocalVarAddrSchedule();
873	obp+=sizeof(long);
874	}
875
876	//mov dword ptr[ecx],eax
877	OpBuffer[obp++]=(char)0x89;
878	OpBuffer[obp++]=(char)0x01;
879
880	//mov dword ptr[ecx+sizeof(long)],edx
881	OpBuffer[obp++]=(char)0x89;
882	OpBuffer[obp++]=(char)0x51;
883	OpBuffer[obp++]=(char)0x04;
884	}
885	else if(pRelative->dwKind==VAR_DIRECTMEM){
886	//mov dword ptr[ecx],eax
887	OpBuffer[obp++]=(char)0x89;
888	OpBuffer[obp++]=(char)0x01;
889
890	//mov dword ptr[ecx+sizeof(long)],edx
891	OpBuffer[obp++]=(char)0x89;
892	OpBuffer[obp++]=(char)0x51;
893	OpBuffer[obp++]=(char)0x04;
894	}
895	}
896	void SetDWordVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
897	if(type==DEF_DOUBLE\|\|type==DEF_SINGLE){
898	if(type==DEF_DOUBLE){
899	//fld qword ptr[esp]
900	op_fld_ptr_esp(DEF_DOUBLE);
901	}
902	else if(type==DEF_SINGLE){
903	//fld dword ptr[esp]
904	op_fld_ptr_esp(DEF_SINGLE);
905
906	//sub esp,4
907	op_sub_esp(4);
908	}
909
910	//fistp qword ptr[esp]
911	fpu_cast();
912	OpBuffer[obp++]=(char)0xDF;
913	OpBuffer[obp++]=(char)0x3C;
914	OpBuffer[obp++]=(char)0x24;
915	fpu_cast_end();
916
917	//pop eax
918	op_pop(REG_EAX);
919
920	//add esp,4
921	op_add_esp(4);
922	}
923	else if(type==DEF_INT64\|\|type==DEF_QWORD){
924	//pop eax
925	op_pop(REG_EAX);
926
927	//add esp,4
928	op_add_esp(4);
929	}
930	else{
931	if(!IsWholeNumberType(type)){
932	//不正な型の場合
933	SetError(9,NULL,cp);
934	return;
935	}
936
937	ChangeTypeToWhole(type,DEF_LONG);
938
939	//pop eax
940	op_pop(REG_EAX);
941	}
942
943	if(VarKind==VAR_GLOBAL){
944	if(bOffsetOffset){
945	//mov dword ptr[ecx+offset],eax
946	OpBuffer[obp++]=(char)0x89;
947	OpBuffer[obp++]=(char)0x81;
948	((long )(OpBuffer+obp))=offset;
949	pobj_GlobalVarSchedule->add();
950	obp+=sizeof(long);
951	}
952	else{
953	//mov dword ptr[offset],eax
954	OpBuffer[obp++]=(char)0xA3;
955	((long )(OpBuffer+obp))=offset;
956	pobj_GlobalVarSchedule->add();
957	obp+=sizeof(long);
958	}
959	}
960	else if(VarKind==VAR_REFGLOBAL){
961	if(bOffsetOffset){
962	//add ecx,dword ptr[offset]
963	op_add_RM( sizeof(long), REG_ECX, REG_NON, (int)offset, MOD_DISP32 );
964	}
965	else{
966	//mov ecx,dword ptr[offset]
967	op_mov_RM( sizeof(long), REG_ECX, REG_NON, (int)offset, MOD_DISP32 );
968	}
969	obp-=sizeof(long);
970	pobj_GlobalVarSchedule->add();
971	obp+=sizeof(long);
972
973	//mov dword ptr[ecx],eax
974	OpBuffer[obp++]=(char)0x89;
975	OpBuffer[obp++]=(char)0x01;
976	}
977	else if(VarKind==VAR_LOCAL){
978	if(bOffsetOffset){
979	//add ecx,offset
980	OpBuffer[obp++]=(char)0x81;
981	OpBuffer[obp++]=(char)0xC1;
982	((long )(OpBuffer+obp))=offset;
983	AddLocalVarAddrSchedule();
984	obp+=sizeof(long);
985
986	//mov dword ptr[ebp+ecx],eax
987	OpBuffer[obp++]=(char)0x89;
988	OpBuffer[obp++]=(char)0x44;
989	OpBuffer[obp++]=(char)0x0D;
990	OpBuffer[obp++]=(char)0x00;
991	}
992	else{
993	//mov dword ptr[ebp+offset],eax
994	OpBuffer[obp++]=(char)0x89;
995	OpBuffer[obp++]=(char)0x85;
996	((long )(OpBuffer+obp))=offset;
997	AddLocalVarAddrSchedule();
998	obp+=sizeof(long);
999	}
1000	}
1001	else if(VarKind==VAR_REFLOCAL){
1002	if(bOffsetOffset){
1003	//add ecx,dword ptr[ebp+offset]
1004	OpBuffer[obp++]=(char)0x03;
1005	OpBuffer[obp++]=(char)0x8D;
1006	((long )(OpBuffer+obp))=offset;
1007	AddLocalVarAddrSchedule();
1008	obp+=sizeof(long);
1009	}
1010	else{
1011	//mov ecx,dword ptr[ebp+offset]
1012	OpBuffer[obp++]=(char)0x8B;
1013	OpBuffer[obp++]=(char)0x8D;
1014	((long )(OpBuffer+obp))=offset;
1015	AddLocalVarAddrSchedule();
1016	obp+=sizeof(long);
1017	}
1018
1019	//mov dword ptr[ecx],eax
1020	OpBuffer[obp++]=(char)0x89;
1021	OpBuffer[obp++]=(char)0x01;
1022	}
1023	else if(VarKind==VAR_DIRECTMEM){
1024	//mov dword ptr[ecx],eax
1025	OpBuffer[obp++]=(char)0x89;
1026	OpBuffer[obp++]=(char)0x01;
1027	}
1028	}
1029	void SetLongVariable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
1030	if(type==DEF_DOUBLE\|\|type==DEF_SINGLE){
1031	if(type==DEF_DOUBLE){
1032	//fld qword ptr[esp]
1033	op_fld_ptr_esp(DEF_DOUBLE);
1034
1035	//add esp,8
1036	op_add_esp(8);
1037	}
1038	else if(type==DEF_SINGLE){
1039	//fld dword ptr[esp]
1040	op_fld_ptr_esp(DEF_SINGLE);
1041
1042	//add esp,4
1043	op_add_esp(4);
1044	}
1045
1046	if(VarKind==VAR_GLOBAL){
1047	if(bOffsetOffset){
1048	//fistp dword ptr[ecx+offset]
1049	fpu_cast();
1050	OpBuffer[obp++]=(char)0xDB;
1051	OpBuffer[obp++]=(char)0x99;
1052	((long )(OpBuffer+obp))=offset;
1053	pobj_GlobalVarSchedule->add();
1054	obp+=sizeof(long);
1055	fpu_cast_end();
1056	}
1057	else{
1058	//fistp dword ptr[offset]
1059	fpu_cast();
1060	OpBuffer[obp++]=(char)0xDB;
1061	OpBuffer[obp++]=(char)0x1D;
1062	((long )(OpBuffer+obp))=offset;
1063	pobj_GlobalVarSchedule->add();
1064	obp+=sizeof(long);
1065	fpu_cast_end();
1066	}
1067	}
1068	else if(VarKind==VAR_REFGLOBAL){
1069	//mov eax,dword ptr[offset]
1070	op_mov_RM( sizeof(long), REG_EAX, REG_NON, (int)offset, MOD_DISP32 );
1071	obp-=sizeof(long);
1072	pobj_GlobalVarSchedule->add();
1073	obp+=sizeof(long);
1074
1075	if(bOffsetOffset){
1076	//add eax,ecx
1077	OpBuffer[obp++]=(char)0x03;
1078	OpBuffer[obp++]=(char)0xC1;
1079	}
1080
1081	//fistp dword ptr[eax]
1082	fpu_cast();
1083	OpBuffer[obp++]=(char)0xDB;
1084	OpBuffer[obp++]=(char)0x18;
1085	fpu_cast_end();
1086	}
1087	else if(VarKind==VAR_LOCAL){
1088	if(bOffsetOffset){
1089	//add ecx,offset
1090	OpBuffer[obp++]=(char)0x81;
1091	OpBuffer[obp++]=(char)0xC1;
1092	((long )(OpBuffer+obp))=offset;
1093	AddLocalVarAddrSchedule();
1094	obp+=sizeof(long);
1095
1096	//fistp dword ptr[ebp+ecx]
1097	fpu_cast();
1098	OpBuffer[obp++]=(char)0xDB;
1099	OpBuffer[obp++]=(char)0x5C;
1100	OpBuffer[obp++]=(char)0x0D;
1101	OpBuffer[obp++]=(char)0x00;
1102	fpu_cast_end();
1103	}
1104	else{
1105	//fistp dword ptr[ebp+offset]
1106	fpu_cast();
1107	OpBuffer[obp++]=(char)0xDB;
1108	OpBuffer[obp++]=(char)0x9D;
1109	((long )(OpBuffer+obp))=offset;
1110	AddLocalVarAddrSchedule();
1111	obp+=sizeof(long);
1112	fpu_cast_end();
1113	}
1114	}
1115	else if(VarKind==VAR_REFLOCAL){
1116	//mov eax,dword ptr[ebp+offset]
1117	OpBuffer[obp++]=(char)0x8B;
1118	OpBuffer[obp++]=(char)0x85;
1119	((long )(OpBuffer+obp))=offset;
1120	AddLocalVarAddrSchedule();
1121	obp+=sizeof(long);
1122
1123	if(bOffsetOffset){
1124	//add eax,ecx
1125	OpBuffer[obp++]=(char)0x03;
1126	OpBuffer[obp++]=(char)0xC1;
1127	}
1128
1129	//fistp dword ptr[eax]
1130	fpu_cast();
1131	OpBuffer[obp++]=(char)0xDB;
1132	OpBuffer[obp++]=(char)0x18;
1133	fpu_cast_end();
1134	}
1135	else if(VarKind==VAR_DIRECTMEM){
1136	//fistp dword ptr[ecx]
1137	fpu_cast();
1138	OpBuffer[obp++]=(char)0xDB;
1139	OpBuffer[obp++]=(char)0x19;
1140	fpu_cast_end();
1141	}
1142	}
1143	else{
1144	//実数以外の型からの代入処理はDWordのものと同様
1145	SetDWordVariable(type,VarKind,offset,bOffsetOffset);
1146	}
1147	}
1148	void Set16Variable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
1149	ChangeTypeToWhole(type,DEF_INTEGER);
1150
1151	//pop eax
1152	op_pop(REG_EAX);
1153
1154	if(VarKind==VAR_GLOBAL){
1155	if(bOffsetOffset){
1156	//mov word ptr[ecx+offset],ax
1157	OpBuffer[obp++]=(char)0x66;
1158	OpBuffer[obp++]=(char)0x89;
1159	OpBuffer[obp++]=(char)0x81;
1160	((long )(OpBuffer+obp))=offset;
1161	pobj_GlobalVarSchedule->add();
1162	obp+=sizeof(long);
1163	}
1164	else{
1165	//mov word ptr[offset],ax
1166	OpBuffer[obp++]=(char)0x66;
1167	OpBuffer[obp++]=(char)0xA3;
1168	((long )(OpBuffer+obp))=offset;
1169	pobj_GlobalVarSchedule->add();
1170	obp+=sizeof(long);
1171	}
1172	}
1173	else if(VarKind==VAR_REFGLOBAL){
1174	//mov ebx,dword ptr[offset]
1175	op_mov_RM( sizeof(long), REG_EBX, REG_NON, (int)offset, MOD_DISP32 );
1176	obp-=sizeof(long);
1177	pobj_GlobalVarSchedule->add();
1178	obp+=sizeof(long);
1179
1180	if(bOffsetOffset){
1181	//add ebx,ecx
1182	OpBuffer[obp++]=(char)0x03;
1183	OpBuffer[obp++]=(char)0xD9;
1184	}
1185
1186	//mov word ptr[ebx],ax
1187	OpBuffer[obp++]=(char)0x66;
1188	OpBuffer[obp++]=(char)0x89;
1189	OpBuffer[obp++]=(char)0x03;
1190	}
1191	else if(VarKind==VAR_LOCAL){
1192	if(bOffsetOffset){
1193	//add ecx,offset
1194	OpBuffer[obp++]=(char)0x81;
1195	OpBuffer[obp++]=(char)0xC1;
1196	((long )(OpBuffer+obp))=offset;
1197	AddLocalVarAddrSchedule();
1198	obp+=sizeof(long);
1199
1200	//mov word ptr[ebp+ecx],ax
1201	OpBuffer[obp++]=(char)0x66;
1202	OpBuffer[obp++]=(char)0x89;
1203	OpBuffer[obp++]=(char)0x44;
1204	OpBuffer[obp++]=(char)0x0D;
1205	OpBuffer[obp++]=(char)0x00;
1206	}
1207	else{
1208	//mov word ptr[ebp+offset],ax
1209	OpBuffer[obp++]=(char)0x66;
1210	OpBuffer[obp++]=(char)0x89;
1211	OpBuffer[obp++]=(char)0x85;
1212	((long )(OpBuffer+obp))=offset;
1213	AddLocalVarAddrSchedule();
1214	obp+=sizeof(long);
1215	}
1216	}
1217	else if(VarKind==VAR_REFLOCAL){
1218	//mov ebx,dword ptr[ebp+offset]
1219	OpBuffer[obp++]=(char)0x8B;
1220	OpBuffer[obp++]=(char)0x9D;
1221	((long )(OpBuffer+obp))=offset;
1222	AddLocalVarAddrSchedule();
1223	obp+=sizeof(long);
1224
1225	if(bOffsetOffset){
1226	//add ebx,ecx
1227	OpBuffer[obp++]=(char)0x03;
1228	OpBuffer[obp++]=(char)0xD9;
1229	}
1230
1231	//mov word ptr[ebx],ax
1232	OpBuffer[obp++]=(char)0x66;
1233	OpBuffer[obp++]=(char)0x89;
1234	OpBuffer[obp++]=(char)0x03;
1235	}
1236	else if(VarKind==VAR_DIRECTMEM){
1237	//mov word ptr[ecx],ax
1238	OpBuffer[obp++]=(char)0x66;
1239	OpBuffer[obp++]=(char)0x89;
1240	OpBuffer[obp++]=(char)0x01;
1241	}
1242	}
1243	void Set8Variable(int type,DWORD VarKind,DWORD offset,BOOL bOffsetOffset){
1244	ChangeTypeToWhole(type,DEF_SBYTE);
1245
1246	//pop eax
1247	op_pop(REG_EAX);
1248
1249	if(VarKind==VAR_GLOBAL){
1250	if(bOffsetOffset){
1251	//mov byte ptr[ecx+offset],al
1252	OpBuffer[obp++]=(char)0x88;
1253	OpBuffer[obp++]=(char)0x81;
1254	((long )(OpBuffer+obp))=offset;
1255	pobj_GlobalVarSchedule->add();
1256	obp+=sizeof(long);
1257	}
1258	else{
1259	//mov byte ptr[offset],al
1260	OpBuffer[obp++]=(char)0xA2;
1261	((long )(OpBuffer+obp))=offset;
1262	pobj_GlobalVarSchedule->add();
1263	obp+=sizeof(long);
1264	}
1265	}
1266	else if(VarKind==VAR_REFGLOBAL){
1267	//mov ebx,dword ptr[offset]
1268	op_mov_RM( sizeof(long), REG_EBX, REG_NON, (int)offset, MOD_DISP32 );
1269	obp-=sizeof(long);
1270	pobj_GlobalVarSchedule->add();
1271	obp+=sizeof(long);
1272
1273	if(bOffsetOffset){
1274	//add ebx,ecx
1275	OpBuffer[obp++]=(char)0x03;
1276	OpBuffer[obp++]=(char)0xD9;
1277	}
1278
1279	//mov byte ptr[ebx],al
1280	OpBuffer[obp++]=(char)0x88;
1281	OpBuffer[obp++]=(char)0x03;
1282	}
1283	else if(VarKind==VAR_LOCAL){
1284	if(bOffsetOffset){
1285	//add ecx,offset
1286	OpBuffer[obp++]=(char)0x81;
1287	OpBuffer[obp++]=(char)0xC1;
1288	((long )(OpBuffer+obp))=offset;
1289	AddLocalVarAddrSchedule();
1290	obp+=sizeof(long);
1291
1292	//mov byte ptr[ebp+ecx],al
1293	OpBuffer[obp++]=(char)0x88;
1294	OpBuffer[obp++]=(char)0x44;
1295	OpBuffer[obp++]=(char)0x0D;
1296	OpBuffer[obp++]=(char)0x00;
1297	}
1298	else{
1299	//mov byte ptr[ebp+offset],al
1300	OpBuffer[obp++]=(char)0x88;
1301	OpBuffer[obp++]=(char)0x85;
1302	((long )(OpBuffer+obp))=offset;
1303	AddLocalVarAddrSchedule();
1304	obp+=sizeof(long);
1305	}
1306	}
1307	else if(VarKind==VAR_REFLOCAL){
1308	//mov ebx,dword ptr[ebp+offset]
1309	OpBuffer[obp++]=(char)0x8B;
1310	OpBuffer[obp++]=(char)0x9D;
1311	((long )(OpBuffer+obp))=offset;
1312	AddLocalVarAddrSchedule();
1313	obp+=sizeof(long);
1314
1315	if(bOffsetOffset){
1316	//add ebx,ecx
1317	OpBuffer[obp++]=(char)0x03;
1318	OpBuffer[obp++]=(char)0xD9;
1319	}
1320
1321	//mov byte ptr[ebx],al
1322	OpBuffer[obp++]=(char)0x88;
1323	OpBuffer[obp++]=(char)0x03;
1324	}
1325	else if(VarKind==VAR_DIRECTMEM){
1326	//mov byte ptr[ecx],al
1327	OpBuffer[obp++]=(char)0x88;
1328	OpBuffer[obp++]=(char)0x01;
1329	}
1330	}
1331	*/

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

Download in other formats: