Changeset: 84fe1683258e for MonetDB URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=84fe1683258e Modified Files: monetdb5/modules/mal/profiler.c monetdb5/modules/mal/profiler.mal sql/scripts/16_tracelog.sql sql/scripts/46_profiler.sql Branch: profiler Log Message:
Add missing implementation of setpoolsize diffs (77 lines): diff --git a/monetdb5/modules/mal/profiler.c b/monetdb5/modules/mal/profiler.c --- a/monetdb5/modules/mal/profiler.c +++ b/monetdb5/modules/mal/profiler.c @@ -53,6 +53,17 @@ CMDcloseProfilerStream(void *res) } str +CMDsetProfilerPoolSize (Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr pci) +{ + int poolsize = *getArgReference_int(stk,pci,1); + (void) mb; /* fool compiler */ + (void) cntxt; + if( poolsize < 0) + throw(MAL,"profiler","Trace pool size should be positive"); + return setprofilerpoolsize(poolsize); +} + +str CMDsetProfilerStream (Client cntxt, MalBlkPtr mb, MalStkPtr stk, InstrPtr pci) { str *host = getArgReference_str(stk,pci,1); diff --git a/monetdb5/modules/mal/profiler.mal b/monetdb5/modules/mal/profiler.mal --- a/monetdb5/modules/mal/profiler.mal +++ b/monetdb5/modules/mal/profiler.mal @@ -31,7 +31,7 @@ address CMDclearTrace comment "Clear the sql profiling "; pattern setpoolsize(pool:int) -address setProfilerPoolSize +address CMDsetProfilerPoolSize comment "Re-initialize the profiler pool"; command setheartbeat(b:int):void @@ -64,7 +64,7 @@ address CMDgetTrace comment "Get the trace details of a specific event"; command cleanup():void -address cleanupTraces +address CMDcleanupTraces comment "Remove the temporary tables for profiling"; command getDiskReads():lng diff --git a/sql/scripts/16_tracelog.sql b/sql/scripts/16_tracelog.sql --- a/sql/scripts/16_tracelog.sql +++ b/sql/scripts/16_tracelog.sql @@ -25,5 +25,5 @@ create function sys.tracelog() create view sys.tracelog as select * from sys.tracelog(); -create procedure profiler_openstream(host string, port int) external name profiler."openStream"; -create procedure profiler_stethoscope(ticks int) external name profiler.stethoscope; +--create procedure profiler_openstream(host string, port int) external name profiler."openStream"; +--create procedure profiler_stethoscope(ticks int) external name profiler.stethoscope; diff --git a/sql/scripts/46_profiler.sql b/sql/scripts/46_profiler.sql --- a/sql/scripts/46_profiler.sql +++ b/sql/scripts/46_profiler.sql @@ -4,13 +4,13 @@ -- -- Copyright 2008-2015 MonetDB B.V. --- start/stop collecting mdbs_profiler traces in profiler_logs pool with specific heartbeat -create schema mdbs_profiler; +-- start/stop collecting MDBS profiler traces in a profiler_logs pool with a specific heartbeat +create schema profiler; -create procedure mdbs_profiler.start() external name profiler.start; -create procedure mdbs_profiler.stop() external name profiler.stop; +create procedure profiler.start() external name profiler."start"; +create procedure profiler.stop() external name profiler.stop; -create procedure mdbs_profiler.setheartbeat(beat int) external name profiler.setheartbeat; -create procedure mdbs_profiler.setpoolsize(poolsize int) external name profiler.setpoolsize; +create procedure profiler.setheartbeat(beat int) external name profiler.setheartbeat; +create procedure profiler.setpoolsize(poolsize int) external name profiler.setpoolsize; -create procedure mdbs_profiler.setstream(host string, port int) external name profiler.setstream; +create procedure profiler.setstream(host string, port int) external name profiler.setstream; _______________________________________________ checkin-list mailing list checkin-list@monetdb.org https://www.monetdb.org/mailman/listinfo/checkin-list