Added __SetProfiler() call sample.

2001-07-18 09:53:05 +00:00
parent 61fcc5cee3
commit e60a9295a8
1 changed files with 4 additions and 3 deletions
--- a/harbour/tests/testprof.prg
+++ b/harbour/tests/testprof.prg
@@ -2,14 +2,15 @@

 function Main()

-   local oGet := GetNew()
-   local oBrw := TBrowseNew()
+   local dummy := __SetProfiler( .t. )  // First of all, we activate the profiler
+   local oGet  := GetNew()
+   local oBrw  := TBrowseNew()
   local n

   for n = 1 to 20000
      oGet:row = 10
   next

-   Profiler()  // look for a generated profiler.txt file on your disk
+   hb_Profiler( "profile.txt" )  // look for a generated profiler.txt file on your disk

 return nil