MonetDB: Feb2013 - Force heartbeat event at end of function call

[Martin Kersten]

Changeset: fb13eaea78da for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=fb13eaea78da
Modified Files:
        monetdb5/mal/mal_profiler.c
Branch: Feb2013
Log Message:

Force heartbeat event at end of function call


diffs (21 lines):

diff --git a/monetdb5/mal/mal_profiler.c b/monetdb5/mal/mal_profiler.c
--- a/monetdb5/mal/mal_profiler.c
+++ b/monetdb5/mal/mal_profiler.c
@@ -193,6 +193,7 @@ static void logsent(int header, char *lo
 void
 profilerEvent(int idx, MalBlkPtr mb, MalStkPtr stk, int pc, int start)
 {
+       InstrPtr p;
        if (mb->profiler == NULL) return;
        if (profileCounter[PROFdot].status == 1 && start && pc == 0){
                if (mb->dotfile == 0){
@@ -203,6 +204,9 @@ profilerEvent(int idx, MalBlkPtr mb, Mal
        }
        if (profileCounter[PROFstart].status == 0 && start)
                return;
+       p = getInstrPtr(mb,pc);
+       if ( !start && p && p->token == ENDsymbol)
+               profilerHeartbeatEvent("ping");
        if (myname == 0)
                myname = putName("profiler", 8);
        if (getModuleId(getInstrPtr(mb, pc)) == myname)
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list