Quick hack to fix busy wait in run loop

git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@13228 72102866-910b-0410-8b05-ffd578937521

ChangeLog

@@ -1,3 +1,8 @@
+2002-03-25  Richard Frith-Macdonald <rfm@gnu.org>
+
+	* Source/NSTask.m: GSCheckTasks() return NO under MINGW -
+	temporary hack to avoid busy wait in run loop.
+
 2002-03-22  Richard Frith-Macdonald <rfm@gnu.org>
 
 	* SSL/GNUmakefile: Remove -lobjc and -lgnustep-base from bundle

Source/NSRunLoop.m

@@ -908,6 +908,8 @@ if (0) {
     }
   else 
     {
+      timeout.tv_sec = -1;
+      timeout.tv_usec = -1;
       select_timeout = NULL;
     }
 
@@ -1018,6 +1020,8 @@ if (0) {
       select_timeout = &timeout;
     }
 
+  // NSDebugMLLog(@"NSRunLoop", @"select timeout %d,%d", timeout.tv_sec, timeout.tv_usec);
+
   select_return = select (fdEnd, &read_fds, &write_fds,
     &exception_fds, select_timeout);
 

Source/NSTask.m

@@ -906,7 +906,7 @@ BOOL
 GSCheckTasks()
 {
   /* FIXME: Implement */
-  return YES;
+  return NO;
 }
 
 - (void) gcFinalize

Testing/client.m

@@ -87,7 +87,7 @@ printf("oneway %d\n", _F_ONEWAY);
     }
   else
     p = [NSConnection rootProxyForConnectionWithRegisteredName:@"test2server" 
-		    host:nil];
+		    host: @"*"];
   c = [p connectionForProxy];
   [c setDelegate:auth];
   [c setRequestTimeout:180.0];

Testing/nsconnection_server.m

@@ -457,8 +457,10 @@ int main(int argc, char *argv[], char **env)
 	exit(0);
 	break;
       default:
+#if 0
 	usage(argv[0]);
 	exit(1);
+#endif
 	break;
       }
 

Tools/gdnc.m

@@ -855,7 +855,9 @@ main(int argc, char** argv, char** env)
 
   if (server != nil)
     {
+      CREATE_AUTORELEASE_POOL(pool);
       [[NSRunLoop currentRunLoop] run];
+      RELEASE(pool);
     }
   exit(0);
 }

Tools/gdomap.c

@@ -4240,7 +4240,7 @@ printf(
 		fprintf(stderr, "Registration will take place locally.\n");
 	      }
 	    doregister(optarg, port, ptype);
-	    return 0;
+	    exit(0);
 
 	  case 'T':
 	    if (strcmp(optarg, "tcp_gdo") == 0)