Update of /cvsroot/monetdb/sql/src/backends/monet5
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv11871/src/backends/monet5
Modified Files:
sql_gencode.mx
Log Message:
only generate dummy return if last statement isn't a return
U sql_gencode.mx
Index: sql_gencode.mx
===================================================================
RCS file: /cvsroot/monetdb/sql/src/backends/monet5/sql_gencode.mx,v
retrieving revision 1.311
retrieving revision 1.312
diff -u -d -r1.311 -r1.312
--- sql_gencode.mx 27 Jan 2009 09:23:51 -0000 1.311
+++ sql_gencode.mx 27 Jan 2009 15:20:15 -0000 1.312
@@ -1888,7 +1888,8 @@
q = pushStr(mb, q, ""); /* warning */
}
/* generate a dummy return assignment for functions */
- if (getArgType(mb,getInstrPtr(mb,0),0) != TYPE_void) {
+ if (getArgType(mb,getInstrPtr(mb,0),0) != TYPE_void &&
+ getInstrPtr(mb,mb->stop-1)->barrier != RETURNsymbol) {
q = newAssignment(mb);
getArg(q,0) = getArg(getInstrPtr(mb,0),0);
q->barrier = RETURNsymbol;
------------------------------------------------------------------------------
This SF.net email is sponsored by:
SourcForge Community
SourceForge wants to tell your story.
http://p.sf.net/sfu/sf-spreadtheword
_______________________________________________
Monetdb-sql-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins
