fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2007-05-23 11:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/include/Makefile
    + added hbapidbg.h

  * harbour/source/vm/classes.c
    - removed one unused debug function

  * harbour/source/vm/debug.c
    * formatting
This commit is contained in:
Przemyslaw Czerpak
2007-05-23 09:55:32 +00:00
parent 866acc9f44
commit 487aa9c20e
4 changed files with 48 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-05-23 11:55 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/Makefile
+ added hbapidbg.h
* harbour/source/vm/classes.c
- removed one unused debug function
* harbour/source/vm/debug.c
* formatting
2007-05-22 23:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/common.mak
! fixed typo during copy and past in last modification - changing files

1
harbour/include/Makefile
View File

@@ -10,6 +10,7 @@ C_HEADERS=\
hbapi.h \
hbapicdp.h \
hbapicls.h \
hbapidbg.h \
hbapierr.h \
hbapifs.h \
hbapigt.h \

59
harbour/source/vm/classes.c
View File

@@ -1254,34 +1254,6 @@ HB_EXPORT const char * hb_objGetRealClsName( PHB_ITEM pObject, const char * szNa
return hb_objGetClsName( pObject );
}
/*
* return real function name ignoring aliasing
*/
const char * hb_clsRealMethodName( void )
{
LONG lOffset = hb_stackBaseProcOffset( 1 );
const char * szName = NULL;
if( lOffset > 0 )
{
PHB_STACK_STATE pStack = hb_stackItem( lOffset )->item.asSymbol.stackstate;
if( pStack->uiClass && pStack->uiClass <= s_uiClasses )
{
PCLASS pClass = &s_pClasses[ pStack->uiClass ];
if( ( ULONG ) pStack->uiMethod < hb_clsMthNum( pClass ) )
{
PMETHOD pMethod = pClass->pMethods + pStack->uiMethod;
if( pMethod->pMessage )
szName = pMethod->pMessage->pSymbol->szName;
}
}
}
return szName;
}
#if defined( HB_CLASSY_BLOCK_SCOPE )
static LONG hb_clsSenderOffset( void )
{
@@ -4029,7 +4001,6 @@ void hb_clsAssociate( USHORT usClassH )
#if 1
/*
* __CLS_PARAM() and __CLS_PAR00() functions are only for backward binary
* compatibility. They will be removed in the future so please do not use
@@ -4087,3 +4058,33 @@ BOOL hb_objGetpMethod( PHB_ITEM pObject, PHB_SYMB pMessage )
}
#endif
#if 0
/*
* return real function name ignoring aliasing
*/
const char * hb_clsRealMethodName( void )
{
LONG lOffset = hb_stackBaseProcOffset( 1 );
const char * szName = NULL;
if( lOffset > 0 )
{
PHB_STACK_STATE pStack = hb_stackItem( lOffset )->item.asSymbol.stackstate;
if( pStack->uiClass && pStack->uiClass <= s_uiClasses )
{
PCLASS pClass = &s_pClasses[ pStack->uiClass ];
if( ( ULONG ) pStack->uiMethod < hb_clsMthNum( pClass ) )
{
PMETHOD pMethod = pClass->pMethods + pStack->uiMethod;
if( pMethod->pMessage )
szName = pMethod->pMessage->pSymbol->szName;
}
}
}
return szName;
}
#endif

14
harbour/source/vm/debug.c
View File

@@ -255,35 +255,35 @@ HB_FUNC( HB_DBG_VMVARLSET )
HB_FUNC( __VMSTKLCOUNT )
{
HB_FUNC_EXEC(HB_DBG_VMSTKLCOUNT);
HB_FUNC_EXEC( HB_DBG_VMSTKLCOUNT );
}
HB_FUNC( __VMPARLLIST )
{
HB_FUNC_EXEC(HB_DBG_VMPARLLIST);
HB_FUNC_EXEC( HB_DBG_VMPARLLIST );
}
HB_FUNC( __VMSTKLLIST )
{
HB_FUNC_EXEC(HB_DBG_VMSTKLLIST);
HB_FUNC_EXEC( HB_DBG_VMSTKLLIST );
}
HB_FUNC( __VMVARLGET )
{
HB_FUNC_EXEC(HB_DBG_VMVARLGET);
HB_FUNC_EXEC( HB_DBG_VMVARLGET );
}
HB_FUNC( __VMVARLSET )
{
HB_FUNC_EXEC(HB_DBG_VMVARLSET);
HB_FUNC_EXEC( HB_DBG_VMVARLSET );
}
HB_FUNC( __VMSTKGLIST )
{
HB_FUNC_EXEC(HB_DBG_VMSTKGLIST);
HB_FUNC_EXEC( HB_DBG_VMSTKGLIST );
}
HB_FUNC( __VMSTKGCOUNT )
{
HB_FUNC_EXEC(HB_DBG_VMSTKGCOUNT);
HB_FUNC_EXEC( HB_DBG_VMSTKGCOUNT );
}