MonetDB: default - Only register succesful functions locally

[Martin Kersten]

Changeset: 6f5f6d3592c9 for MonetDB
URL: http://dev.monetdb.org/hg/MonetDB?cmd=changeset;node=6f5f6d3592c9
Modified Files:
        monetdb5/scheduler/srvpool.c
Branch: default
Log Message:

Only register succesful functions locally


diffs (29 lines):

diff --git a/monetdb5/scheduler/srvpool.c b/monetdb5/scheduler/srvpool.c
--- a/monetdb5/scheduler/srvpool.c
+++ b/monetdb5/scheduler/srvpool.c
@@ -355,13 +355,21 @@ SRVPOOLregisterInternal(Client cntxt, st
                if ( servers[srv].conn ) {
                        if ( srvtop > 1) /* register remotely */
                                msg = RMTregisterInternal(cntxt, 
servers[srv].conn, userRef, fname);
+#ifdef DEBUG_RUN_SRVPOOL
+                               if ( msg) {
+                                       mnstr_printf(cntxt->fdout,"#Failed to 
register\n");
+                                       printFunction(cntxt->fdout, 
findSymbol(cntxt->nspace, userRef,putName(fname,strlen(fname)))->def, 0, 
LIST_MAL_DEBUG);
+                               }
+#endif
                } else
                        throw(MAL,"srvpool.register","Site not reachable, 
connection missing");
 
-               r= (Registry) GDKzalloc(sizeof(struct REGMAL));
-               r->fcn = GDKstrdup(fname);
-               r->nxt = servers[srv].nxt;
-               servers[srv].nxt = r;
+               if ( msg == MAL_SUCCEED) {
+                       r= (Registry) GDKzalloc(sizeof(struct REGMAL));
+                       r->fcn = GDKstrdup(fname);
+                       r->nxt = servers[srv].nxt;
+                       servers[srv].nxt = r;
+               }
        }
        return msg;
 }
_______________________________________________
Checkin-list mailing list
Checkin-list@monetdb.org
http://mail.monetdb.org/mailman/listinfo/checkin-list