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

__VMPARLLIST( <nProcLevel> ) enhanced to accept a proclevel

Browse Source
This commit is contained in:
Antonio Linares
2001-04-25 18:07:00 +00:00
parent 2efb402fae
commit 1e409d6b69
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -164,13 +164,16 @@ HB_FUNC( __VMSTKLLIST )
/* and locals */
HB_FUNC( __VMPARLLIST )
{
int iLevel = hb_parni( 1 ) + 1;
PHB_ITEM * pBase = hb_stack.pBase;
PHB_ITEM pReturn;
PHB_ITEM * pItem;
PHB_ITEM * pBase = hb_stack.pItems + ( *(hb_stack.pBase) )->item.asSymbol.stackbase;
/* Skip function + self */
USHORT uiLen = ( *pBase )->item.asSymbol.paramcnt;
USHORT uiPos = 1;
USHORT uiLen, uiPos = 1;
while( ( iLevel-- > 0 ) && pBase != hb_stack.pItems )
pBase = hb_stack.pItems + ( *pBase )->item.asSymbol.stackbase;
uiLen = ( * pBase )->item.asSymbol.paramcnt;
pReturn = hb_itemArrayNew( uiLen ); /* Create a transfer array */
for( pItem = pBase + 2; uiLen--; pItem++ )