Update of /cvsroot/monetdb/sql/src/backends/monet5
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv307

Modified Files:
        sql_scenario.mx 
Log Message:
fixed realtimes


U sql_scenario.mx
Index: sql_scenario.mx
===================================================================
RCS file: /cvsroot/monetdb/sql/src/backends/monet5/sql_scenario.mx,v
retrieving revision 1.301
retrieving revision 1.302
diff -u -d -r1.301 -r1.302
--- sql_scenario.mx     25 Mar 2008 15:56:56 -0000      1.301
+++ sql_scenario.mx     27 Mar 2008 14:06:48 -0000      1.302
@@ -1082,7 +1082,7 @@
                SQLsetTimer(c, FALSE);
 
        if (be->mvc->mode == m_profile ) {
-               be->mvc->Tparse = GDKusec() - be->mvc->Tparse;
+               be->mvc->Tparse = GDKusec() - be->mvc->Tstart;
                be->qry = sql_escape_str(QUERY(m->scanner));
        }
        scanner_query_processed(&(m->scanner));
@@ -1242,7 +1242,7 @@
        (void)ret;
        c->mode = mode;
        c->explain = explain;
-       be->mvc->Tparse= be->mvc->Toptimize = be->mvc->Tschedule = 
be->mvc->Texec = 0;
+       be->mvc->Tstart =  be->mvc->Tparse = be->mvc->Toptimize = 
be->mvc->Tschedule = be->mvc->Texec = 0;
        return msg;
 }
 
@@ -1361,9 +1361,10 @@
        if (m->mode== m_profile) {
                int tcks_per_sec = sysconf(_SC_CLK_TCK);
                struct tms t1;
-               lng tot = be->mvc->Tparse; 
+               lng T1 = GDKusec();
+               lng tot = T1 - be->mvc->Tstart; 
 
-               tot += be->mvc->Texec = GDKusec() - T0;
+               be->mvc->Texec = T1 - T0;
 #ifdef HAVE_TIMES      
                times(&t1);
                stream_printf(
@@ -1374,7 +1375,7 @@
                        (lng) (t1.tms_stime - be->mvc->times.tms_stime),
                        tcks_per_sec);
 #endif 
-               msg = backend_profile(be, be->qry, 
be->mvc->Tparse-be->mvc->Toptimize, be->mvc->Toptimize, be->mvc->Texec, tot);
+               msg = backend_profile(be, be->qry, be->mvc->Tparse, 
be->mvc->Toptimize, be->mvc->Texec, tot);
                be->qry = NULL;
        }
 


-------------------------------------------------------------------------
Check out the new SourceForge.net Marketplace.
It's the best place to buy or sell services for
just about anything Open Source.
http://ad.doubleclick.net/clk;164216239;13503038;w?http://sf.net/marketplace
_______________________________________________
Monetdb-sql-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins

Reply via email to