Context Navigation

source: dev/BasicCompiler64/NumOpe.cpp@ 117

Last change on this file since 117 was 117, checked in by dai_9181, 18 years ago
String/ObjectをSystem名前空間に依存しない特殊型として扱うようにした
File size: 29.3 KB

Line
1	#include "../BasicCompiler_Common/common.h"
2	#include "Opcode.h"
3
4	void NewStringObject(int reg, const char *str){
5	///////////////////////////////////////////////////////
6	// lpszTextを元にStringオブジェクトを生成し、
7	// オブジェクトポインタをregに格納する
8	///////////////////////////////////////////////////////
9
10
11	//////////////////////////////////////////////////////
12	///// レジスタ資源のバックアップ
13	{ BACKUP_REGISTER_RESOURCE
14	//////////////////////////////////////////////////////
15
16	char parameter = (char )malloc( lstrlen( str ) + 32 );
17	sprintf( parameter, "\"%s\"%c%c*Char", str, 1, ESC_AS );
18	SetStringQuotes( parameter );
19
20	Operator_New( pobj_DBClass->GetStringClassPtr(), "", parameter, Type( DEF_OBJECT, pobj_DBClass->GetStringClassPtr() ) );
21
22	free( parameter );
23
24	//mov reg,rax
25	op_mov_RR( reg, REG_RAX );
26
27	/////////////////////////////////////////////
28	////// レジスタ資源を復元
29	RESTORE_REGISTER_RESOURCE
30	}////////////////////////////////////////////
31	}
32
33	void SetUseRegFromRax(int type,int UseReg,int XmmReg){
34	if(IsRealNumberType(type)){
35	//実数型
36	if(XmmReg==REG_XMM4){
37	if(type==DEF_DOUBLE){
38	//movsd qword ptr[rsp+offset],xmm0 ※スタックフレームを利用
39	pobj_sf->push(REG_XMM0,sizeof(double));
40	}
41	if(type==DEF_SINGLE){
42	//movss dword ptr[rsp+offset],xmm0 ※スタックフレームを利用
43	pobj_sf->push(REG_XMM0,sizeof(float));
44	}
45	}
46	else{
47	if(type==DEF_DOUBLE){
48	//movsd xmm_reg,xmm0
49	op_movsd_RR(XmmReg,REG_XMM0);
50	}
51	else if(type==DEF_SINGLE){
52	//movss xmm_reg,xmm0
53	op_movss_RR(XmmReg,REG_XMM0);
54	}
55	}
56	}
57	else{
58	//整数型
59	if(UseReg==REG_R14){
60	//mov qword ptr[rsp+offset],rax ※スタックフレームを利用
61	pobj_sf->push(REG_RAX);
62	}
63	else{
64	//mov reg,rax
65	op_mov_RR(UseReg,REG_RAX);
66	}
67	}
68	}
69
70	void ExtendRegToBigType( int reg, int bigBasicType, int baseBasicType ){
71	switch( Type::GetBasicSize( bigBasicType ) ){
72	case sizeof(_int64):
73	ExtendTypeTo64(baseBasicType,reg);
74	break;
75	case sizeof(long):
76	ExtendTypeTo32(baseBasicType,reg);
77	break;
78	case sizeof(short):
79	ExtendTypeTo16(baseBasicType,reg);
80	break;
81	}
82	}
83
84
85	bool VarToReg( RELATIVE_VAR &relativeVar, const Type &baseType, Type &resultType ){
86	int UseReg=pobj_reg->GetNextReg();
87	int XmmReg=pobj_reg->GetNextXmmReg();
88
89	//大きな型への暗黙の変換
90	int bigType = AutoBigCast(baseType.GetBasicType(),resultType.GetBasicType());
91
92	if(resultType.GetBasicType()&FLAG_PTR){
93	//配列ポインタ
94	resultType.SetBasicType( GetPtrType(resultType.GetBasicType()^FLAG_PTR) );
95
96	SetVarPtrToReg(UseReg,&relativeVar);
97	}
98	else if(resultType.IsReal()){
99	//実数型
100	if( resultType.IsDouble() )
101	SetXmmReg_DoubleVariable(&relativeVar,XmmReg);
102	if( resultType.IsSingle() )
103	SetXmmReg_SingleVariable(&relativeVar,XmmReg);
104	}
105	else if( resultType.IsWhole() \|\| resultType.IsObject()){
106	//整数型
107	SetReg_WholeVariable(resultType.GetBasicType(),&relativeVar,UseReg);
108	}
109	else if( resultType.IsStruct() ){
110	//構造体ポインタをUseRegへ格納（構造体は値型）
111	SetVarPtrToReg(UseReg,&relativeVar);
112	}
113	else{
114	return false;
115	}
116
117	if( resultType.GetBasicType() != bigType ){
118	// 大きな型へ変換された場合
119	// ※レジスタの値をキャストする
120	ExtendRegToBigType( UseReg, bigType, resultType.GetBasicType() );
121
122	resultType.SetBasicType( bigType );
123	}
124
125	return true;
126	}
127	bool TermMemberOpe( const CClass &objClass, const Type &baseType, Type &resultType, const char termFull, const char termLeft, const char *member ){
128
129	int UseReg=pobj_reg->GetNextReg();
130	int XmmReg=pobj_reg->GetNextXmmReg();
131
132
133	if( GetMemberType( objClass, member, resultType, 0, false ) ){
134	// メンバが見つかったとき
135
136	//オブジェクトポインタをr11にコピー
137	op_mov_RR( REG_R11, UseReg );
138
139	RELATIVE_VAR relativeVar;
140	relativeVar.dwKind=VAR_DIRECTMEM;
141
142	if( !_member_offset(
143	true, //エラー表示あり
144	false, //読み込み専用
145	objClass,
146	member,&relativeVar,resultType,0)){
147	return false;
148	}
149
150	if( !VarToReg( relativeVar, baseType, resultType ) ){
151	SetError(11,termFull,cp);
152	}
153
154	return true;
155	}
156
157
158	///////////////////////////////////////////////////////////////////
159	// 動的メソッドを検索
160	///////////////////////////////////////////////////////////////////
161	vector<UserProc *> userProcs;
162
163	char methodName[VN_SIZE], lpPtrOffset[VN_SIZE], parameter[VN_SIZE], dummy[1];
164	CClass::RefType refType;
165	lstrcpy( methodName, member );
166	GetVarFormatString(methodName,parameter,lpPtrOffset,dummy,refType);
167
168	objClass.EnumMethod( methodName, userProcs );
169	UserProc *pUserProc;
170	if(userProcs.size()){
171	//オーバーロードを解決
172	pUserProc=OverloadSolutionWithStrParam(termFull,userProcs,parameter,termLeft);
173
174	if( pUserProc ){
175
176	resultType = pUserProc->ReturnType();
177
178
179	//////////////////////////////////////////////////////
180	///// レジスタ資源のバックアップ
181	{ BACKUP_REGISTER_RESOURCE
182	//////////////////////////////////////////////////////
183
184	//オブジェクトポインタをスタックに入れておく
185	//mov qword ptr[rsp+offset],reg ※スタックフレームを利用
186	pobj_sf->push( UseReg );
187
188	if( !Opcode_CallProc(parameter,pUserProc,PROCFLAG_NEW,termLeft,0 ) ){
189	//レジスタ資源を復元
190	RESTORE_REGISTER_RESOURCE
191
192	return false;
193	}
194
195	pobj_sf->pop();
196
197	/////////////////////
198	// 戻り値の処理
199	/////////////////////
200
201	//大きな型への暗黙の変換
202	int bigType = AutoBigCast(baseType.GetBasicType(), resultType.GetBasicType() );
203
204	if( resultType.GetBasicType() != bigType ){
205	// 大きな型へ変換された場合
206	// ※レジスタの値をキャストする
207	ExtendRegToBigType( REG_RAX, bigType, resultType.GetBasicType() );
208
209	resultType.SetBasicType( bigType );
210	}
211
212	SetUseRegFromRax(resultType.GetBasicType(),UseReg,XmmReg);
213
214
215	/////////////////////////////////////////////
216	////// レジスタ資源を復元
217	RESTORE_REGISTER_RESOURCE
218	}////////////////////////////////////////////
219
220	return true;
221	}
222	}
223
224	return false;
225	}
226	bool TermOpe( const char term, const Type &baseType, Type &resultType, bool &isLiteral, BOOL pbUseHeap, bool *pIsClassName = NULL ){
227	char parameter[VN_SIZE];
228
229	// Withを解決
230	char termFull[VN_SIZE];
231	if(term[0]=='.'){
232	GetWithName(termFull);
233	lstrcat(termFull,term);
234	}
235	else lstrcpy(termFull,term);
236
237	char termLeft[VN_SIZE];
238	lstrcpy(termLeft,termFull);
239
240	// パース
241	char member[VN_SIZE];
242	CClass::RefType refType;
243	if( SplitMemberName( termFull, termLeft, member, refType ) ){
244	///////////////////////////////////////////////////////////////////
245	// オブジェクトとメンバに分解できるとき
246	// termLeft.member
247	///////////////////////////////////////////////////////////////////
248
249	isLiteral = false;
250
251	// オブジェクト側の型を取得
252	bool isClassName = false;
253	Type leftType;
254	if( !TermOpe( termLeft, baseType, leftType, isLiteral, pbUseHeap, &isClassName ) ){
255	goto globalArea;
256	}
257
258	if( isClassName ){
259	// 静的メンバ/メソッドの場合
260	goto globalArea;
261	}
262
263	if( !leftType.HasMember() ){
264	// メンバを持たない型の場合
265	return false;
266	}
267
268	return TermMemberOpe( leftType.GetClass(), baseType, resultType, termFull, termLeft, member );
269	}
270	globalArea:
271
272	//////////////////////////////////////////////
273	// クラス名かどうかをチェック（静的メンバ用）
274	//////////////////////////////////////////////
275
276	if( pIsClassName ){
277	if( pobj_DBClass->Find( termFull ) ){
278	*pIsClassName = true;
279	return true;
280	}
281	}
282
283
284	/////////////////////////////////////////////////////////////////
285	// グローバル属性エリア
286	/////////////////////////////////////////////////////////////////
287
288	int UseReg=pobj_reg->GetNextReg();
289	int XmmReg=pobj_reg->GetNextXmmReg();
290
291
292	if(lstrcmpi(termFull,"This")==0){
293	//Thisオブジェクト
294	resultType.SetType( DEF_OBJECT, pobj_CompilingClass );
295
296	SetThisPtrToReg( UseReg );
297
298	isLiteral = false;
299
300	return true;
301	}
302
303
304	//////////////////////////////////////
305	// 関数（DLL、ユーザー定義、組み込み）
306	//////////////////////////////////////
307	char procName[VN_SIZE];
308	char temporary[8192];
309
310	int i2=GetCallProcName(termFull,procName);
311	if(termFull[i2]=='('){
312	int i4=GetStringInPare_RemovePare(parameter,termFull+i2+1);
313
314	void *pInfo;
315	int idProc=GetProc(procName,(void **)&pInfo);
316
317	if(idProc){
318	//閉じカッコ")"に続く文字がNULLでないとき
319	if(termFull[i2+1+i4+1]!='\0'){
320	SetError(42,NULL,cp);
321	}
322
323
324	//////////////////////////////////////////////////////
325	///// レジスタ資源のバックアップ
326	{ BACKUP_REGISTER_RESOURCE
327	//////////////////////////////////////////////////////
328
329
330	////////////////
331	// 呼び出し
332	////////////////
333
334	CallProc(idProc,pInfo,procName,parameter,resultType);
335
336
337	/////////////////////
338	// 戻り値の処理
339	/////////////////////
340
341	//大きな型への暗黙の変換
342	int bigType = AutoBigCast(baseType.GetBasicType(), resultType.GetBasicType() );
343
344	if( resultType.GetBasicType() != bigType ){
345	// 大きな型へ変換された場合
346	// ※レジスタの値をキャストする
347	ExtendRegToBigType( REG_RAX, bigType, resultType.GetBasicType() );
348
349	resultType.SetBasicType( bigType );
350	}
351
352	SetUseRegFromRax(resultType.GetBasicType(),UseReg,XmmReg);
353
354	/////////////////////////////////////////////
355	////// レジスタ資源を復元
356	RESTORE_REGISTER_RESOURCE
357	}////////////////////////////////////////////
358
359	if(resultType.IsStruct()){
360	//構造体が戻ったときはヒープ領域にインスタンスが格納されている
361	//※後にfreeする必要あり
362	// TODO: 解放はGCに任せる
363	*pbUseHeap = 1;
364	}
365
366	isLiteral = false;
367
368	return true;
369	}
370	else if(GetConstCalcBuffer(procName,parameter,temporary)){
371	/////////////////////////
372	// マクロ関数
373	/////////////////////////
374
375	//閉じカッコ")"に続く文字がNULLでないときはエラーにする
376	if(termFull[i2+1+i4+1]!='\0') SetError(42,NULL,cp);
377
378	//マクロ関数の場合
379	NumOpe(&UseReg,temporary,Type(),resultType);
380
381	if(!IS_LITERAL(resultType.GetIndex())){
382	//リテラル値ではなかったとき
383	isLiteral = false;
384	}
385
386	return true;
387	}
388	}
389
390
391	////////////////////////////////
392	// インデクサ（getアクセサ）
393	////////////////////////////////
394
395	char VarName[VN_SIZE],ArrayElements[VN_SIZE];
396	GetArrayElement(termFull,VarName,ArrayElements);
397	if(ArrayElements[0]){
398	GetVarType(VarName,resultType,false);
399	if( resultType.IsObject() ){
400	CallIndexerGetterProc(UseReg,&resultType.GetClass(),VarName,ArrayElements,resultType);
401
402	isLiteral = false;
403
404	return true;
405	}
406	}
407
408
409	////////////////////////////////
410	// 変数
411	////////////////////////////////
412
413	RELATIVE_VAR relativeVar;
414	if(GetVarOffset(
415	false, //エラー表示なし
416	false, //読み込み専用
417	termFull,
418	&relativeVar,resultType)){
419	//////////
420	// 変数
421	//////////
422
423	if( !VarToReg( relativeVar, baseType, resultType ) ){
424	SetError(11,termFull,cp);
425	}
426
427	isLiteral = false;
428
429	return true;
430	}
431
432	/*
433	////////////////////////////////
434	// 型名
435	////////////////////////////////
436
437	if( Type::StringToType( termFull, resultType ) ){
438	resultType.SetBasicType( resultType.GetBasicType() \| FLAG_CAST );
439	return true;
440	}*/
441
442
443	/////////////////////////////////
444	// プロパティ用のメソッド
445	/////////////////////////////////
446
447	//配列要素を排除
448	GetArrayElement(termFull,VarName,ArrayElements);
449
450	if(GetSubHash(VarName,0)){
451
452	//////////////////////////////////////////////////////
453	///// レジスタ資源のバックアップ
454	{ BACKUP_REGISTER_RESOURCE
455	//////////////////////////////////////////////////////
456
457	CallPropertyMethod(termFull,NULL,resultType);
458
459	//大きな型への暗黙の変換
460	int bigType = AutoBigCast(baseType.GetBasicType(), resultType.GetBasicType() );
461
462	if( resultType.GetBasicType() != bigType ){
463	// 大きな型へ変換された場合
464	// ※レジスタの値をキャストする
465	ExtendRegToBigType( REG_RAX, bigType, resultType.GetBasicType() );
466
467	resultType.SetBasicType( bigType );
468	}
469
470	SetUseRegFromRax(resultType.GetBasicType(),UseReg,XmmReg);
471
472	/////////////////////////////////////////////
473	////// レジスタ資源を復元
474	RESTORE_REGISTER_RESOURCE
475	}////////////////////////////////////////////
476
477	if(resultType.IsStruct()){
478	//構造体が戻ったときはヒープ領域にインスタンスが格納されている
479	//※後にfreeする必要あり
480	// TODO: 解放はGCに任せる
481	*pbUseHeap = 1;
482	}
483
484	isLiteral = false;
485
486	return true;
487	}
488
489
490	return false;
491	}
492
493	bool NumOpe( int *pReg,
494	const char *expression,
495	const Type &baseType,
496	Type &resultType,
497	BOOL *pbUseHeap ){
498
499	int i,i2,i3;
500	char temporary[1024],temp2[1024];
501
502	if(expression[0]=='\0'){
503	SetError(1,NULL,cp);
504	return false;
505	}
506
507	if(expression[0]==1&& expression[1]==ESC_NEW ){
508	//New演算子（オブジェクト生成）
509
510	if( !Operator_New( expression+2, baseType, resultType ) ){
511	return false;
512	}
513
514	//mov reg,rax
515	op_mov_RR( *pReg, REG_RAX );
516
517	return true;
518	}
519
520	if( !baseType.IsNull() && expression[0] == '[' ){
521	// リテラル配列の場合
522
523	if( !baseType.IsPointer() ){
524	SetError(1,NULL,cp);
525	return false;
526	}
527	Type tempBaseType( baseType );
528	tempBaseType.PtrLevelDown();
529
530	char buffer = (char )malloc( lstrlen( expression ) + 1 );
531	lstrcpy( buffer, expression );
532	RemoveStringBracket( buffer );
533
534	void *binary = malloc( 1 );
535	int num = 0;
536
537	i = 0;
538	while( buffer[i] ){
539	i = GetOneParameter( buffer, i, temporary );
540	if( buffer[i] == ',' ){
541	i++;
542	}
543
544	Type resultType;
545	_int64 i64data;
546	if( !StaticCalculation( true, temporary, tempBaseType.GetBasicType(), &i64data, resultType ) ){
547	return false;
548	}
549	if( !resultType.IsWhole() ){
550	// TODO: 実数に未対応
551	SetError();
552	return false;
553	}
554
555	binary = realloc( binary, ( num + 1 ) * tempBaseType.GetSize() );
556	memcpy( (char )binary + (num tempBaseType.GetSize()), &i64data, tempBaseType.GetSize() );
557	num++;
558	}
559
560	i2 = dataTable.AddBinary( binary, num * tempBaseType.GetSize() );
561
562	//mov reg,i2
563	op_mov_RV(sizeof(_int64),*pReg,i2);
564	obp-=sizeof(long);
565	pobj_DataTableSchedule->add();
566	obp+=sizeof(long);
567
568	free( buffer );
569
570	resultType = baseType;
571
572	return true;
573	}
574
575
576	/////////////////////////////////
577	// 式要素を逆ポーランド式で取得
578	/////////////////////////////////
579
580	char *values[255];
581	long calc[255];
582	long stack[255];
583	int pnum;
584	if(!GetNumOpeElements(expression,&pnum,values,calc,stack)){
585	for(i=0;i<pnum;i++){
586	if(values[i]) HeapDefaultFree(values[i]);
587	}
588	return 0;
589	}
590
591
592	BOOL bInitRegSwitch=0;
593	if(!pobj_reg){
594	bInitRegSwitch=1;
595
596	//作業用レジスタを取得
597	pobj_reg=new CRegister(*pReg);
598	}
599
600	//エラー時の復旧用
601	CRegister objReg_Backup;
602	objReg_Backup=*pobj_reg;
603
604
605
606	////////////////////////////////
607	// 演算部分のコード生成を開始
608	////////////////////////////////
609
610	BOOL bError;
611	bError=0;
612
613	//リテラル値のみの計算かどうかを判別するためのフラグ
614	BOOL bLiteralCalculation=1;
615
616	//リテラル演算の場合を考慮した演算前のバッファ位置
617	int BeforeObp;
618	BeforeObp=obp;
619
620	//リテラル演算の場合を考慮した演算前のプロシージャスケジュール位置
621	//※64ビットの掛け算、除算などで特殊関数が呼ばれるため
622	int Before_ProcAddrScheduleNum;
623	Before_ProcAddrScheduleNum=pobj_SubAddrSchedule->num;
624
625	//リテラル演算の場合を考慮した演算前のデータテーブルスケジュール位置
626	int Before_DataTableScheduleNum;
627	Before_DataTableScheduleNum=pobj_DataTableSchedule->num;
628
629	//リテラル演算の場合を考慮した演算前の再配置スケジュール
630	CReloc *pobj_BackReloc;
631	pobj_BackReloc=new CReloc();
632	pobj_BackReloc->copy(pobj_Reloc);
633
634	//リテラル演算の場合を考慮した演算前のスタックフレームスケジュール位置
635	int Before_StackFrameScheduleNum;
636	Before_StackFrameScheduleNum=pobj_sf->num;
637
638	double dbl;
639	int sp;
640	int type_stack[255];
641	LONG_PTR index_stack[255];
642	bool isNothing_stack[255];
643	BOOL bUseHeap[255];
644	_int64 i64data;
645	int UseReg,XmmReg;
646	BOOL bXmm;
647	for(i=0,sp=0;i<pnum;i++){
648	int idCalc;
649	idCalc=calc[i]%100;
650
651	if(idCalc){
652	if(type_stack[sp-2]==DEF_OBJECT){
653	if( idCalc == CALC_AS
654	&& type_stack[sp-1] == ( DEF_OBJECT \| FLAG_CAST )
655	&& index_stack[sp-1] == index_stack[sp-2]
656	\|\| isNothing_stack[sp-2] ){
657	// 同一の型、またはNothingに対するAsはAs演算子を呼び出さない
658	}
659	else if( idCalc == CALC_AS
660	&& type_stack[sp-1] == ( DEF_OBJECT \| FLAG_CAST )
661	&& ( ((CClass )index_stack[sp-1])->IsEqualsOrSubClass( (CClass )index_stack[sp-2] ) \|\| ((CClass )index_stack[sp-2])->IsEqualsOrSubClass( (CClass )index_stack[sp-1] )
662	)){
663	// ダウンキャストを許可する
664	}
665	else{
666	//オーバーロードされたオペレータを呼び出す
667	i2=CallOperatorProc(idCalc,baseType,type_stack,index_stack,bUseHeap,sp);
668	if(i2==0){
669	if(idCalc==CALC_EQUAL) lstrcpy(temp2,"==");
670	else GetCalcName(idCalc,temp2);
671	sprintf(temporary,"Operator %s",temp2);
672	SetError(27,temporary,cp);
673	goto error;
674	}
675	else if(i2==-1) goto error;
676
677	continue;
678	}
679	}
680
681	if(!CheckCalcType(idCalc,type_stack,sp)) goto error;
682	}
683
684	switch(idCalc){
685	//数値
686	case 0:
687	index_stack[sp]=-1;
688	isNothing_stack[sp] = false;
689	bUseHeap[sp]=0;
690
691	UseReg=pobj_reg->GetNextReg();
692	XmmReg=pobj_reg->GetNextXmmReg();
693
694	bXmm=0;
695
696	char *term;
697	term=values[i];
698
699	if( calc[i+1]%100 == CALC_AS ){
700	// As演算子の右辺値
701	//型名
702	if( Type::StringToType( term, resultType ) ){
703	resultType.SetBasicType( resultType.GetBasicType() \| FLAG_CAST );
704	}
705	else{
706	SetError(3, term, cp );
707	goto error;
708	}
709
710	type_stack[sp] = resultType.GetBasicType();
711	index_stack[sp] = resultType.GetIndex();
712	sp++;
713
714	break;
715	}
716
717	if(term[0]=='\"'){
718	//リテラル文字列
719	if(!RemoveStringQuotes(term)){
720	SetError(43,NULL,cp);
721	goto error;
722	}
723	i3=lstrlen(term);
724	StrLiteral:
725
726	if( baseType.IsObject() \|\| baseType.IsNull() ){
727	//要求タイプがオブジェクト、または未定のとき
728
729	//String型オブジェクトを生成
730	NewStringObject(UseReg,term);
731
732	type_stack[sp]=DEF_OBJECT;
733	index_stack[sp]=(LONG_PTR)pobj_DBClass->GetStringClassPtr();
734	bLiteralCalculation=0;
735
736	if(bXmm) pobj_reg->LockXmmReg();
737	else pobj_reg->LockReg();
738
739	sp++;
740	break;
741	}
742
743	type_stack[sp]=typeOfPtrChar;
744	bLiteralCalculation=0;
745
746	i2 = dataTable.AddString( term, i3 );
747
748	//mov reg,i2
749	op_mov_RV(sizeof(_int64),UseReg,i2);
750	obp-=sizeof(long);
751	pobj_DataTableSchedule->add();
752	obp+=sizeof(long);
753
754	if(UseReg==REG_R14){
755	//mov qword ptr[rsp+offset],r14 ※スタックフレームを利用
756	pobj_sf->push(REG_R14);
757	}
758	}
759	else if((term[0]=='e'\|\|term[0]=='E')&&
760	(term[1]=='x'\|\|term[1]=='X')&&
761	term[2]=='\"'){
762	//拡張版リテラル文字列（エスケープシーケンス可能）
763	if(!RemoveStringQuotes(term+2)){
764	SetError(43,NULL,cp);
765	goto error;
766	}
767	i3=FormatString_EscapeSequence(term+2);
768	term+=2;
769
770	goto StrLiteral;
771	}
772	else if(IsVariableTopChar(term[0])\|\|
773	term[0]=='*'\|\|
774	(term[0]=='.'&&IsVariableTopChar(term[1]))){
775	//////////////////
776	// 何らかの識別子
777
778	if( (string)term=="ParentArea.NamespaceEnumTest.x"){
779	int test=0;
780	}
781
782	bool isLiteral;
783	if( TermOpe( term, baseType, resultType, isLiteral, &bUseHeap[sp] ) ){
784	if(resultType.IsNull()){
785	//戻り値が存在しないとき
786	for(i2=0;;i2++){
787	if(term[i2]=='('\|\|term[i2]=='\0'){
788	term[i2]=0;
789	break;
790	}
791	}
792	SetError(38,term,cp);
793
794	goto error;
795	}
796
797	type_stack[sp] = resultType.GetBasicType();
798	index_stack[sp] = resultType.GetIndex();
799
800	if( !isLiteral ){
801	bLiteralCalculation=0;
802	}
803
804	if( resultType.GetBasicType() & FLAG_CAST ){
805	// 型名のみ
806	SetError();
807	}
808	else{
809	if( resultType.IsReal() == false && UseReg==REG_R14 ){
810	//mov qword ptr[rsp+offset],r14 ※スタックフレームを利用
811	pobj_sf->push(REG_R14);
812	}
813	if( resultType.IsReal() && XmmReg==REG_XMM4 ){
814	if(resultType.IsDouble()){
815	//movsd qword ptr[rsp+offset],xmm4 ※スタックフレームを利用
816	pobj_sf->push(REG_XMM4,sizeof(double));
817	}
818	if(resultType.IsSingle()){
819	//movss dword ptr[rsp+offset],xmm4 ※スタックフレームを利用
820	pobj_sf->push(REG_XMM4,sizeof(float));
821	}
822	}
823
824	if( resultType.IsReal() ){
825	pobj_reg->LockXmmReg();
826	}
827	else{
828	pobj_reg->LockReg();
829	}
830	}
831
832	sp++;
833	break;
834	}
835
836
837	// Nothing
838	if( lstrcmp( term, "Nothing" ) == 0 ){
839	isNothing_stack[sp] = true;
840
841	type_stack[sp] = DEF_OBJECT;
842	if( baseType.IsObject() ){
843	index_stack[sp] = baseType.GetIndex();
844	}
845	else{
846	index_stack[sp] = (LONG_PTR)pobj_DBClass->GetObjectClassPtr();
847	}
848
849	bLiteralCalculation = 0;
850
851	//xor reg,reg
852	op_zero_reg( UseReg );
853
854	if(UseReg==REG_R14){
855	//mov qword ptr[rsp+offset],r14 ※スタックフレームを利用
856	pobj_sf->push(REG_R14);
857	}
858
859	pobj_reg->LockReg();
860	sp++;
861	break;
862	}
863
864
865	//////////////
866	// 定数の場合
867	//////////////
868
869	i3 = CDBConst::obj.GetBasicType(term);
870	if(i3){
871	if( CDBConst::obj.IsStringPtr( term ) ){
872	//リテラル文字列
873
874	double dbl = CDBConst::obj.GetDoubleData(term);
875	memcpy(&i64data,&dbl,sizeof(double));
876
877	//バイト数
878	i3=lstrlen((char *)i64data);
879
880	memcpy(term,(char *)i64data,i3);
881	term[i3]=0;
882	goto StrLiteral;
883	}
884
885	type_stack[sp] = i3;
886	if(IsRealNumberType(i3)){
887	//実数
888	double dbl = CDBConst::obj.GetDoubleData(term);
889	memcpy(&i64data,&dbl,sizeof(double));
890	goto Literal;
891	}
892	else if(IsWholeNumberType(i3)){
893	//整数
894	i64data = CDBConst::obj.GetWholeData(term);
895	goto Literal;
896	}
897	/*else if(i3==DEF_STRING){
898	//リテラル文字列
899
900	//バイト数
901	i3=(int)dbl;
902
903	memcpy(term,temporary,i3);
904	goto StrLiteral;
905	}*/
906	else{
907	SetError(1,NULL,0);
908	goto error;
909	}
910	}
911
912
913	//該当する識別子が見当たらないときはエラー扱いにする
914	bError=1;
915	SetError(3,term,cp);
916	type_stack[sp]=DEF_DOUBLE;
917	}
918	else{
919	//リテラル値
920	type_stack[sp]=GetLiteralValue(term,&i64data,baseType.GetBasicType());
921	Literal:
922	if(type_stack[sp]==DEF_DOUBLE){
923	//64ビット浮動小数型
924	bXmm=1;
925
926	if(XmmReg==REG_XMM4){
927	//mov r14,i64data
928	op_mov64_ToReg(REG_R14,i64data);
929
930
931	//mov qword ptr[rsp+offset],r14 ※スタックフレームを利用
932	pobj_sf->push(REG_R14);
933	}
934	else{
935	i3 = dataTable.Add( i64data );
936
937	//movlpd xmm_reg,qword ptr[data table offset]
938	OpBuffer[obp++]=(char)0x66;
939	OpBuffer[obp++]=(char)0x0F;
940	OpBuffer[obp++]=(char)0x12;
941	OpBuffer[obp++]=(char)(0x04 \| REGISTER_OPERAND(XmmReg)<<3);
942	OpBuffer[obp++]=(char)0x25;
943	((long )(OpBuffer+obp))=i3;
944	pobj_DataTableSchedule->add();
945	obp+=sizeof(long);
946	}
947	}
948	else if(type_stack[sp]==DEF_SINGLE){
949	//32ビット浮動小数型
950	bXmm=1;
951
952	float flt;
953	int i32data;
954	memcpy(&dbl,&i64data,sizeof(double));
955	flt=(float)dbl;
956	memcpy(&i32data,&flt,sizeof(long));
957
958	if(XmmReg==REG_XMM4){
959	SetError(); // TODO: 未実装
960	//push term
961	op_push_value(i32data);
962	}
963	else{
964	i3=dataTable.Add( i32data );
965
966	//movss xmm_reg,dword ptr[data table offset]
967	OpBuffer[obp++]=(char)0xF3;
968	OpBuffer[obp++]=(char)0x0F;
969	OpBuffer[obp++]=(char)0x10;
970	OpBuffer[obp++]=(char)(0x04 \| REGISTER_OPERAND(XmmReg)<<3);
971	OpBuffer[obp++]=(char)0x25;
972	((long )(OpBuffer+obp))=i3;
973	pobj_DataTableSchedule->add();
974	obp+=sizeof(long);
975	}
976	}
977	else{
978	//整数
979
980	index_stack[sp]=GetLiteralIndex(i64data);
981
982	//mov reg,i64data
983	op_mov64_ToReg(UseReg,i64data);
984
985	if(UseReg==REG_R14){
986	//mov qword ptr[rsp+offset],r14 ※スタックフレームを利用
987	pobj_sf->push(REG_R14);
988	}
989	}
990	}
991
992	if(bXmm) pobj_reg->LockXmmReg();
993	else pobj_reg->LockReg();
994
995	sp++;
996	break;
997
998	//論理演算子
999	case CALC_XOR:
1000	case CALC_OR:
1001	case CALC_AND:
1002	if(!CalcTwoTerm_Logical(idCalc,type_stack,index_stack,&sp)) goto error;
1003	break;
1004	case CALC_NOT:
1005	//value[sp-1]=Not value[sp-1]
1006	//NOT演算子
1007	if(!Calc_Not(type_stack,sp)) goto error;
1008	break;
1009
1010	//比較演算子
1011	case CALC_PE: //value[sp-2] <= value[sp-1]
1012	case CALC_QE: //value[sp-2] >= value[sp-1]
1013	case CALC_P: //value[sp-2] < value[sp-1]
1014	case CALC_Q: //value[sp-2] > value[sp-1]
1015	case CALC_NOTEQUAL: //value[sp-2] <> value[sp-1]
1016	case CALC_EQUAL: //value[sp-2] = value[sp-1]
1017	if(!CalcTwoTerm_Relational(idCalc,type_stack,index_stack,&sp)) goto error;
1018	break;
1019
1020	//ビットシフト
1021	case CALC_SHL: //value[sp-2] << value[sp-1]
1022	case CALC_SHR: //value[sp-2] >> value[sp-1]
1023	if(!Calc_Shift(idCalc,type_stack,&sp)) goto error;
1024	break;
1025
1026	//算術演算
1027	case CALC_ADDITION:
1028	case CALC_SUBTRACTION:
1029	case CALC_PRODUCT:
1030	if(!CalcTwoTerm_Arithmetic(idCalc,type_stack,index_stack,&sp)) goto error;
1031	break;
1032	case CALC_MOD:
1033	//value[sp-2]%=value[sp-1]
1034	//剰余演算
1035	if(!Calc_Mod(type_stack,index_stack,&sp)) goto error;
1036	break;
1037	case CALC_QUOTIENT:
1038	//value[sp-2]/=value[sp-1];
1039	//除算
1040	if(!Calc_Divide(type_stack,&sp,baseType.GetBasicType())) goto error;
1041	break;
1042	case CALC_INTQUOTIENT:
1043	//value[sp-2]/=value[sp-1]
1044	//整数除算
1045	if(!Calc_IntDivide(type_stack,index_stack,&sp)) goto error;
1046	break;
1047	case CALC_MINUSMARK:
1048	//value[sp-1]=-value[sp-1]
1049	//符号反転
1050	if(!Calc_MinusMark(type_stack,sp)) goto error;
1051	break;
1052	case CALC_POWER:
1053	//べき乗演算（浮動小数点演算のみ）
1054	if(!Calc_Power(type_stack,&sp)) goto error;
1055	break;
1056	case CALC_AS:
1057	//キャスト
1058	if(!Calc_Cast(type_stack,index_stack,&sp)) goto error;
1059	break;
1060	case CALC_BYVAL:
1061	//ポインタ型→参照型
1062	if( PTR_LEVEL( type_stack[sp-1] ) <= 0 ){
1063	//ポインタ型ではないとき
1064	SetError( 3, NULL, cp );
1065	goto error;
1066	}
1067
1068	type_stack[sp-1] = PTR_LEVEL_DOWN( type_stack[sp-1] );
1069
1070	break;
1071
1072	default:
1073	SetError(300,NULL,cp);
1074	goto error;
1075	}
1076	}
1077
1078	if(bError) goto error;
1079
1080	if(sp!=1){
1081	SetError(1,NULL,cp);
1082	goto error;
1083	}
1084
1085	if(bLiteralCalculation){
1086	//右辺値が数値の定数式の場合
1087	Type resultType;
1088	StaticCalculation(true, expression,baseType.GetBasicType(),&i64data,resultType);
1089
1090	obp=BeforeObp;
1091	pobj_SubAddrSchedule->num=Before_ProcAddrScheduleNum;
1092	pobj_DataTableSchedule->num=Before_DataTableScheduleNum;
1093	pobj_Reloc->copy(pobj_BackReloc);
1094	pobj_sf->num=Before_StackFrameScheduleNum;
1095	*pobj_reg=objReg_Backup;
1096
1097	if(resultType.IsReal()){
1098	if(baseType.IsReal()) resultType=baseType;
1099
1100	XmmReg=pobj_reg->LockXmmReg();
1101
1102	if(resultType.IsDouble()){
1103	i3 = dataTable.Add( i64data );
1104
1105	//movlpd xmm_reg,qword ptr[data table offset]
1106	OpBuffer[obp++]=(char)0x66;
1107	OpBuffer[obp++]=(char)0x0F;
1108	OpBuffer[obp++]=(char)0x12;
1109	OpBuffer[obp++]=(char)(0x04 \| REGISTER_OPERAND(XmmReg)<<3);
1110	OpBuffer[obp++]=(char)0x25;
1111	((long )(OpBuffer+obp))=i3;
1112	pobj_DataTableSchedule->add();
1113	obp+=sizeof(long);
1114	}
1115	if(resultType.IsSingle()){
1116	memcpy(&dbl,&i64data,sizeof(_int64));
1117
1118	float flt;
1119	int i32data;
1120	flt=(float)dbl;
1121	memcpy(&i32data,&flt,sizeof(long));
1122
1123	i3 = dataTable.Add( i32data );
1124
1125	//movss xmm_reg,dword ptr[data table offset]
1126	OpBuffer[obp++]=(char)0xF3;
1127	OpBuffer[obp++]=(char)0x0F;
1128	OpBuffer[obp++]=(char)0x10;
1129	OpBuffer[obp++]=(char)(0x04 \| REGISTER_OPERAND(XmmReg)<<3);
1130	OpBuffer[obp++]=(char)0x25;
1131	((long )(OpBuffer+obp))=i3;
1132	pobj_DataTableSchedule->add();
1133	obp+=sizeof(long);
1134	}
1135	}
1136	else{
1137	if(!resultType.Is64()){
1138	//整数（符号有り/無し）
1139
1140	i3=(long)i64data;
1141
1142	if(resultType.GetBasicSize()==sizeof(char)) i3=i3&0x000000FF;
1143	if(resultType.GetBasicSize()==sizeof(short)) i3=i3&0x0000FFFF;
1144
1145	i64data=(_int64)i3;
1146	}
1147
1148	UseReg=pobj_reg->LockReg();
1149
1150	//mov reg,i64data
1151	op_mov64_ToReg(UseReg,i64data);
1152	}
1153
1154	type_stack[0]=resultType.GetBasicType();
1155	index_stack[0]=resultType.GetIndex();
1156	}
1157	else{
1158	//右辺値が数値の定数式ではないとき
1159	if(IS_LITERAL(index_stack[0])) index_stack[0]=-1;
1160	}
1161
1162	if(pbUseHeap) *pbUseHeap=bUseHeap[0];
1163
1164	if(IsRealNumberType(type_stack[0]))
1165	*pReg=pobj_reg->UnlockXmmReg();
1166	else
1167	*pReg=pobj_reg->UnlockReg();
1168
1169
1170	if(bInitRegSwitch){
1171	//整合性をチェック（バグ回避）
1172	pobj_reg->bug_check();
1173
1174	//作業レジスタを解放
1175	delete pobj_reg;
1176	pobj_reg=0;
1177	}
1178
1179	resultType.SetType( type_stack[0], index_stack[0] );
1180
1181	bool isSuccessful = true;
1182	goto finish;
1183
1184
1185
1186	//////////////////
1187	// エラー処理
1188	//////////////////
1189
1190	error:
1191
1192	*pobj_reg=objReg_Backup;
1193
1194	if(bInitRegSwitch){
1195	//作業レジスタを解放
1196	delete pobj_reg;
1197	pobj_reg=0;
1198	}
1199
1200	isSuccessful = false;
1201	goto finish;
1202
1203
1204
1205
1206	finish:
1207
1208	for(i=0;i<pnum;i++){
1209	if(values[i]) HeapDefaultFree(values[i]);
1210	}
1211
1212	//再配置スケジュールバックアップ情報を解放
1213	delete pobj_BackReloc;
1214
1215	return isSuccessful;
1216	}

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

Download in other formats: