List Info

Thread: Fix testsuite failure 117




Fix testsuite failure 117
country flaguser name
Switzerland
2008-01-18 09:19:03
This was visible on Michael Fellinger's machine.  Thanks to
him for 
providing me an account!

I'm reversing the previous attempted fix from the stable
branch because 
it's too intrusive.  I can always get it back later if it
turns out to 
be a real problem.

Paolo

diff --git a/packages/tcp/tcp.c b/packages/tcp/tcp.c
index c75157b..dee4ce9 100644
--- a/packages/tcp/tcp.c
+++ b/packages/tcp/tcp.c
 -211,7
+211,15  getAnyLocalAddress (char *name, char *whereToPut)
    struct hostent *hostEnt;

    hostEnt = gethostbyname (name);
-  memcpy (whereToPut, hostEnt->h_addr, 4);
+  if (hostEnt)
+    memcpy (whereToPut, hostEnt->h_addr, 4);
+  else
+    {
+      whereToPut[0] = 127;
+      whereToPut[1] = 0;
+      whereToPut[2] = 0;
+      whereToPut[3] = 1;
+    }
  }

  #define constantFunction(name, constant) 


_______________________________________________
help-smalltalk mailing list
help-smalltalkgnu.org

http://lists.gnu.org/mailman/listinfo/help-smalltalk

[1]

about | contact  Other archives ( Real Estate discussion Medical topics )