From 31be17356da91e0520bfbedeef25131773b158e8 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Sat, 30 Jun 2001 07:39:36 +0000 Subject: [PATCH] Added profiler support for functions and procedures --- harbour/source/vm/hvm.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c index 1b32c64208..678163e1dc 100644 --- a/harbour/source/vm/hvm.c +++ b/harbour/source/vm/hvm.c @@ -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