Changeset: 2f1df6e85018 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=2f1df6e85018
Modified Files:
monetdb5/mal/mal_function.c
Branch: default
Log Message:
Limit extra debugging information.
diffs (30 lines):
diff --git a/monetdb5/mal/mal_function.c b/monetdb5/mal/mal_function.c
--- a/monetdb5/mal/mal_function.c
+++ b/monetdb5/mal/mal_function.c
@@ -482,14 +482,18 @@ debugFunction(stream *fd, MalBlkPtr mb,
for (i = first; i < first +step && i < mb->stop; i++){
ps = instruction2str(mb, stk, (p=getInstrPtr(mb, i)), flg);
if (ps) {
- mnstr_printf(fd,"%-40s\t#[%d] %s ",ps, i, (p->blk &&
p->blk->binding? p->blk->binding:""));
- for(j =0; j < p->retc; j++)
- mnstr_printf(fd,"%d ",getArg(p,j));
- if( p->argc)
- mnstr_printf(fd,"<- ");
- for(; j < p->argc; j++)
- mnstr_printf(fd,"%d ",getArg(p,j));
- mnstr_printf(fd,"\n");
+ if (p->token == REMsymbol)
+ mnstr_printf(fd,"%-40s\n",ps);
+ else {
+ mnstr_printf(fd,"%-40s\t#[%d] %s ",ps, i,
(p->blk && p->blk->binding? p->blk->binding:""));
+ for(j =0; j < p->retc; j++)
+ mnstr_printf(fd,"%d ",getArg(p,j));
+ if( p->argc - p->retc > 0)
+ mnstr_printf(fd,"<- ");
+ for(; j < p->argc; j++)
+ mnstr_printf(fd,"%d ",getArg(p,j));
+ mnstr_printf(fd,"\n");
+ }
GDKfree(ps);
}
}
_______________________________________________
checkin-list mailing list
checkin-list@monetdb.org
https://www.monetdb.org/mailman/listinfo/checkin-list
