dbgwcall.c

来自「开放源码的编译器open watcom 1.6.0版的源代码」· C语言 代码 · 共 269 行

/****************************************************************************
*
*                            Open Watcom Project
*
*    Portions Copyright (c) 1983-2002 Sybase, Inc. All Rights Reserved.
*
*  ========================================================================
*
*    This file contains Original Code and/or Modifications of Original
*    Code as defined in and that are subject to the Sybase Open Watcom
*    Public License version 1.0 (the 'License'). You may not use this file
*    except in compliance with the License. BY USING THIS FILE YOU AGREE TO
*    ALL TERMS AND CONDITIONS OF THE LICENSE. A copy of the License is
*    provided with the Original Code and Modifications, and is also
*    available at www.sybase.com/developer/opensource.
*
*    The Original Code and all software distributed under the License are
*    distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
*    EXPRESS OR IMPLIED, AND SYBASE AND ALL CONTRIBUTORS HEREBY DISCLAIM
*    ALL SUCH WARRANTIES, INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF
*    MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR
*    NON-INFRINGEMENT. Please see the License for the specific language
*    governing rights and limitations under the License.
*
*  ========================================================================
*
* Description:  The 'Calls' window (call stack).
*
****************************************************************************/


#include <string.h>
#include "dbgdefn.h"
#include "dbgwind.h"
#include "dbginfo.h"
#include "dbgtback.h"
#include "dbgadget.h"
#include "dbginfo.h"
#include "dbgmem.h"
#include "dbgchain.h"
#include "mad.h"

extern char             *TxtBuff;

extern a_window         *WndSrcInspect( address );
extern a_window         *WndAsmInspect( address );
extern address          FindLclBlock( address addr );
extern int              AddrComp( address, address );
extern void             GoToAddr( address addr );
extern bool             DlgBreak( address );
extern char             *StrCopy( char *, char * );
extern char             *CopySourceLine( cue_handle * );
extern unsigned         LineNumLkup( address );
extern void             UnAsm( address addr, unsigned, char *buff );
extern char             *DupStr( char * );
extern void             SetStackPos( location_context *lc, int pos );
extern int              GetStackPos( void );
extern char             *CnvNearestAddr( address, char *, unsigned );

extern address          FindNextIns( address a );
extern void             InitTraceBack( cached_traceback * );
extern call_chain       *GetCallChain( cached_traceback *tb, int row );
extern void             UpdateTraceBack( cached_traceback *tb );
extern void             FiniTraceBack( cached_traceback *tb );
extern void             UnWindToFrame( call_chain *chain, int, int );

#include "menudef.h"
static gui_menu_struct CallMenu[] = {
    #include "menucall.h"
};

typedef struct call_window {
    cached_traceback    tb;
    gui_ord     max_sym_len;
} call_window;
#define WndCall( wnd ) ( (call_window*)WndExtra( wnd ) )

enum {
    PIECE_SYMBOL,
    PIECE_TABSTOP = PIECE_SYMBOL,
    PIECE_SOURCE,
};

static WNDNUMROWS CallNumRows;
static int CallNumRows( a_window *wnd )
{
    return( WndCall( wnd )->tb.curr->total_depth );
}

static  WNDMENU CallMenuItem;
static void     CallMenuItem( a_window *wnd, unsigned id, int row, int piece )
{
    call_chain  *chain;
    call_window *call = WndCall( wnd );

    piece=piece;

    chain = GetCallChain( &call->tb, row );
    switch( id ) {
    case MENU_INITIALIZE:
        if( chain == NULL ) {
            WndMenuGrayAll( wnd );
        } else {
            WndMenuEnableAll( wnd );
            WndMenuEnable( wnd, MENU_CALL_EXECUTE_TO_RETURN, row != 0 );
            WndMenuEnable( wnd, MENU_CALL_SOURCE, chain->source_line != NULL );
        }
        break;
    case MENU_CALL_BREAK:
        DlgBreak( row == 0 ? chain->lc.execution : FindNextIns( chain->lc.execution ) );
        break;
    case MENU_CALL_SOURCE:
        WndSrcInspect( chain->lc.execution );
        break;
    case MENU_CALL_UNWIND:
        UnWindToFrame( chain, row, CallNumRows( wnd ) );
        break;
    case MENU_CALL_ASSEMBLY:
        WndAsmInspect( chain->lc.execution );
        break;
    case MENU_CALL_EXECUTE_TO_RETURN:
        GoToAddr( FindNextIns( chain->lc.execution ) );
        break;
    }
}

static WNDGETLINE CallGetLine;
static  bool    CallGetLine( a_window *wnd, int row, int piece,
                             wnd_line_piece *line )
{
    call_chain  *chain;
    call_window *call = WndCall( wnd );

    chain = GetCallChain( &call->tb, row );
    if( chain == NULL ) return( FALSE );
    line->extent = WND_MAX_EXTEND;
    switch( piece ) {
    case PIECE_SYMBOL:
        line->text = TxtBuff;
        StrCopy( ":", StrCopy( chain->symbol, line->text ) );
        return( TRUE );
    case PIECE_SOURCE:
        line->indent = call->max_sym_len + 3*WndAvgCharX( wnd );
        line->tabstop = FALSE;
        line->use_prev_attr = TRUE;
        if( chain->source_line == NULL ) {
            line->text = TxtBuff;
            UnAsm( chain->lc.execution, TXT_LEN, TxtBuff );
        } else {
            line->text = chain->source_line;
        }
        return( TRUE );
    default:
        return( FALSE );
    }
}


static void     CallInit( a_window *wnd )
{
    int                 row;
    call_window         *call = WndCall( wnd );
    traceback           *curr,*prev;
    call_chain          *chain;
    int                 i;

    UpdateTraceBack( &call->tb );
    curr = call->tb.curr;
    prev = call->tb.prev;
    WndNoSelect( wnd );
    if( curr->clean_size == 0 || curr->total_depth < prev->total_depth ) {
        WndRepaint( wnd );
    } else {
        row = curr->total_depth;
        if( prev->total_depth > row ) {
            row = prev->total_depth;
        }
        while( --row >= curr->clean_size ) {
            WndRowDirty( wnd, row );
        }
    }
    call->max_sym_len = 0;
    chain = curr->chain;
    for( i = 0; i < curr->current_depth; ++i ) {
        if( chain[ i ].sym_len == 0 ) {
            chain[ i ].sym_len = WndExtentX( wnd, chain[ i ].symbol );
        }
        if( chain[ i ].sym_len > call->max_sym_len ) {
            call->max_sym_len = chain[ i ].sym_len;
        }
    }
}


static void CallScrollPos( a_window *wnd )
{
    WndMoveCurrent( wnd, CallNumRows(wnd) - 1 + GetStackPos(), PIECE_TABSTOP );
}


static WNDREFRESH CallRefresh;
static void     CallRefresh( a_window *wnd )
{

    if( ( WndFlags & ~UP_STACKPOS_CHANGE ) & CallInfo.flags ) {
        CallInit( wnd );
    }
    CallScrollPos( wnd );
}


static void CallClose( a_window *wnd )
{
    call_window *call = WndCall( wnd );

    FiniTraceBack( &call->tb );
    WndFree( call );
}


static WNDCALLBACK CallEventProc;
static bool CallEventProc( a_window * wnd, gui_event gui_ev, void *parm )
{
    call_window *call = WndCall( wnd );

    parm=parm;
    switch( gui_ev ) {
    case GUI_INIT_WINDOW:
        InitTraceBack( &call->tb );
        /* fall through */
    case GUI_RESIZE:
        CallInit( wnd );
        CallScrollPos( wnd );
        return( TRUE );
    case GUI_DESTROY :
        CallClose( wnd );
        return( TRUE );
    }
    return( FALSE );
}


wnd_info CallInfo = {
    CallEventProc,
    CallRefresh,
    CallGetLine,
    CallMenuItem,
    NoScroll,
    NoBegPaint,
    NoEndPaint,
    WndFirstMenuItem,
    CallNumRows,
    NoNextRow,
    NoNotify,
    UP_RADIX_CHANGE+UP_SYM_CHANGE+UP_CSIP_CHANGE+UP_STACKPOS_CHANGE,
    DefPopUp( CallMenu )
};

extern WNDOPEN WndCallOpen;
extern a_window *WndCallOpen( void )
{
    call_window *call;
    a_window    *wnd;

    call = WndMustAlloc( sizeof( call_window ) );
    wnd = DbgWndCreate( LIT( WindowCalls ), &CallInfo, WND_CALL, call, &CallIcon );
    return( wnd );
}