Update of /cvsroot/monetdb/sql/src/backends/monet5
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv23684
Modified Files:
sql_gencode.mx
Log Message:
Inline this support MAL function to allow the deadcode analyser
to detect use of the result. (All sql.* functions are considered
having side-effects)
Index: sql_gencode.mx
===================================================================
RCS file: /cvsroot/monetdb/sql/src/backends/monet5/sql_gencode.mx,v
retrieving revision 1.245
retrieving revision 1.246
diff -u -d -r1.245 -r1.246
--- sql_gencode.mx 29 Jun 2007 11:28:46 -0000 1.245
+++ sql_gencode.mx 5 Aug 2007 19:35:33 -0000 1.246
@@ -870,9 +870,20 @@
}
break;
case st_semijoin:{
- if (s->op1.stval->h && s->op1.stval->h ==
s->op2.stval->h)
- dump_2(sql, mb, s, sqlRef, "sql_semijoin");
- else
+ if (s->op1.stval->h && s->op1.stval->h ==
s->op2.stval->h){
+ /* dump_2(sql, mb, s, sqlRef, "sql_semijoin");*/
+ InstrPtr mp,mq;
+ int o1 = _dumpstmt(sql, mb, s->op1.stval);
+ int o2 = _dumpstmt(sql, mb, s->op2.stval);
+ @:SQLprelude@
+ mp = newStmt(mb, batRef, mirrorRef);
+ pushArgument(mb,mp,o2);
+ mq = newStmt(mb, algebraRef, joinRef);
+ pushArgument(mb,mq,getArg(mp,0));
+ pushArgument(mb,mq,o1);
+ s->nr = getDestVar(mq);
+ @:SQLpostlude@
+ } else
dump_2(sql, mb, s, algebraRef, "semijoin");
}
break;
-------------------------------------------------------------------------
This SF.net email is sponsored by: Splunk Inc.
Still grepping through log files to find problems? Stop.
Now Search log events and configuration files using AJAX and a browser.
Download your FREE copy of Splunk now >> http://get.splunk.com/
_______________________________________________
Monetdb-sql-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins
