Massive tidy up

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

Testing/client.m

@@ -175,6 +175,21 @@ printf("oneway %d\n", _F_ONEWAY);
       printf("%s - %s\n", [k cString], [[v description] cString]);
     }
 
+  {
+    NSDate	*d = [NSDate date];
+
+    [NSConnection setDebug: 0];
+    [NSDistantObject setDebug: 0];
+    [NSPort setDebug: 0];
+    for (j = 0; j < 10000; j++)
+      {
+	[p echoObject: localObj];
+      }
+      
+    NSLog(@"Delay is %f", [d timeIntervalSinceNow]);
+exit(0);
+  }
+
   [arp release];
   arp = [NSAutoreleasePool new];
   printf("%d\n", [c retainCount]);

Testing/server.h

@@ -51,6 +51,7 @@ struct myarray {
 : (int)i7 : (int)i8 : (int)i9 : (int)i10 : (int)i11 : (int)i12;
 - (float) returnFloat;
 - (double) returnDouble;
+- (id) echoObject: (id)obj;
 @end
 
 #if NeXT_runtime

Testing/server.m

@@ -79,6 +79,16 @@
   return self;
 }
 
+- (id) echoObject: (id)obj
+{
+  static	BOOL	debugging = YES;
+
+  if (debugging)
+    {
+      [BinaryCStream setDebugging:NO];
+    }
+  return obj;
+}
 - (void) outputStats:obj
 {
   id	c = [obj connectionForProxy];