[MLton-commit] r4502

[Stephen Weeks]

Renamed file statics to avoid spurious warnings when building a cross
runtime.

----------------------------------------------------------------------

U   mlton/branches/on-20050822-x86_64-branch/runtime/basis/Net/Socket/INetSock.c

----------------------------------------------------------------------

Modified: mlton/branches/on-20050822-x86_64-branch/runtime/basis/Net/Socket/INetSock.c
===================================================================
--- mlton/branches/on-20050822-x86_64-branch/runtime/basis/Net/Socket/INetSock.c	2006-05-09 02:47:07 UTC (rev 4501)
+++ mlton/branches/on-20050822-x86_64-branch/runtime/basis/Net/Socket/INetSock.c	2006-05-09 20:44:22 UTC (rev 4502)
@@ -11,21 +11,21 @@
   *((socklen_t*)addrlen) = sizeof(struct sockaddr_in);
 }
 
-static int port;
-static struct in_addr in_addr;
+static int fromAddr_port;
+static struct in_addr fromAddr_in_addr;
 
 void Socket_INetSock_fromAddr (Vector(Word8_t) addr) {
   struct sockaddr_in *sa = (struct sockaddr_in*)addr;
   
   assert(sa->sin_family == AF_INET);
-  port = sa->sin_port;
-  in_addr = sa->sin_addr;
+  fromAddr_port = sa->sin_port;
+  fromAddr_in_addr = sa->sin_addr;
 }
 
 C_Int_t Socket_INetSock_getPort (void) {
-  return port;
+  return fromAddr_port;
 }
 
 void Socket_INetSock_getInAddr (Array(Word8_t) addr) {
-  *(struct in_addr*)addr = in_addr;
+  *(struct in_addr*)addr = fromAddr_in_addr;
 }