Update of /cvsroot/monetdb/sql/src/backends/monet5
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv26583

Modified Files:
      Tag: Nov2008
        merovingian.mx 
Log Message:
cut down on time syscalls

U merovingian.mx
Index: merovingian.mx
===================================================================
RCS file: /cvsroot/monetdb/sql/src/backends/monet5/merovingian.mx,v
retrieving revision 1.69.2.3
retrieving revision 1.69.2.4
diff -u -d -r1.69.2.3 -r1.69.2.4
--- merovingian.mx      28 Dec 2008 15:36:25 -0000      1.69.2.3
+++ merovingian.mx      28 Dec 2008 15:48:20 -0000      1.69.2.4
@@ -1421,6 +1421,7 @@
        struct sockaddr_in brdcst;
        int c;
        time_t deadline = 0;
+       time_t now = 0;
        int forceannc = 0;
        sabdb *orig;
        sabdb *stats;
@@ -1472,11 +1473,12 @@
 
        /* main loop */
        while (_keepListening == 1) {
+               now = time(NULL);
                /* do a round of announcements, we're ahead of the ttl because
                 * when we announce, we add 60 seconds to avoid a "gap" */
-               if (forceannc == 1 || deadline <= time(NULL)) {
+               if (forceannc == 1 || deadline <= now) {
                        /* set new deadline */
-                       deadline = time(NULL) + discoveryttl;
+                       deadline = now + discoveryttl;
                        forceannc = 0;
 
                        /* list all known databases */
@@ -1514,7 +1516,7 @@
                prv = NULL;
                rdb = _merovingian_remotedbs;
                while (rdb != NULL) {
-                       if (rdb->ttl <= time(NULL)) {
+                       if (rdb->ttl <= now) {
                                /* expired, let's remove */
                                if (prv == NULL) {
                                        _merovingian_remotedbs = rdb->next;


------------------------------------------------------------------------------
_______________________________________________
Monetdb-sql-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-sql-checkins

Reply via email to