MonetDB: mutation - Mutation of expensive operations only.

[Martin Kersten]

Changeset: 6328f76f2428 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=6328f76f2428
Modified Files:
        monetdb5/scheduler/mut_policy.c
        monetdb5/scheduler/mut_policy.h
        monetdb5/scheduler/run_mutation.c
Branch: mutation
Log Message:

Mutation of expensive operations only.


diffs (44 lines):

diff --git a/monetdb5/scheduler/mut_policy.c b/monetdb5/scheduler/mut_policy.c
--- a/monetdb5/scheduler/mut_policy.c
+++ b/monetdb5/scheduler/mut_policy.c
@@ -30,7 +30,6 @@
 #include "opt_prelude.h"
 #include "mut_policy.h"
 
-
 /*
  * For the time being we focus on a limited set op MAL instructions.
  */
@@ -64,6 +63,8 @@ MUTpolicy(Client cntxt, Mutant m)
                        continue;       // ignore block structures
                if ( !mutationCandidate(src, p))
                        continue;
+               if ( src->profiler[i].ticks/src->calls <= MUT_THRESHOLD)
+                       continue;
                DEBUG_MUTATION
                        mnstr_printf(cntxt->fdout,"#mutation candidate %d cost 
"LLFMT"\n", i, src->profiler[i].ticks/src->calls);
 
diff --git a/monetdb5/scheduler/mut_policy.h b/monetdb5/scheduler/mut_policy.h
--- a/monetdb5/scheduler/mut_policy.h
+++ b/monetdb5/scheduler/mut_policy.h
@@ -25,6 +25,8 @@
 #include "mal_client.h"
 #include "run_mutation.h"
 
+#define MUT_THRESHOLD 0
+
 run_mutation_export str MUTpolicy(Client cntxt, Mutant m);
 #endif /* _MUT_POLICY_ */
 
diff --git a/monetdb5/scheduler/run_mutation.c 
b/monetdb5/scheduler/run_mutation.c
--- a/monetdb5/scheduler/run_mutation.c
+++ b/monetdb5/scheduler/run_mutation.c
@@ -75,7 +75,7 @@ RUNmutationInternal(Client cntxt, MalStk
        src = s->def;
 
        // if called the first time, just execute the call
-       if ( src->calls == 0){
+       if ( src->calls == 0 || src->runtime == 0){
                initProfiler(src);
                setFilterAll();
                mutant = (Mutant) GDKzalloc(sizeof(struct MUTANT));
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list