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

Added profiler support for functions and procedures

Browse Source
This commit is contained in:
Antonio Linares
2001-06-30 07:39:36 +00:00
parent bb303aa87b
commit 31be17356d
1 changed files with 16 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
harbour/source/vm/hvm.c
View File

@@ -2884,7 +2884,15 @@ void hb_vmDo( USHORT uiParams )
pFunc = pSym->pFunPtr;
if( pFunc )
{
pFunc();
if( pSym->pDynSym )
{
pSym->pDynSym->ulCalls++; /* profiler support */
pSym->pDynSym->ulTime += clock() - ulClock; /* profiler support */
}
}
else
{
/* Attempt to call an undefined function
@@ -3012,7 +3020,15 @@ void hb_vmSend( USHORT uiParams )
pFunc = pSym->pFunPtr;
if( pFunc )
{
pFunc();
if( pSym->pDynSym )
{
pSym->pDynSym->ulCalls++; /* profiler support */
pSym->pDynSym->ulTime += clock() - ulClock; /* profiler support */
}
}
else
{
/* Attempt to call an undefined function