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

Last change on this file since 648 was 648, checked in by dai_9181, 15 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
61    extern BasicSources sourcesLinkRelationalObjectModule;
62    BOOST_FOREACH( const BasicSource &source, sourcesLinkRelationalObjectModule )
63    {
64        pIncludedFilesRelation = &source.GetIncludedFilesRelation();
65
66        for(FileNum=0;FileNum<pIncludedFilesRelation->GetFileCounts();FileNum++)
67        {
68            if(lstrcmpi(pIncludedFilesRelation->GetFilePathFromFileNumber(FileNum).c_str(),szFilePath)==0)
69            {
70                pNowSource = &source;
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 BreakPointManager;
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.