MonetDB: default - Add debugging control

[mk]

Changeset: 1f7579df262a for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=1f7579df262a
Modified Files:
        MonetDB5/src/optimizer/opt_datacyclotron.mx
        MonetDB5/src/optimizer/opt_deadcode.mx
Branch: default
Log Message:

Add debugging control
Optimizers should be equiped with code to check entry/exit
code for debugging.


diffs (48 lines):

diff -r 34331aabb420 -r 1f7579df262a MonetDB5/src/optimizer/opt_datacyclotron.mx
--- a/MonetDB5/src/optimizer/opt_datacyclotron.mx       Tue Jul 13 14:26:40 
2010 +0200
+++ b/MonetDB5/src/optimizer/opt_datacyclotron.mx       Tue Jul 13 16:02:34 
2010 +0200
@@ -45,7 +45,7 @@
 #include "opt_support.h"
 #include "mal_interpreter.h"
 
-/*#define DEBUG_DATACYCLOTRON_OPT*/
+/* #define DEBUG_DATACYCLOTRON_OPT */
 #define BIND_DATACYCLOTRON_OPT
 
 #define SCHEMA_LENG     32 
@@ -231,6 +231,11 @@
        int *tpes= (int*) GDKmalloc((mb->vtop+1000) *sizeof(int));
 #endif
 
+#ifdef DEBUG_DATACYCLOTRON_OPT
+       stream_printf(cntxt->fdout,"ENTERING DATA CYCLOTRON \n");
+    printFunction(cntxt->fdout,mb,0,LIST_MAL_ALL);
+#endif
+
        newArg = GDKmalloc(sizeof(*newArg) * (mb->vtop+1000));
 
        if ( (used == NULL) && (newArg == NULL))
@@ -366,6 +371,11 @@
                
        }
 
+#ifdef DEBUG_DATACYCLOTRON_OPT
+       stream_printf(cntxt->fdout,"LEAVING DATA CYCLOTRON \n");
+       chkProgram(cntxt->nspace,mb);
+    printFunction(cntxt->fdout,mb,0,LIST_MAL_ALL);
+#endif
 #ifdef BIND_DATACYCLOTRON_OPT
        GDKfree(tpes);
 #endif
diff -r 34331aabb420 -r 1f7579df262a MonetDB5/src/optimizer/opt_deadcode.mx
--- a/MonetDB5/src/optimizer/opt_deadcode.mx    Tue Jul 13 14:26:40 2010 +0200
+++ b/MonetDB5/src/optimizer/opt_deadcode.mx    Tue Jul 13 16:02:34 2010 +0200
@@ -80,7 +80,7 @@
 #include "mal_instruction.h"
 #include "mal_function.h"
 
-/* #define DEBUG_OPT_DEAD      trace its behavior */
+/* #define DEBUG_OPT_DEAD       trace its behavior */
 
 @c
 #include "mal_config.h"
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list