Martin Kersten wrote:
> Update of /cvsroot/monetdb/MonetDB5/src/optimizer
> In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv21452
>
> Modified Files:
> Makefile.ag opt_prelude.mx
> Added Files:
> opt_history.mx
> Log Message:
> include the SQL history code optimizer
>
>
> U opt_prelude.mx
> --- NEW FILE: opt_history.mx ---
...............
>
> static int
> OPThistoryImplementation(Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr
> pci)
> {
> int i, limit,slimit;
> InstrPtr p=0, *old= mb->stmt, q,r;
> int qid, argc, elaps, inblock, oublock, arg, ctime;
You need to initialize it before you use it....
qid = 0 ?
Regards,
Romulo
> int returnseen=0;
>
>
> (void) pci;
> (void) stk; /* to fool compilers */
>
> #ifdef _DEBUG_OPT_QUERYHISTORY_
> stream_printf(cntxt->fdout,"ENTERING TRACE CODE \n");
> printFunction(cntxt->fdout,mb,0,LIST_MAL_ALL);
> #else
> (void) cntxt;
> #endif
>
> limit= mb->stop;
> slimit= mb->ssize;
> newMalBlkStmt(mb, mb->ssize+20); /* a new statement stack */
>
> pushInstruction(mb, old[0]);
> /* collect the statistics */
> @:initCounters@
>
> for (i = 1; i < limit; i++) {
> p= old[i];
>
> if ( p->token== ENDsymbol || p->barrier == RETURNsymbol ||
> p->barrier == YIELDsymbol){
> if (returnseen && p->token == ENDsymbol) {
> pushInstruction(mb,p);
> continue;
> }
> returnseen++;
> q = newStmt(mb,"alarm","usec");
> setVarType(mb,getArg(q,0), TYPE_lng);
> r = newStmt(mb,"calc","-");
> r = pushArgument(mb,r, getArg(q,0));
> r = pushArgument(mb,r, elaps);
> elaps= getArg(r,0);
>
> q = newStmt(mb,"bbp","getDiskReads");
> setVarType(mb,getArg(q,0), TYPE_lng);
> r = newStmt(mb,"calc","-");
> r = pushArgument(mb,r, getArg(q,0));
> r = pushArgument(mb,r, inblock);
> inblock= getArg(r,0);
>
> q = newStmt(mb,"bbp","getDiskWrites");
> setVarType(mb,getArg(q,0), TYPE_lng);
> r = newStmt(mb,"calc","-");
> r = pushArgument(mb,r, getArg(q,0));
> r = pushArgument(mb,r, oublock);
> oublock= getArg(r,0);
>
> /* prepare the call to the history manager */
> q = newStmt(mb,"sql","argRecord");
> setVarType(mb,getArg(q,0), TYPE_str);
> for ( argc=0; argc < old[0]->argc; argc++)
> q = pushArgument(mb, q, getArg(old[0],argc));
>
> arg= getArg(q,0);
>
> q = newStmt(mb,"user","keepcall");
> q = pushInt(mb, q, qid); /* query identifier */
> q = pushArgument(mb, q, ctime); /* arguments */
> q = pushArgument(mb, q, arg); /* arguments */
> q = pushArgument(mb, q, elaps); /* elaps */
> q = pushArgument(mb, q, inblock);/* inblock */
> q = pushArgument(mb, q, oublock);/* oublock */
> }
>
> pushInstruction(mb,p);
> if (p->barrier == YIELDsymbol){
> /* the factory yield may return */
> @:initCounters@
> }
> }
>
> #ifdef _DEBUG_OPT_QUERYHISTORY_
> stream_printf(cntxt->fdout,"LEAVING QUERYHISTORY CODE INJECTION\n");
> printFunction(cntxt->fdout,mb,LIST_MAL_ALL);
> #endif
> for( ; i<slimit; i++)
> if(old[i])
> freeInstruction(old[i]);
> GDKfree(old);
> return 1;
> }
> @include optimizerWrapper.mx
> @h
> @:exportOptimizer(history)@
> #endif
> @c
> #include "opt_statistics.h"
> @:wrapOptimizer(history,OPT_CHECK_ALL)@
> @}
>
>
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
> Build the coolest Linux based applications with Moblin SDK & win great prizes
> Grand prize is a trip for two to an Open Source event anywhere in the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/
> _______________________________________________
> Monetdb-checkins mailing list
> [EMAIL PROTECTED]
> https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/
_______________________________________________
Monetdb-developers mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-developers
