Update of /cvsroot/monetdb/MonetDB5/src/modules/mal
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv29161
Modified Files:
mal_init.mx mdb.mx
Log Message:
Debugging factories call for additional functionalities.
mdb.setTrace(nme:str)
produces the callstrings for a specific variable.
Index: mal_init.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/mal/mal_init.mx,v
retrieving revision 1.119
retrieving revision 1.120
diff -u -d -r1.119 -r1.120
--- mal_init.mx 20 Aug 2007 21:38:48 -0000 1.119
+++ mal_init.mx 14 Sep 2007 07:40:45 -0000 1.120
@@ -195,6 +195,7 @@
include opt_singleton;
include opt_strengthReduction;
include opt_statistics;
+include opt_trace;
include chopper;
Index: mdb.mx
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/src/modules/mal/mdb.mx,v
retrieving revision 1.61
retrieving revision 1.62
diff -u -d -r1.61 -r1.62
--- mdb.mx 16 Aug 2007 07:01:57 -0000 1.61
+++ mdb.mx 14 Sep 2007 07:40:45 -0000 1.62
@@ -69,6 +69,10 @@
address MDBsetTrace
comment "Turn on/off tracing of current routine";
+pattern setTrace(b:str):void
+address MDBsetVarTrace
+comment "Turn on/off tracing of a variable ";
+
pattern setCatch(b:bit):void
address MDBsetCatch
comment "Turn on/off catching exceptions";
@@ -205,6 +209,7 @@
mdb_export str MDBstop(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
mdb_export str MDBinspect(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
mdb_export str MDBsetTrace(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
+mdb_export str MDBsetVarTrace(MalBlkPtr mb, MalStkPtr stk, InstrPtr p);
mdb_export str MDBgetDebug(int *ret);
mdb_export str MDBsetDebug(int *ret, int *flg);
mdb_export str MDBsetDebugStr(int *ret, str *nme);
@@ -343,6 +348,16 @@
MDBtraceFlag(MCgetClient(), stk, (b? (int) 't':0));
return MAL_SUCCEED;
}
+str
+MDBsetVarTrace(MalBlkPtr mb, MalStkPtr stk, InstrPtr p)
+{
+ str v;
+ v = *(str *) getArgReference(stk, p, 1);
+ mdbSetBreakRequest(MCgetClient(), mb, v, 't');
+ stk->cmd = 'c';
+ MCgetClient()->itrace = 'c';
+ return MAL_SUCCEED;
+}
str
MDBgetDebug(int *ret)
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
