Update of /cvsroot/monetdb/pathfinder/compiler/mil
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv18393
Modified Files:
Tag: XQuery_0-16
milprint_summer.c
Log Message:
- XRPC doesn't need to map global variables
- functions of the type docmgmt are also updating functions.
Index: milprint_summer.c
===================================================================
RCS file: /cvsroot/monetdb/pathfinder/compiler/mil/milprint_summer.c,v
retrieving revision 1.318.2.36
retrieving revision 1.318.2.37
diff -u -d -r1.318.2.36 -r1.318.2.37
--- milprint_summer.c 2 May 2007 22:01:26 -0000 1.318.2.36
+++ milprint_summer.c 1 Jun 2007 16:18:27 -0000 1.318.2.37
@@ -6229,7 +6229,7 @@
static void
translateXRPCCall (opt_t *f, int cur_level, int counter, PFcnode_t *xrpc)
{
- int i = 0, rc = NORMAL, updCall = PFqueryType(xrpc) == 1 ? 1 : 0;
+ int i = 0, rc = NORMAL, updCall = PFqueryType(xrpc) == 0 ? 0 : 1;
PFcnode_t *dsts = L(xrpc);
PFcnode_t *funApp = R(xrpc);
PFfun_t *fun = NULL;
@@ -6314,33 +6314,6 @@
}
milprintf(f, " # end of add arg in XRPC function call\n");
- /* map needed global variables into the function */
- milprintf(f, " var expOid;\n");
- getExpanded (f,
- /* we don't want to get the variables from
- the surrounding scope like for but from the current */
- cur_level+1, fun->fid);
- milprintf(f,
- " var vid := expOid.leftfetchjoin(v_vid%03u);\n"
- " iter := expOid.leftfetchjoin(v_iter%03u);\n"
- " item := expOid.leftfetchjoin(v_item%03u);\n"
- " kind := expOid.leftfetchjoin(v_kind%03u);\n"
- " ipik := iter;\n"
- " fun_vid%03u := fun_vid%03u.append(vid);\n"
- " fun_iter%03u := fun_iter%03u.append(iter);\n"
- " fun_item%03u := fun_item%03u.append(item);\n"
- " fun_kind%03u := fun_kind%03u.append(kind);\n"
- " expOid := nil;\n"
- " vid := nil;\n"
- " ipik := nil;\n"
- " iter := nil;\n"
- " pos := nil;\n"
- " item := nil;\n"
- " kind := nil;\n",
- cur_level, cur_level, cur_level, cur_level,
- counter, counter, counter, counter,
- counter, counter, counter, counter);
-
milprintf(f,
" fun_vid%03u := fun_vid%03u.tmark([EMAIL PROTECTED]);\n"
" fun_iter%03u := fun_iter%03u.tmark([EMAIL PROTECTED]);\n"
-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Monetdb-pf-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-pf-checkins
