From e60a9295a85620cd00ba10ade1096bc66ec15550 Mon Sep 17 00:00:00 2001 From: Antonio Linares Date: Wed, 18 Jul 2001 09:53:05 +0000 Subject: [PATCH] Added __SetProfiler() call sample. --- harbour/tests/testprof.prg | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/harbour/tests/testprof.prg b/harbour/tests/testprof.prg index cc5232af68..97a17a6fa1 100644 --- 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 \ No newline at end of file