Context Navigation

source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/Compile.cpp@ 641

Last change on this file since 641 was 641, checked in by dai_9181, 16 years ago
・デバッグトレース時、グローバル領域の終端行でステップインまたはステップアウトしたときにデバッグ情報の取得に失敗して強制終了してしまう不具合を修正。・グローバル領域のデバッグ実行ができなくなっている不具合を修正。
File size: 19.5 KB

Line
1	#include "stdafx.h"
2
3	#include <LexicalScope.h>
4	#include <CodeGenerator.h>
5	#include <Compiler.h>
6
7	#include "../BasicCompiler_Common/common.h"
8
9	#ifdef _AMD64_
10	#include "../compiler_x64/opcode.h"
11	#else
12	#include "../compiler_x86/opcode.h"
13	#endif
14
15	//With情報
16	WITHINFO WithInfo;
17
18	//デバッグ用行番号情報
19	SourceLines oldSourceLines;
20
21	// オブジェクトモジュールリストに類似したソースコードリスト
22	BasicSources sourcesLinkRelationalObjectModule;
23
24
25
26	///////////////////////////////////////////////////
27	// トークンを取得
28	///////////////////////////////////////////////////
29	void GetIdentifierToken( char token, const char source, int &pos )
30	{
31	for( int i=0; ; i++, pos++ ){
32	if( ! IsVariableChar( source[pos] ) ){
33	token[i] = 0;
34	break;
35	}
36	token[i] = source[pos];
37	}
38	}
39	void GetCommandToken( char token, const char source, int &pos )
40	{
41	for( int i=0; ; i++, pos++ ){
42	if( IsCommandDelimitation( source[pos] ) ){
43	token[i] = 0;
44	break;
45	}
46	token[i] = source[pos];
47	}
48	}
49	void GetCustomToken( char token, const char source, int &pos, char delimitation, bool isEscapeSequence )
50	{
51	for( int i=0; ; i++, pos++ ){
52	if( isEscapeSequence )
53	{
54	if( source[pos] == 1 && source[pos+1] == delimitation )
55	{
56	token[i] = 0;
57	pos++;
58	break;
59	}
60	}
61	else
62	{
63	if( source[pos] == delimitation )
64	{
65	token[i] = 0;
66	break;
67	}
68	}
69
70	token[i] = source[pos];
71
72	if( source[pos] == '\0' )
73	{
74	break;
75	}
76	}
77	}
78
79
80	///////////////////////////////////////////////////
81	// ジェネリクスのクラス型記述を分析
82	///////////////////////////////////////////////////
83	void SplitGenericClassInstance( const char fullName, char className, Jenga::Common::Strings &typeParameters, bool isDefiningClass, Jenga::Common::Strings *pTypeParameterBaseClassNames )
84	{
85	if( isDefiningClass )
86	{
87	if( !pTypeParameterBaseClassNames )
88	{
89	compiler.errorMessenger.OutputFatalError();
90	}
91	pTypeParameterBaseClassNames->clear();
92	}
93
94	int i = 0;
95	typeParameters.clear();
96
97	//クラス名を取得
98	GetIdentifierToken( className, fullName, i );
99
100
101	/////////////////////////////////////////////////////////
102	// ☆★☆ ジェネリクスサポート ☆★☆
103	if( fullName[i] == '<' )
104	{
105	while( true )
106	{
107	i++;
108
109	// 型パラメータを取得
110	char temporary[VN_SIZE];
111	GetIdentifierToken( temporary, fullName, i );
112	if( temporary[0] == '\0' )
113	{
114	extern int cp;
115	compiler.errorMessenger.Output(1,NULL,cp);
116	}
117	typeParameters.push_back( temporary );
118
119	if( isDefiningClass )
120	{
121	// クラス定義中にこの関数が呼び出されたとき
122
123	if( fullName[i] == 1 && fullName[i+1] == ESC_AS )
124	{
125	// 型パラメータの制約クラスを取得
126	i += 2;
127	GetIdentifierToken( temporary, fullName, i );
128	if( temporary[0] == '\0' )
129	{
130	extern int cp;
131	compiler.errorMessenger.Output(1,NULL,cp);
132	}
133	}
134	else
135	{
136	temporary[0] = 0;
137	}
138	pTypeParameterBaseClassNames->push_back( temporary );
139	}
140
141	if( fullName[i] == ',' )
142	{
143	continue;
144	}
145	else if( fullName[i] == '>' )
146	{
147	break;
148	}
149	else
150	{
151	extern int cp;
152	compiler.errorMessenger.Output(1,NULL,cp);
153	}
154	}
155	}
156	/////////////////////////////////////////////////////////
157	}
158
159
160	///////////////////////////////////////////////////
161	// 対になっているステートメントを飛び越す
162	// ※グローバル領域用
163	///////////////////////////////////////////////////
164	int JumpStatement(const char *source, int &pos){
165	if( source[pos] != 1 ) return 0;
166
167	if( ! IsCommandDelimitation( source[pos - 1] ) ){
168	//直前がコマンド区切りではない場合
169	return 0;
170	}
171
172	char cStatement = source[pos + 1];
173
174	char cEnd = GetEndXXXCommand( cStatement );
175	if( cEnd == 0 ) return 0;
176
177	pos += 2;
178	while( ! ( source[pos] == 1 && source[pos + 1] == cEnd ) ){
179
180	if( source[pos] == '\0' ){
181	char temporary[64];
182	GetDefaultNameFromES( cStatement, temporary );
183	compiler.errorMessenger.Output( 22, temporary, pos );
184	return -1;
185	}
186
187	pos++;
188	}
189	if( ! ( source[pos] == '\0' \|\| source[pos + 2] == '\0' ) ){
190	pos += 2;
191	}
192
193	return 1;
194	}
195
196	void Compile( const char *source )
197	{
198	char temporary = (char )malloc( lstrlen( source ) + 8192 );
199	lstrcpy( temporary, source );
200	int backCp = cp;
201	MakeMiddleCode( temporary );
202	cp = backCp;
203	ChangeOpcode( temporary );
204	cp = backCp;
205	free( temporary );
206	}
207
208	void ChangeOpcode(char *Command){
209	extern HANDLE hHeap;
210
211	if(Command[0]=='\0')
212	{
213	return;
214	}
215
216	trace_for_sourcecodestep( FormatEscapeSequenceStringToDefaultString(Command) );
217
218	if(Command[0]=='*'&&IsVariableTopChar(Command[1])){
219	//Goto先ラベル
220	compiler.codeGenerator.gotoLabels.push_back( GotoLabel( Command + 1, compiler.codeGenerator.GetNativeCodeSize() ) );
221
222	//書き込みスケジュール
223	GotoLabelSchedules::iterator it = compiler.codeGenerator.gotoLabelSchedules.begin();
224	while( it != compiler.codeGenerator.gotoLabelSchedules.end() )
225	{
226	if( (*it)->GetName() == Command+1 )
227	{
228	compiler.codeGenerator.opfix_JmpPertialSchedule( (*it) );
229
230	//詰める
231	it = compiler.codeGenerator.gotoLabelSchedules.erase( it );
232	}
233	else
234	{
235	it++;
236	}
237	}
238	return;
239	}
240	if(Command[0]==1){
241	switch(Command[1]){
242	case ESC_CONST:
243	OpcodeDim(Command+2, DIMFLAG_CONST);
244	break;
245
246	case ESC_TYPEDEF:
247	if( compiler.IsLocalAreaCompiling() ){
248	// ローカル領域をコンパイルしているとき
249	compiler.errorMessenger.Output(65,"TypeDef",cp );
250	}
251
252	//既に収集済み
253	break;
254
255	case ESC_DELEGATE:
256	if( compiler.IsLocalAreaCompiling() ){
257	// ローカル領域をコンパイルしているとき
258	compiler.errorMessenger.Output(65,"Delegate",cp );
259	}
260
261	//既に収集済み
262	break;
263
264	case ESC_STATIC:
265	OpcodeDim(Command+2,DIMFLAG_STATIC);
266	break;
267
268	case ESC_IF:
269	OpcodeIf(Command+2);
270	break;
271	case ESC_EXITWHILE:
272	{
273	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_WHILE );
274	if( !pScope ){
275	compiler.errorMessenger.Output(12,"Exit While",cp);
276	return;
277	}
278	pScope->Break();
279	}
280	break;
281	case ESC_EXITFOR:
282	{
283	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_FOR );
284	if( !pScope ){
285	compiler.errorMessenger.Output(12,"Exit For",cp);
286	return;
287	}
288	pScope->Break();
289	}
290	break;
291	case ESC_EXITDO:
292	{
293	LexicalScope *pScope = compiler.codeGenerator.lexicalScopes.SearchScope( LexicalScope::SCOPE_TYPE_DO );
294	if( !pScope ){
295	compiler.errorMessenger.Output(12,"Exit Do",cp);
296	return;
297	}
298	pScope->Break();
299	}
300	break;
301	case ESC_CONTINUE:
302	OpcodeContinue();
303	break;
304
305	case ESC_EXITSUB:
306	case ESC_EXITFUNCTION:
307	case ESC_EXITMACRO:
308	OpcodeExitSub();
309	break;
310
311	case ESC_SELECTCASE:
312	OpcodeSelect(Command+2);
313	break;
314	case ESC_CASE:
315	case ESC_CASEELSE:
316	OpcodeCase(Command+2);
317	break;
318
319	case ESC_WITH:
320	extern WITHINFO WithInfo;
321
322	WithInfo.ppName=(char *)HeapReAlloc(hHeap,0,WithInfo.ppName,(WithInfo.num+1)sizeof(char **));
323	WithInfo.ppName[WithInfo.num]=(char *)HeapAlloc(hHeap,0,lstrlen(Command+2)+1);
324	lstrcpy(WithInfo.ppName[WithInfo.num],Command+2);
325
326	WithInfo.pWithCp=(int )HeapReAlloc(hHeap,0,WithInfo.pWithCp,(WithInfo.num+1)sizeof(int));
327	WithInfo.pWithCp[WithInfo.num]=cp;
328
329	WithInfo.num++;
330	break;
331	case ESC_ENDWITH:
332	if(WithInfo.num<=0){
333	compiler.errorMessenger.Output(12,"End With",cp);
334	return;
335	}
336	WithInfo.num--;
337	HeapDefaultFree(WithInfo.ppName[WithInfo.num]);
338	break;
339	case ESC_DECLARE:
340	if( compiler.IsLocalAreaCompiling() ){
341	// ローカル領域をコンパイルしているとき
342	compiler.errorMessenger.Output(65,"Declare",cp );
343	}
344	break;
345
346	case ESC_NAMESPACE:
347	compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().push_back( Command + 2 );
348	break;
349	case ESC_ENDNAMESPACE:
350	if( compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().size() <= 0 ){
351	compiler.errorMessenger.Output(12,"End Namespace",cp);
352	}
353	compiler.GetNamespaceSupporter().GetLivingNamespaceScopes().pop_back();
354	break;
355	case ESC_IMPORTS:
356	compiler.GetNamespaceSupporter().ImportsNamespace( Command + 2 );
357	break;
358	case ESC_CLEARNAMESPACEIMPORTED:
359	compiler.GetNamespaceSupporter().GetImportedNamespaces().clear();
360	break;
361
362	//Tryによる例外処理
363	case ESC_TRY:
364	Exception::TryCommand();
365	break;
366	case ESC_CATCH:
367	Exception::CatchCommand( Command + 2 );
368	break;
369	case ESC_FINALLY:
370	Exception::FinallyCommand();
371	break;
372	case ESC_ENDTRY:
373	Exception::EndTryCommand();
374	break;
375	case ESC_THROW:
376	Exception::ThrowCommand( Command + 2 );
377	break;
378
379	default:
380	char temporary[64];
381	GetDefaultNameFromES(Command[1],temporary);
382	compiler.errorMessenger.Output(30,temporary,cp);
383	break;
384	}
385	return;
386	}
387	switch(MAKEWORD(Command[1],Command[0])){
388	case COM_DIM:
389	OpcodeDim(Command+2,0);
390	break;
391	case COM_DELETE:
392	OpcodeDelete(Command+2, false);
393	break;
394	case COM_SWEEPINGDELETE:
395	OpcodeDelete(Command+2, true);
396	break;
397
398	case COM_GOTO:
399	OpcodeGoto(Command+2);
400	break;
401	case COM_WHILE:
402	OpcodeWhile(Command+2);
403	break;
404	case COM_FOR:
405	OpcodeFor(Command+2);
406	break;
407	case COM_FOREACH:
408	OpcodeForeach(Command+2);
409	break;
410	case COM_DO:
411	OpcodeDo(Command+2);
412	break;
413
414	case COM_GOSUB:
415	OpcodeGosub(Command+2);
416	break;
417	case COM_RETURN:
418	OpcodeReturn(Command+2);
419	break;
420
421	case COM_SETDOUBLE:
422	OpcodeSetPtrData(Command+2,DEF_DOUBLE);
423	break;
424	case COM_SETSINGLE:
425	OpcodeSetPtrData(Command+2,DEF_SINGLE);
426	break;
427	case COM_SETQWORD:
428	OpcodeSetPtrData(Command+2,DEF_QWORD);
429	break;
430	case COM_SETDWORD:
431	OpcodeSetPtrData(Command+2,DEF_DWORD);
432	break;
433	case COM_SETWORD:
434	OpcodeSetPtrData(Command+2,DEF_WORD);
435	break;
436	case COM_SETBYTE:
437	OpcodeSetPtrData(Command+2,DEF_BYTE);
438	break;
439
440	case COM_DEBUG:
441	//int 3
442	if( compiler.IsDebug() )
443	{
444	breakpoint;
445	}
446	else
447	{
448	//#if defined(_DEBUG)
449	breakpoint;
450	//#endif
451	}
452	break;
453
454	case COM_LET:
455	OpcodeCalc(Command+2);
456
457	break;
458	default:
459	OpcodeOthers(Command);
460
461	// コード生成過程で発生した構造体の一時メモリを破棄する
462	compiler.codeGenerator.op_FreeTempStructure();
463
464	break;
465	}
466	}
467
468	void GetGlobalDataForDll(void){
469	extern char *basbuf;
470	extern HANDLE hHeap;
471	int i2,BufferSize;
472	char *Command;
473	DWORD dwRetCode;
474
475	dwRetCode=0;
476	BufferSize=128;
477	Command=(char *)HeapAlloc(hHeap,0,BufferSize);
478	for(cp++,i2=0;;cp++,i2++){
479	if(i2>=BufferSize){
480	//バッファ領域が足りなくなった場合はバッファを増量する
481	BufferSize+=128;
482	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
483	}
484	if(basbuf[cp]=='\"'){
485	Command[i2]=basbuf[cp];
486	for(cp++,i2++;;cp++,i2++){
487	if(i2>=BufferSize){
488	//バッファ領域が足りなくなった場合はバッファを増量する
489	BufferSize+=128;
490	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
491	}
492	Command[i2]=basbuf[cp];
493	if(basbuf[cp]=='\"') break;
494	}
495	continue;
496	}
497	if(IsCommandDelimitation(basbuf[cp])){
498	Command[i2]=0;
499
500	if(Command[0]==1&&Command[1]==ESC_SUB){
501	i2=cp;
502	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDSUB)){
503	if(basbuf[cp]=='\0'){
504	compiler.errorMessenger.Output(22,"Sub",i2);
505	break;
506	}
507	cp++;
508	}
509	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
510	cp+=2;
511	i2=-1;
512	continue;
513	}
514	if(Command[0]==1&&Command[1]==ESC_FUNCTION){
515	i2=cp;
516	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDFUNCTION)){
517	if(basbuf[cp]=='\0'){
518	compiler.errorMessenger.Output(22,"Function",i2);
519	break;
520	}
521	cp++;
522	}
523	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
524	cp+=2;
525	i2=-1;
526	continue;
527	}
528	if(Command[0]==1&&Command[1]==ESC_MACRO){
529	i2=cp;
530	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDMACRO)){
531	if(basbuf[cp]=='\0'){
532	compiler.errorMessenger.Output(22,"Macro",i2);
533	break;
534	}
535	cp++;
536	}
537	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
538	cp+=2;
539	i2=-1;
540	continue;
541	}
542	if(Command[0]==1&&Command[1]==ESC_TYPE){
543	i2=cp;
544	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDTYPE)){
545	if(basbuf[cp]=='\0'){
546	compiler.errorMessenger.Output(22,"Type",i2);
547	break;
548	}
549	cp++;
550	}
551	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
552	cp+=2;
553	i2=-1;
554	continue;
555	}
556	if(Command[0]==1&&Command[1]==ESC_CLASS){
557	i2=cp;
558	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDCLASS)){
559	if(basbuf[cp]=='\0'){
560	compiler.errorMessenger.Output(22,"Class",i2);
561	break;
562	}
563	cp++;
564	}
565	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
566	cp+=2;
567	i2=-1;
568	continue;
569	}
570	if(Command[0]==1&&Command[1]==ESC_INTERFACE){
571	i2=cp;
572	while(!(basbuf[cp]==1&&basbuf[cp+1]==ESC_ENDINTERFACE)){
573	if(basbuf[cp]=='\0'){
574	compiler.errorMessenger.Output(22,"Interface",i2);
575	break;
576	}
577	cp++;
578	}
579	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
580	cp+=2;
581	i2=-1;
582	continue;
583	}
584
585	//DLLのグローバルデータに必要なコマンドだけ
586	if(MAKEWORD(Command[1],Command[0])==COM_DIM)
587	OpcodeDim(Command+2,0);
588
589	if(basbuf[cp]=='\0') break;
590	i2=-1;
591	continue;
592	}
593	Command[i2]=basbuf[cp];
594	}
595	HeapDefaultFree(Command);
596	}
597	DWORD CompileBuffer(char Return_Sequence,WORD Return_Command){
598	extern char *basbuf;
599	extern HANDLE hHeap;
600	int i,i2,i3,i4,BufferSize,ScopeStart;
601	char Command,temporary[VN_SIZE],temp2,temp3[32];
602	DWORD dwRetCode;
603
604	ScopeStart=cp;
605
606	dwRetCode=0;
607	BufferSize=128;
608	Command=(char *)HeapAlloc(hHeap,0,BufferSize);
609
610	for(cp++,i2=0;;cp++,i2++){
611	if(i2>=BufferSize){
612	//バッファ領域が足りなくなった場合はバッファを増量する
613	BufferSize+=128;
614	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
615	}
616	if(basbuf[cp]=='\"'){
617	Command[i2]=basbuf[cp];
618	for(cp++,i2++;;cp++,i2++){
619	if(i2>=BufferSize){
620	//バッファ領域が足りなくなった場合はバッファを増量する
621	BufferSize+=128;
622	Command=(char *)HeapReAlloc(hHeap,0,Command,BufferSize);
623	}
624	Command[i2]=basbuf[cp];
625	if(basbuf[cp]=='\"') break;
626	}
627	continue;
628	}
629	if(IsCommandDelimitation(basbuf[cp])){
630	Command[i2]=0;
631
632	if(Command[0]==1&&Command[1]==ESC_LINENUM){
633	for(i=2,i2=0;;i++,i2++){
634	if(Command[i]==','){
635	temporary[i2]=0;
636	break;
637	}
638	temporary[i2]=Command[i];
639	}
640	i3=atoi(temporary);
641	i4=i+1;
642
643	//Goto先ラベル
644	compiler.codeGenerator.gotoLabels.push_back( GotoLabel( (long)i3, compiler.codeGenerator.GetNativeCodeSize() ) );
645
646	//書き込みスケジュール
647	GotoLabelSchedules::iterator it = compiler.codeGenerator.gotoLabelSchedules.begin();
648	while( it != compiler.codeGenerator.gotoLabelSchedules.end() )
649	{
650	if( (it)->GetName().size() == 0 && (it)->GetLineNum() == i3 )
651	{
652	compiler.codeGenerator.opfix_JmpPertialSchedule( (*it) );
653
654	//詰める
655	it = compiler.codeGenerator.gotoLabelSchedules.erase( it );
656	}
657	else
658	{
659	it++;
660	}
661	}
662
663	temp2=(char *)HeapAlloc(hHeap,0,lstrlen(Command+i4)+1);
664	lstrcpy(temp2,Command+i4);
665	lstrcpy(Command,temp2);
666	HeapDefaultFree(temp2);
667	}
668
669	if(Command[0]==1&&
670	(((Command[1]==ESC_VIRTUAL\|\|Command[1]==ESC_OVERRIDE)&&Command[2]==1&&(Command[3]==ESC_SUB\|\|Command[3]==ESC_FUNCTION))\|\|
671	Command[1]==ESC_SUB\|\|
672	Command[1]==ESC_FUNCTION\|\|
673	Command[1]==ESC_MACRO\|\|
674	Command[1]==ESC_TYPE\|\|
675	Command[1]==ESC_CLASS\|\|
676	Command[1]==ESC_INTERFACE\|\|
677	Command[1]==ESC_ENUM\|\|
678	(Command[1]==ESC_CONST&&Command[2]==1&&Command[3]==ESC_ENUM)
679	)
680	){
681	if(Command[1]==ESC_VIRTUAL\|\|Command[1]==ESC_OVERRIDE\|\|Command[1]==ESC_CONST){
682	GetDefaultNameFromES(Command[3],temporary);
683	}
684	else{
685	GetDefaultNameFromES(Command[1],temporary);
686	}
687	if(Return_Sequence){
688	compiler.errorMessenger.Output(12,temporary,cp);
689	break;
690	}
691
692	if(Command[1]==ESC_CONST) i3=GetEndXXXCommand(Command[3]);
693	else i3=GetEndXXXCommand(Command[1]);
694	for(i2=cp;;cp++){
695	if(basbuf[cp]==1){
696	if(basbuf[cp+1]==i3) break;
697	if(Command[1]==ESC_CLASS\|\|Command[1]==ESC_INTERFACE){
698	//クラス、インターフェイスではSub、Functionの定義を可能にしておく
699	if(basbuf[cp+1]==ESC_MACRO\|\|
700	basbuf[cp+1]==ESC_TYPE\|\|
701	basbuf[cp+1]==ESC_CLASS\|\|
702	basbuf[cp+1]==ESC_INTERFACE\|\|
703	basbuf[cp+1]==ESC_ENUM){
704	GetDefaultNameFromES(basbuf[cp+1],temp3);
705	compiler.errorMessenger.Output(12,temp3,cp);
706	}
707	}
708	else{
709	if(basbuf[cp-1]!='*'&&(
710	basbuf[cp+1]==ESC_VIRTUAL\|\|
711	basbuf[cp+1]==ESC_OVERRIDE\|\|
712	basbuf[cp+1]==ESC_SUB\|\|
713	basbuf[cp+1]==ESC_FUNCTION\|\|
714	basbuf[cp+1]==ESC_MACRO\|\|
715	basbuf[cp+1]==ESC_TYPE\|\|
716	basbuf[cp+1]==ESC_CLASS\|\|
717	basbuf[cp+1]==ESC_INTERFACE\|\|
718	basbuf[cp+1]==ESC_ENUM)){
719	GetDefaultNameFromES(basbuf[cp+1],temp3);
720	compiler.errorMessenger.Output(12,temp3,cp);
721	}
722	}
723	}
724	if(basbuf[cp]=='\0'){
725	//error
726	//既にエラー発行済みのため、何もせずに抜ける
727	break;
728	}
729	}
730	if(basbuf[cp+2]=='\0'\|\|basbuf[cp]=='\0') break;
731	cp+=2;
732	i2=-1;
733	continue;
734	}
735
736	if(Command[0]==0x10\|\|Command[0]==0x11){
737	//Wend、Next、Loopなど
738	if(Return_Command==MAKEWORD(Command[1],Command[0])){
739	if(Return_Command==COM_NEXT){
740	//Nextの場合は、パラメータ（省略化）の整合性を判断する必要がある（OpcodeFor関数を参照）
741	extern char szNextVariable[VN_SIZE];
742	if(Command[2]) lstrcpy(szNextVariable,Command+2);
743	else szNextVariable[0]=0;
744	}
745	break;
746	}
747	}
748
749	if( basbuf[cp] != '\0' )
750	{
751	compiler.codeGenerator.NextSourceLine(
752	SourceCodePosition( compiler.GetCurrentRelationalObjectModuleIndexForSource(), cp ),
753	compiler.GetCompilingUserProc().IsSystem()
754	);
755	}
756
757	if(Command[0]==1){
758	if(Return_Sequence==ESC_ENDIF&&Command[1]==ESC_ELSE){
759	dwRetCode=ESC_ELSE;
760	break;
761	}
762
763	if(Command[1]==Return_Sequence){
764	dwRetCode=Command[1];
765	break;
766	}
767	}
768
769	if( Command[0] )
770	{
771	ChangeOpcode(Command);
772	}
773
774
775	epi_check();
776
777
778	//コンパイルを中断するとき
779	extern BOOL bStopCompile;
780	if(bStopCompile) return 0;
781
782	if(basbuf[cp]=='\0'){
783	switch(Return_Command){
784	case COM_WEND:
785	compiler.errorMessenger.Output(4,"\"While\" - \"Wend\" ",ScopeStart);
786	break;
787	case COM_NEXT:
788	compiler.errorMessenger.Output(4,"\"For\" - \"Next\" ",ScopeStart);
789	break;
790	case COM_LOOP:
791	compiler.errorMessenger.Output(4,"\"Do\" - \"Loop\" ",ScopeStart);
792	break;
793	}
794	switch(Return_Sequence){
795	case ESC_ENDSUB:
796	compiler.errorMessenger.Output(4,"\"Sub\" - \"End Sub\" ",ScopeStart);
797	break;
798	case ESC_ENDFUNCTION:
799	compiler.errorMessenger.Output(4,"\"Function\" - \"End Function\" ",ScopeStart);
800	break;
801	case ESC_ENDMACRO:
802	compiler.errorMessenger.Output(4,"\"Macro\" - \"End Macro\" ",ScopeStart);
803	break;
804	case ESC_ENDIF:
805	compiler.errorMessenger.Output(22,"If",ScopeStart);
806	break;
807	}
808	break;
809	}
810	i2=-1;
811	continue;
812	}
813	Command[i2]=basbuf[cp];
814	}
815	HeapDefaultFree(Command);
816
817	return dwRetCode;
818	}

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

Download in other formats: