[slang-users] Bug in profiler.sl

[Jörg Sommer <joerg@xxxxxxxxxxxx>]

Hi,

% cat prof-x.sl
require ("profile");

profile_calibrate ();

profile_on(1);
define barE() { throw DataError; }
define fooE() { try barE(); catch DataError; }
define bar() { }
define foo() { try bar(); catch DataError; }
profile_off();

profile_begin ();
foo();
fooE();
profile_end ();
profile_report(stdout);

profile_begin ();
fooE();
foo();
profile_end ();
profile_report(stdout);

exit(0);

% jed-script prof-x.sl

#----------------------------------------------------------------
#                  Function Call Profile Report
#----------------------------------------------------------------

#function                 ncalls      ms/call  totalselfms    totalsecs Function File
foo                            1       0.0202       0.0152       0.0000       1       0 /home/joerg/prof-x.sl
bar                            1       0.0050       0.0050       0.0000       0       0 /home/joerg/prof-x.sl
fooE                           1       0.0000       0.0000       0.0000       0       0 /home/joerg/prof-x.sl
barE                           1       0.0000       0.0000       0.0000       0       0 /home/joerg/prof-x.sl

#----------------------------------------------------------------
#                  Function Call Profile Report
#----------------------------------------------------------------

#function                 ncalls      ms/call  totalselfms    totalsecs Function File
fooE                           1       0.0000       0.0000       0.0000       0       0 /home/joerg/prof-x.sl
barE                           1       0.0000       0.0000       0.0000       0       0 /home/joerg/prof-x.sl

After an Error the profiler does something wrong.

% jed --version          
jed version: 0.99.19-95/Unix
 Compiled with GNU C 4.1
S-Lang version: pre2.1.1-10
*** Compiled against S-Lang 20007 but linked to 20101

jed compile-time options:
 +LINE_ATTRIBUTES +BUFFER_LOCAL_VARS +SAVE_NARROW +TTY_MENUS
 +EMACS_LOCKING +MULTICLICK +SUBPROCESSES +DFA_SYNTAX +ABBREVS
 +COLOR_COLUMNS +LINE_MARKS +GPM_MOUSE +IMPORT

Using JED_ROOT=/usr/share/jed

Bye, Jörg.
-- 
Ein Narr, er sieht die Weisheit nicht,
selbst wenn sie närrisch zu ihm spricht.