source: dev/trunk/ab5.0/abdev/BasicCompiler_Common/Debug.cpp@ 642

Last change on this file since 642 was 641, checked in by dai_9181, 16 years ago

・デバッグトレース時、グローバル領域の終端行でステップインまたはステップアウトしたときにデバッグ情報の取得に失敗して強制終了してしまう不具合を修正。
・グローバル領域のデバッグ実行ができなくなっている不具合を修正。
File size: 23.9 KB
Line 
1#include "stdafx.h"
2
3#include <Compiler.h>
4
5#include "../BasicCompiler_Common/common.h"
6#include "../BasicCompiler_Common/DebugSection.h"
7
8//デバッグ用
9#include "../BasicCompiler_Common/debug.h"
10
11char *OpBuffer;
12
13extern DWORD dwStepRun;
14
15HANDLE hDebugProcess;
16
17DWORD _DebugSys_dwThreadID[MAX_DEBUG_THREAD];
18HANDLE array_hDebugThread[MAX_DEBUG_THREAD];
19
20int StepCursorObpSchedule=-1;
21int StepCursor_BackupChar;
22
23int NextStepThreadNum;
24
25
26void Debugger_StepIn(void){
27 dwStepRun=1;
28}
29void Debugger_StepOver(void){
30 dwStepRun=2;
31}
32
33void Debugger_StepCursor(void){
34 char temporary[MAX_PATH];
35 GetTempPath(MAX_PATH,temporary);
36 if(temporary[lstrlen(temporary)-1]!='\\') lstrcat(temporary,"\\");
37 lstrcat(temporary,"ab_breakpoint.tmp");
38
39 char *buffer;
40 buffer=ReadBuffer_NonErrMsg(temporary);
41
42 int i=0;
43 char szFilePath[MAX_PATH];
44 i=GetOneParameter(buffer,i,szFilePath);
45 RemoveStringQuotes(szFilePath);
46
47 int iLineNum;
48 i=GetOneParameter(buffer,i,temporary);
49 iLineNum=atoi(temporary);
50
51
52
53 /////////////////////////////////////////////////////////
54 // デバッグ中プロセスのネイティブバッファ領域を更新
55 /////////////////////////////////////////////////////////
56
57 int FileNum;
58 const IncludedFilesRelation *pIncludedFilesRelation = NULL;
59 const BasicSource *pNowSource = NULL;
60 BOOST_FOREACH( const ObjectModule *pObjectModule, compiler.staticLibraries )
61 {
62 const BasicSource *pSource = &pObjectModule->GetSource();
63
64 pIncludedFilesRelation = &pSource->GetIncludedFilesRelation();
65
66 for(FileNum=0;FileNum<pIncludedFilesRelation->GetFileCounts();FileNum++)
67 {
68 if(lstrcmpi(pIncludedFilesRelation->GetFilePathFromFileNumber(FileNum).c_str(),szFilePath)==0)
69 {
70 pNowSource = pSource;
71 break;
72 }
73 }
74 if( FileNum == pIncludedFilesRelation->GetFileCounts() )
75 {
76 pIncludedFilesRelation = NULL;
77 }
78 else
79 {
80 break;
81 }
82 }
83
84 if( !pIncludedFilesRelation )
85 {
86 return;
87 }
88
89 for(i=0;;i++){
90 if( pIncludedFilesRelation->GetFileNumber( i ) == FileNum
91 || pIncludedFilesRelation->GetFileNumber( i ) == -1 )
92 {
93 break;
94 }
95 }
96 if( pIncludedFilesRelation->GetFileNumber( i ) == -1 )
97 {
98 return;
99 }
100
101 int FileBaseLine;
102 FileBaseLine=i;
103
104 int i2;
105 for(i2=0;;i++,i2++)
106 {
107 if( FileNum < pIncludedFilesRelation->GetFileNumber( i ) )
108 {
109 while( FileNum != pIncludedFilesRelation->GetFileNumber( i ) )
110 {
111 i++;
112 }
113 }
114
115 if(i2==iLineNum){
116 extern SourceLines oldSourceLines;
117
118loop:
119 int tempCp = GetSourceCodeIndexFromLine( pNowSource->GetBuffer(), FileBaseLine+i2 );
120
121 int i3;
122 for(i3=0;i3<(int)oldSourceLines.size()-1;i3++){
123 if(oldSourceLines[i3].GetSourceCodePosition().GetPos()==tempCp) break;
124 }
125 if(i3==oldSourceLines.size()-1){
126 i2--;
127 goto loop;
128 }
129
130 StepCursorObpSchedule=oldSourceLines[i3].GetNativeCodePos();
131 StepCursor_BackupChar=pobj_DBDebugSection->pobj_now->BreakStepCodeBuffer[StepCursorObpSchedule];
132
133 pobj_DBDebugSection->pobj_now->BreakStepCodeBuffer[StepCursorObpSchedule]=(char)0xCC;
134
135 break;
136 }
137 }
138
139 extern HWND hDebugWnd;
140 SendMessage(hDebugWnd,WM_DEBUG_CONTINUE,0,0);
141
142
143
144 HeapDefaultFree(buffer);
145}
146void Debugger_Stop(void){
147 //プロセスを終了
148 TerminateProcess(hDebugProcess,0);
149 hDebugProcess=0;
150
151 //デバッグダイアログを終了
152 extern HWND hDebugWnd;
153 if(hDebugWnd){
154 DestroyWindow(hDebugWnd);
155 }
156}
157void Debugger_Pause(void){
158 ///////////////////////////
159 // デバッグを一時中断
160 ///////////////////////////
161
162 //ターゲットプロセス内のスレッドを一時中断
163 int i;
164 for(i=0;i<MAX_DEBUG_THREAD;i++){
165 if(_DebugSys_dwThreadID[i])
166 SuspendThread(array_hDebugThread[i]);
167 }
168
169 //デバッグレジスタにフラグをセット
170 CONTEXT Context;
171 for(i=0;i<MAX_DEBUG_THREAD;i++){
172 if(_DebugSys_dwThreadID[i]){
173 Context.ContextFlags=CONTEXT_CONTROL|CONTEXT_DEBUG_REGISTERS;
174 GetThreadContext(array_hDebugThread[i],&Context);
175 Context.EFlags|=0x100;
176 SetThreadContext(array_hDebugThread[i],&Context);
177 }
178 }
179
180 //スレッドを再開
181 for(i=0;i<MAX_DEBUG_THREAD;i++){
182 if(_DebugSys_dwThreadID[i])
183 ResumeThread(array_hDebugThread[i]);
184 }
185}
186
187void ReleaseCPUSingleStep(void){
188 ////////////////////////////////////////
189 // CPU機構のシングルステップを解除
190 ////////////////////////////////////////
191
192 //ターゲットプロセス内のスレッドを一時中断
193 int i;
194 for(i=0;i<MAX_DEBUG_THREAD;i++){
195 if(_DebugSys_dwThreadID[i])
196 SuspendThread(array_hDebugThread[i]);
197 }
198
199 //デバッグレジスタにフラグをセット
200 CONTEXT Context;
201 for(i=0;i<MAX_DEBUG_THREAD;i++){
202 if(_DebugSys_dwThreadID[i]){
203 Context.ContextFlags=CONTEXT_CONTROL|CONTEXT_DEBUG_REGISTERS;
204 GetThreadContext(array_hDebugThread[i],&Context);
205 Context.EFlags&=~0x00000100;
206 SetThreadContext(array_hDebugThread[i],&Context);
207 }
208 }
209
210 //スレッドを再開
211 for(i=0;i<MAX_DEBUG_THREAD;i++){
212 if(_DebugSys_dwThreadID[i])
213 ResumeThread(array_hDebugThread[i]);
214 }
215}
216
217
218ULONG_PTR rva_to_real(DWORD p){
219 extern DWORD ImageBase;
220 extern int MemPos_CodeSection;
221 return p+ImageBase+MemPos_CodeSection;
222}
223
224void ShowVarList(DEBUG_EVENT *pde,BOOL bExit){
225 extern DWORD ImageBase;
226 extern int MemPos_RWSection;
227
228 //デバッグダイアログを表示
229 extern HINSTANCE hInst;
230 extern HWND hMainDlg;
231 extern HWND hDebugWnd;
232 dwStepRun=0;
233 if(!hDebugWnd) SendMessage(hMainDlg,WM_SHOWVARLIST,0,pde->dwThreadId);
234 else InitVarList(pde->dwThreadId);
235
236 if(bExit){
237 //"中断"
238 SetDlgItemText(hMainDlg,IDOK,STRING_CLOSE);
239
240 extern HWND hDebuggerToolbar;
241 SendMessage(hDebuggerToolbar,TB_SETSTATE,IDC_DEBUG_START,TBSTATE_INDETERMINATE);
242 SendMessage(hDebuggerToolbar,TB_SETSTATE,IDC_DEBUG_STEPOVER,TBSTATE_INDETERMINATE);
243 SendMessage(hDebuggerToolbar,TB_SETSTATE,IDC_DEBUG_STEPIN,TBSTATE_INDETERMINATE);
244 }
245 else{
246 //"継続"
247 SetDlgItemText(hDebugWnd,IDCANCEL,STRING_CONTINUE);
248 }
249 while(hDebugWnd&&dwStepRun==0) Sleep(1);
250}
251void DebugMessage(char *buffer){
252 extern HWND hMainDlg;
253 int pos;
254
255 if(!IsWindowEnabled(GetDlgItem(hMainDlg,IDC_DEBUGLIST))){
256 SetDlgItemText(hMainDlg,IDC_DEBUGLIST,"");
257 EnableWindow(GetDlgItem(hMainDlg,IDC_DEBUGLIST),1);
258 }
259
260 pos=GetWindowTextLength(GetDlgItem(hMainDlg,IDC_DEBUGLIST));
261 SendDlgItemMessage(hMainDlg,IDC_DEBUGLIST,EM_SETSEL,pos,pos);
262 SendDlgItemMessage(hMainDlg,IDC_DEBUGLIST,EM_REPLACESEL,0,(LPARAM)buffer);
263}
264UserProc *GetSubFromObp(ULONG_PTR pos)
265{
266 compiler.GetObjectModule().meta.GetUserProcs().Iterator_Reset();
267 while( compiler.GetObjectModule().meta.GetUserProcs().Iterator_HasNext() )
268 {
269 UserProc *pUserProc = compiler.GetObjectModule().meta.GetUserProcs().Iterator_GetNext();
270
271 if(rva_to_real(pUserProc->GetBeginOpAddress()) <= pos &&
272 pos < rva_to_real(pUserProc->GetEndOpAddress()))
273 {
274 return pUserProc;
275 }
276 }
277 return NULL;
278}
279void ReleaseSingleStep(DWORD dwBeforeStepRun,HANDLE hThread,CONTEXT *pContext){
280 //以前にシングルステップ実行をした場合
281 extern DWORD ImageBase;
282 extern int MemPos_CodeSection;
283 extern int FileSize_CodeSection;
284 int i2;
285 ULONG_PTR lpAccBytes;
286
287 ///////////////////////////
288 // シングルステップOFF
289 ///////////////////////////
290
291 //ユーザー指定のブレークポイントをセット
292 WriteProcessMemory(hDebugProcess,
293 (void *)(ULONG_PTR)(ImageBase+MemPos_CodeSection),
294 pobj_DBDebugSection->pobj_now->BreakStepCodeBuffer,
295 FileSize_CodeSection,&lpAccBytes);
296
297 //次に実行すべき命令はユーザー指定によるブレークポイントをはずしておく
298 if(ImageBase+MemPos_CodeSection<=EIP_RIP(*pContext)&&EIP_RIP(*pContext)<ImageBase+MemPos_CodeSection+FileSize_CodeSection){
299 if(OpBuffer[EIP_RIP(*pContext)-ImageBase-MemPos_CodeSection-1]!=
300 pobj_DBDebugSection->pobj_now->BreakStepCodeBuffer[EIP_RIP(*pContext)-ImageBase-MemPos_CodeSection-1]){
301 //直前のブレークポイントがユーザー指定によるものだったとき
302
303 //eip/ripを1だけ減少
304 EIP_RIP(*pContext)--;
305 SetThreadContext(hThread,pContext);
306
307 //ブレークポイントを解除
308 WriteProcessMemory(hDebugProcess,(void *)EIP_RIP(*pContext),&OpBuffer[EIP_RIP(*pContext)-ImageBase-MemPos_CodeSection],1,&lpAccBytes);
309
310
311 extern int StepCursorObpSchedule;
312 if(StepCursorObpSchedule==(int)(EIP_RIP(*pContext)-ImageBase-MemPos_CodeSection)){
313 //カーソル行までのステップ実行の場合
314 pobj_DBDebugSection->pobj_now->BreakStepCodeBuffer[StepCursorObpSchedule]=StepCursor_BackupChar;
315 StepCursorObpSchedule=-1;
316 }
317
318 return;
319 }
320 }
321
322
323 if(dwBeforeStepRun){
324 //直前にシングルステップを行った場合
325 if(ImageBase+MemPos_CodeSection <= EIP_RIP(*pContext) &&
326 EIP_RIP(*pContext) < ImageBase+MemPos_CodeSection+FileSize_CodeSection){
327 //オリジナルコード内のみ、シングルステップ用の"int 3"を考慮
328 EIP_RIP(*pContext)--;
329 SetThreadContext(hThread,pContext);
330 }
331
332 //他のスレッドのサスペンドを解除
333 for(i2=0;i2<MAX_DEBUG_THREAD;i2++){
334 if(array_hDebugThread[i2] && hThread!=array_hDebugThread[i2])
335 ResumeThread(array_hDebugThread[i2]);
336 }
337 }
338}
339
340void Set_DebugSys_dwThreadID(){
341 int i;
342 for(i=0;i<pobj_DBDebugSection->num;i++){
343 ULONG_PTR lpAccBytes;
344 WriteProcessMemory(hDebugProcess,
345 (void *)(ULONG_PTR)(pobj_DBDebugSection->ppobj_ds[i]->dwImageBase + pobj_DBDebugSection->ppobj_ds[i]->dwRVA_RWSection),
346 _DebugSys_dwThreadID,
347 sizeof(DWORD)*MAX_DEBUG_THREAD,
348 &lpAccBytes
349 );
350 }
351}
352void AddThread(DWORD dwThreadId, HANDLE hThread){
353 int i;
354
355
356 for(i=0;i<MAX_DEBUG_THREAD;i++){
357 if(_DebugSys_dwThreadID[i]==0){
358 _DebugSys_dwThreadID[i]=dwThreadId;
359 array_hDebugThread[i]=hThread;
360 break;
361 }
362 }
363
364 Set_DebugSys_dwThreadID();
365}
366void DeleteThread(DWORD dwThreadId){
367 int i;
368
369 for(i=0;i<MAX_DEBUG_THREAD;i++){
370 if(_DebugSys_dwThreadID[i]==dwThreadId){
371 _DebugSys_dwThreadID[i]=0;
372 array_hDebugThread[i]=0;
373 break;
374 }
375 }
376
377 Set_DebugSys_dwThreadID();
378}
379
380void DebugProgram(void){
381 extern HWND hMainDlg;
382 extern DWORD ImageBase;
383 extern int MemPos_CodeSection;
384 extern int MemPos_RWSection;
385 extern int FileSize_CodeSection;
386 int i2,i3,i4;
387 char temporary[1024];
388
389 char ExeFilePathForDll[MAX_PATH];
390 if( compiler.IsDll() ){
391 //DLLをデバッグする場合
392 extern char szDebugExeForDll[1024];
393 if(szDebugExeForDll[0]){
394 //指定済み
395 lstrcpy(ExeFilePathForDll,szDebugExeForDll);
396 }
397 else{
398 //ユーザーに実行ファイルを選択させる
399 extern HWND hOwnerEditor;
400 extern LPSTR ExeFileFilter;
401 if(!GetFilePathDialog(hOwnerEditor,ExeFilePathForDll,ExeFileFilter,"デバッグ用の実行可能ファイルを指定してください。",1)) return;
402 }
403 }
404
405
406 //"中断"
407 SetDlgItemText(hMainDlg,IDOK,STRING_STOP);
408
409 SendMessage(hOwnerEditor,WM_SETDEBUGGERBASE,0,0);
410
411 //カレントディレクトリを設定
412 extern char BasicCurDir[MAX_PATH];
413 SetCurrentDirectory(BasicCurDir);
414
415 SendDlgItemMessage(hMainDlg,IDC_SHOWERROR,BM_SETCHECK,BST_UNCHECKED,0);
416 SendDlgItemMessage(hMainDlg,IDC_SHOWDEBUG,BM_SETCHECK,BST_CHECKED,0);
417 SendMessage(hMainDlg,WM_COMMAND,IDC_SHOWDEBUG,0);
418
419 //ブレークポイントを生成
420 pobj_DBBreakPoint=new CDBBreakPoint;
421
422
423 // デバッグをスタート
424 debugger.DebugStart();
425
426
427 if( program.IsAttach() )
428 {
429 //プロセスIDを元にハンドルを取得
430 HANDLE hProcess;
431 hProcess=OpenProcess(PROCESS_ALL_ACCESS,0, program.GetAttachProcessId() );
432 if(!hProcess) goto AttachError;
433
434 //そのプロセスにおける実行モジュールのインスタンスハンドルを取得
435 HINSTANCE hModule;
436 DWORD cbReturned;
437 if(!EnumProcessModules( hProcess, &hModule, sizeof(HINSTANCE), &cbReturned )) goto AttachError;
438
439 //実行ファイル名を取得
440 char tempOutputFileName[MAX_PATH];
441 GetModuleFileNameEx(hProcess,hModule,tempOutputFileName,MAX_PATH);
442 program.SetOutputFilePath( tempOutputFileName );
443
444 CloseHandle(hProcess);
445
446/*
447 //デバッグ用の拡張情報を取得
448 pobj_DebugSection->load(program.GetOutputFilePath().c_str());*/
449
450 if(!DebugActiveProcess( program.GetAttachProcessId() )){
451AttachError:
452 DebugMessage("アタッチに失敗しました。");
453 return;
454 }
455 }
456 else{
457 /*if(!pobj_DebugSection->load(program.GetOutputFilePath().c_str())){
458 extern BOOL bDebugCompile;
459 bDebugCompile=1;
460 Build();
461 pobj_DebugSection->load(program.GetOutputFilePath().c_str());
462 }*/
463
464 //スレッドを生成
465 extern char szDebugCmdLine[1024];
466 STARTUPINFO si;
467 PROCESS_INFORMATION pi;
468 memset(&si,0,sizeof(STARTUPINFO));
469 si.cb=sizeof(STARTUPINFO);
470 if( !compiler.IsDll() ){
471 //EXEファイルをデバッグ
472 CreateProcess(program.GetOutputFilePath().c_str(),szDebugCmdLine,NULL,NULL,0,NORMAL_PRIORITY_CLASS|DEBUG_ONLY_THIS_PROCESS|CREATE_NEW_CONSOLE,NULL,NULL,&si,&pi);
473 }
474 else{
475 //DLLファイルをデバッグ
476 CreateProcess(ExeFilePathForDll,szDebugCmdLine,NULL,NULL,0,NORMAL_PRIORITY_CLASS|DEBUG_ONLY_THIS_PROCESS|CREATE_NEW_CONSOLE,NULL,NULL,&si,&pi);
477 }
478
479 CloseHandle(pi.hProcess);
480 CloseHandle(pi.hThread);
481 }
482
483
484 //デバッグ情報データベースを生成
485 pobj_DBDebugSection=new CDBDebugSection();
486
487 //デバッグスレッド情報（プロシージャの階層構造を管理）を生成
488 pobj_dti=new CDebugThreadInfo();
489
490 UserProc *pUserProc;
491
492 extern DWORD dwStepRun;
493 BOOL bFirstBreak=1;
494 CONTEXT Context;
495 HANDLE hMainThread;
496 ULONG_PTR lpAccBytes;
497
498 DEBUG_EVENT de;
499 memset(&de,0,sizeof(DEBUG_EVENT));
500
501 while(WaitForDebugEvent(&de,INFINITE)){
502 if(de.dwDebugEventCode==LOAD_DLL_DEBUG_EVENT){
503 WCHAR wcBuf[MAX_PATH];
504 LONG_PTR lpData;
505
506 wcBuf[0]=0;
507 temporary[0]=0;
508
509 if(de.u.LoadDll.lpImageName){
510 if(!ReadProcessMemory(hDebugProcess,de.u.LoadDll.lpImageName,&lpData,sizeof(LONG_PTR),&lpAccBytes)){
511 sprintf(temporary,"ロードされたDLLの名前取得（アドレス:&H%08x）に失敗しました。\r\n",(ULONG_PTR)de.u.LoadDll.lpImageName);
512 DebugMessage(temporary);
513 goto NextContinue;
514 }
515 if(!lpData) goto Attach_DllLoad;
516
517 if(!ReadProcessMemory(hDebugProcess,(void *)lpData,wcBuf,sizeof(WCHAR)*MAX_PATH,&lpAccBytes)){
518 sprintf(temporary,"ロードされたDLLの名前取得（アドレス:&H%08x）に失敗しました。\r\n",lpData);
519 DebugMessage(temporary);
520 goto NextContinue;
521 }
522
523 if(de.dwThreadId,de.u.LoadDll.fUnicode)
524 WideCharToMultiByte(CP_ACP,0,wcBuf,-1,temporary,255,NULL,NULL);
525 else lstrcpy(temporary,(char *)wcBuf);
526 }
527 else{
528Attach_DllLoad:
529 //アタッチした場合
530 GetModuleFileNameEx(hDebugProcess,(HINSTANCE)de.u.LoadDll.lpBaseOfDll,temporary,MAX_PATH);
531 }
532
533 char temp2[1024];
534 sprintf(temp2,"\"%s\" をロードしました。\r\n",temporary);
535 DebugMessage(temp2);
536
537
538 //可能であればデバッグ情報を読みとる
539 if(pobj_DBDebugSection->add((HMODULE)de.u.LoadDll.lpBaseOfDll)){
540 pobj_DBDebugSection->choice(0);
541 Set_DebugSys_dwThreadID();
542 }
543
544
545 /*if(lstrcmpi(temporary, program.GetOutputFilePath().c_str())==0){
546 ImageBase=(DWORD)de.u.LoadDll.lpBaseOfDll;
547
548 AddThread(de.dwThreadId,hMainThread);
549 }*/
550 }
551 else if(de.dwDebugEventCode==UNLOAD_DLL_DEBUG_EVENT){
552 //DLLのアンロード
553
554 pobj_DBDebugSection->del((HMODULE)de.u.UnloadDll.lpBaseOfDll);
555 }
556 else if(de.dwDebugEventCode==CREATE_PROCESS_DEBUG_EVENT){
557 hDebugProcess=de.u.CreateProcessInfo.hProcess;
558 hMainThread=de.u.CreateProcessInfo.hThread;
559
560 if(pobj_DBDebugSection->add((HMODULE)de.u.CreateProcessInfo.lpBaseOfImage)){
561 pobj_DBDebugSection->choice(0);
562 }
563
564 AddThread(de.dwThreadId,de.u.CreateProcessInfo.hThread);
565 }
566 else if(de.dwDebugEventCode==CREATE_THREAD_DEBUG_EVENT){
567 AddThread(de.dwThreadId,de.u.CreateThread.hThread);
568 }
569 else if(de.dwDebugEventCode==EXIT_PROCESS_DEBUG_EVENT){
570 //デバッグダイアログを終了
571 SendMessage(hMainDlg,WM_CLOSE_DEBUGGER,0,0);
572
573 DeleteThread(de.dwThreadId);
574
575 //"スレッド(&H%X)はコード &H%X で終了しました。\r\n"
576 sprintf(temporary,STRING_DEBUG_THREADFINISH,de.dwThreadId,de.u.ExitProcess.dwExitCode);
577 DebugMessage(temporary);
578
579 //"プログラムはコード &H%X で終了しました。\r\n"
580 sprintf(temporary,STRING_DEBUG_PROCESSFINISH,de.u.ExitProcess.dwExitCode);
581 DebugMessage(temporary);
582 break;
583 }
584 else if(de.dwDebugEventCode==EXIT_THREAD_DEBUG_EVENT){
585 //"スレッド(&H%X)はコード &H%X で終了しました。\r\n"
586 sprintf(temporary,STRING_DEBUG_THREADFINISH,de.dwThreadId,de.u.ExitThread.dwExitCode);
587 DebugMessage(temporary);
588
589 //以前にシングルステップ実行をした場合
590 //ステップ実行を解除
591 if(dwStepRun){
592 extern HWND hDebugWnd;
593 if(hDebugWnd) SendMessage(hDebugWnd,WM_VARLIST_CLOSE,0,0);
594
595 for(i4=0;i4<MAX_DEBUG_THREAD;i4++){
596 if(de.dwThreadId==_DebugSys_dwThreadID[i4]) break;
597 }
598 Context.ContextFlags=CONTEXT_CONTROL;
599 GetThreadContext(array_hDebugThread[i4],&Context);
600
601 ReleaseSingleStep(dwStepRun,array_hDebugThread[i4],&Context);
602 }
603
604 DeleteThread(de.dwThreadId);
605 }
606 else if(de.dwDebugEventCode==OUTPUT_DEBUG_STRING_EVENT){
607 ReadProcessMemory(hDebugProcess,(void *)de.u.DebugString.lpDebugStringData,temporary,de.u.DebugString.nDebugStringLength,&lpAccBytes);
608 DebugMessage(temporary);
609 }
610 else if(de.dwDebugEventCode==EXCEPTION_DEBUG_EVENT){
611
612 //////////////////////////////////////
613 // モジュールを再確認
614 // ※DLLへのデバッグ分岐を可能にする
615 //////////////////////////////////////
616
617
618 //初回例外は無視
619 if(bFirstBreak){
620 bFirstBreak=0;
621 goto NextContinue;
622 }
623
624 for(i2=0;;i2++){
625 if(_DebugSys_dwThreadID[i2]==de.dwThreadId) break;
626 }
627
628 //スレッド情報をリフレッシュ
629 if(!pobj_dti->Reflesh(i2)){
630 MessageBox(hOwnerEditor,"デバッグ情報が壊れています。ターゲットファイルを再コンパイルしてください。","ActiveBasic",MB_OK|MB_ICONEXCLAMATION);
631
632 break;
633 }
634
635 if(de.u.Exception.ExceptionRecord.ExceptionCode==EXCEPTION_ACCESS_VIOLATION){
636
637 //"スレッド(&H%X)でアクセス違反がありました(EIP=&H%08X)。\r\n"
638 sprintf(temporary,
639 STRING_DEBUG_THREAD_ACCESSVIOLATION,
640 de.dwThreadId,
641 (ULONG_PTR)de.u.Exception.ExceptionRecord.ExceptionAddress,
642#ifdef _AMD64_
643 (ULONG_PTR)Context.Rsp
644#else
645 (ULONG_PTR)Context.Esp
646#endif
647 );
648 DebugMessage(temporary);
649
650 MessageBeep(MB_ICONEXCLAMATION);
651 ShowVarList(&de,1);
652 break;
653 }
654 else if(de.u.Exception.ExceptionRecord.ExceptionCode==EXCEPTION_BREAKPOINT||
655 de.u.Exception.ExceptionRecord.ExceptionCode==EXCEPTION_SINGLE_STEP){
656 /////////////////////////
657 // ブレークポイント
658 /////////////////////////
659
660 if(de.u.Exception.ExceptionRecord.ExceptionCode==EXCEPTION_SINGLE_STEP){
661 //CPU機構のシングルステップによるブレークポイント
662 //※シングルステップを解除
663 ReleaseCPUSingleStep();
664 }
665
666 i3=dwStepRun;
667
668 for(i4=0;i4<MAX_DEBUG_THREAD;i4++){
669 if(de.dwThreadId==_DebugSys_dwThreadID[i4]) break;
670 }
671 Context.ContextFlags=CONTEXT_CONTROL | CONTEXT_INTEGER;
672 GetThreadContext(array_hDebugThread[i4],&Context);
673
674 if(i3==0||
675 i3&&(!(ImageBase+MemPos_CodeSection<=EIP_RIP(Context)&&EIP_RIP(Context)<ImageBase+MemPos_CodeSection+FileSize_CodeSection))
676 ){
677 //"スレッド(&H%X)のブレーク ポイント(EIP=&H%08X)。\r\n"
678 sprintf(temporary,
679 STRING_DEBUG_BREAKPOINT,
680 de.dwThreadId,
681 (ULONG_PTR)de.u.Exception.ExceptionRecord.ExceptionAddress,
682#ifdef _AMD64_
683 (ULONG_PTR)Context.Rsp
684#else
685 (ULONG_PTR)Context.Esp
686#endif
687 );
688 DebugMessage(temporary);
689 }
690
691 ShowVarList(&de,0);
692
693 //ステップ実行を解除
694 ReleaseSingleStep(i3,array_hDebugThread[i4],&Context);
695
696 if(dwStepRun){
697 //新たにシングルステップを行う場合
698
699 if(i4!=NextStepThreadNum){
700 //次回のステップ対象が別スレッドの場合
701 Context.ContextFlags=CONTEXT_CONTROL;
702 GetThreadContext(array_hDebugThread[NextStepThreadNum],&Context);
703 }
704
705 if(ImageBase+MemPos_CodeSection <= EIP_RIP(Context) &&
706 EIP_RIP(Context) < ImageBase+MemPos_CodeSection+FileSize_CodeSection){
707 //Debug命令語が続く場合はシングルステップは不要になるので、無効にする
708 //（オリジナルコード内のみ）
709 if(OpBuffer[EIP_RIP(Context)-ImageBase-MemPos_CodeSection]==(char)0xCC)
710 dwStepRun=0;
711 }
712 if(dwStepRun==1){
713 //ステップイン
714StepIn:
715 //シングルステップON
716 WriteProcessMemory(hDebugProcess,(void *)(ULONG_PTR)(ImageBase+MemPos_CodeSection),
717 pobj_DBDebugSection->pobj_now->SingleStepCodeBuffer,
718 FileSize_CodeSection,&lpAccBytes);
719
720 //次の命令語のブレーク命令は解除しておく（シングルステップ実行後のみ）
721 //（オリジナルコード内のみ）
722 if(i3&&ImageBase+MemPos_CodeSection<=EIP_RIP(Context)&&EIP_RIP(Context)<ImageBase+MemPos_CodeSection+FileSize_CodeSection)
723 WriteProcessMemory(hDebugProcess,(void *)EIP_RIP(Context),&OpBuffer[EIP_RIP(Context)-ImageBase-MemPos_CodeSection],1,&lpAccBytes);
724
725 //他のスレッドを一時中断
726 for(i4=0;i4<MAX_DEBUG_THREAD;i4++){
727 if(_DebugSys_dwThreadID[i4] && NextStepThreadNum!=i4)
728 SuspendThread(array_hDebugThread[i4]);
729 }
730 }
731 else if(dwStepRun==2){
732 //ステップオーバー
733
734 BOOL bRet;
735 bRet=ReadProcessMemory(hDebugProcess,
736 (void *)EIP_RIP(Context),
737 temporary,
738 5,
739 &lpAccBytes);
740 if(!bRet) MessageBox(hMainDlg,"プロセスメモリーの読み込みに失敗","error",MB_OK);
741
742 extern const UserProc *pSub_DebugSys_EndProc;
743 if((BYTE)temporary[0]==0xE8&&
744 *((long *)(temporary+1))+5==(long)rva_to_real(pSub_DebugSys_EndProc->GetBeginOpAddress())-(long)EIP_RIP(Context)){
745 //プロシージャの終端位置の場合はステップインを行う
746 goto StepIn;
747 }
748
749 extern int GlobalOpBufferSize;
750 if(ImageBase+MemPos_CodeSection<=pobj_dti->lplpObp[pobj_dti->iProcLevel]&&
751 pobj_dti->lplpObp[pobj_dti->iProcLevel]<ImageBase+MemPos_CodeSection+GlobalOpBufferSize){
752 //シングルステップON
753 WriteProcessMemory(hDebugProcess,
754 (void *)(ULONG_PTR)(ImageBase+MemPos_CodeSection),
755 pobj_DBDebugSection->pobj_now->SingleStepCodeBuffer,
756 GlobalOpBufferSize,
757 &lpAccBytes);
758 }
759 else{
760 //プロシージャを識別
761 pUserProc=GetSubFromObp(pobj_dti->lplpObp[pobj_dti->iProcLevel]);
762
763 //シングルステップON
764 WriteProcessMemory(hDebugProcess,
765 (void *)rva_to_real(pUserProc->GetBeginOpAddress()),
766 pobj_DBDebugSection->pobj_now->SingleStepCodeBuffer+pUserProc->GetBeginOpAddress(),
767 pUserProc->GetEndOpAddress()-pUserProc->GetBeginOpAddress(),
768 &lpAccBytes);
769 }
770
771 //次の命令語のブレーク命令は解除しておく（シングルステップ実行後のみ）
772 //（オリジナルコード内のみ）
773 if(i3&&ImageBase+MemPos_CodeSection<=EIP_RIP(Context)&&EIP_RIP(Context)<ImageBase+MemPos_CodeSection+FileSize_CodeSection)
774 WriteProcessMemory(hDebugProcess,(void *)EIP_RIP(Context),&OpBuffer[EIP_RIP(Context)-ImageBase-MemPos_CodeSection],1,&lpAccBytes);
775
776 //他のスレッドを一時中断
777 for(i4=0;i4<MAX_DEBUG_THREAD;i4++){
778 if(_DebugSys_dwThreadID[i4] && NextStepThreadNum!=i4)
779 SuspendThread(array_hDebugThread[i4]);
780 }
781 }
782 }
783 }
784 else if(de.u.Exception.ExceptionRecord.ExceptionCode==STATUS_INTEGER_DIVIDE_BY_ZERO){
785 //"0による除算が行われました。スレッド(&H%X) ブレーク ポイント(EIP=&H%08X)。\r\n"
786 sprintf(temporary,STRING_DEBUG_DIVIDE_BY_ZERO,de.dwThreadId,(ULONG_PTR)de.u.Exception.ExceptionRecord.ExceptionAddress);
787 DebugMessage(temporary);
788
789 ShowVarList(&de,1);
790 break;
791 }
792 else if(de.u.Exception.ExceptionRecord.ExceptionCode==STATUS_NO_MEMORY){
793 //"メモリ不足、またはヒープが壊れていることが原因で、メモリの割り当てに失敗しました。スレッド(&H%X) ブレーク ポイント(EIP=&H%08X)。\r\n"
794 sprintf(temporary,STRING_DEBUG_DIVIDE_NO_MEMORY,de.dwThreadId,(ULONG_PTR)de.u.Exception.ExceptionRecord.ExceptionAddress);
795 DebugMessage(temporary);
796
797 ShowVarList(&de,1);
798 break;
799 }
800 else{
801 //"例外処理\ncode:%X"
802 sprintf(temporary,STRING_DEBUG_ERROR,de.u.Exception.ExceptionRecord.ExceptionCode);
803 DebugMessage(temporary);
804 }
805 }
806NextContinue:
807 ContinueDebugEvent(de.dwProcessId,de.dwThreadId,DBG_CONTINUE);
808 }
809
810 extern HWND hDebugWnd;
811 if(hDebugWnd) SendMessage(hDebugWnd,WM_COMMAND,IDCANCEL,0);
812
813 //デバッグに利用した情報を解放
814 delete pobj_DBDebugSection;
815
816 //デバッグスレッド情報を解放
817 delete pobj_dti;
818
819 //ブレークポイントを解放
820 delete pobj_DBBreakPoint;
821
822 //"閉じる"
823 SetDlgItemText(hMainDlg,IDOK,STRING_CLOSE);
824
825 debugger.FinishDebug();
826
827 SendMessage(hOwnerEditor,WM_DESTROYDEBUGGERBASE,0,0);
828}
Note: See TracBrowser for help on using the repository browser.