[M3commit] CVS Update: cm3

[Jay K]

===================================================================
RCS file: /usr/cvs/cm3/m3-comm/tcp/src/POSIX/TCPExtras.m3,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 TCPExtras.m3
--- TCPExtras.m3    13 Jan 2001 14:15:14 -0000    1.1.1.1
+++ TCPExtras.m3    26 Jun 2010 13:13:58 -0000
@@ -9,7 +9,7 @@
 PROCEDURE LocalEndpoint (conn: TCP.T): IP.Endpoint RAISES {IP.Error} =
   VAR
     addr : Uin.struct_sockaddr_in;
-    len  : Ctypes.int := BYTESIZE (addr);
+    len  : Usocket.socklen_t := BYTESIZE (addr);
     ep   : IP.Endpoint;
   BEGIN
     LOCK conn DO
Index: TCPPeer.m3
===================================================================
RCS file: /usr/cvs/cm3/m3-comm/tcp/src/POSIX/TCPPeer.m3,v
retrieving revision 1.1.1.1
diff -u -r1.1.1.1 TCPPeer.m3
--- TCPPeer.m3    13 Jan 2001 14:15:14 -0000    1.1.1.1
+++ TCPPeer.m3    26 Jun 2010 13:13:58 -0000
@@ -45,7 +45,7 @@
 
 PROCEDURE GetSockAddr (channel: TCP.T;  VAR(*OUT*) addr: Addr)
   RAISES {IP.Error} =
-  VAR len: Ctypes.int := BYTESIZE (addr);
+  VAR len: Usocket.socklen_t := BYTESIZE (addr);
   BEGIN
     LOCK channel DO
       IF (channel.closed) THEN IPError.Raise (TCP.Closed); END;


----------------------------------------
> Date: Sat, 26 Jun 2010 15:15:39 +0000
> To: m3commit at elegosoft.com
> From: jkrell at elego.de
> Subject: [M3commit] CVS Update: cm3
>
> CVSROOT: /usr/cvs
> Changes by: jkrell at birch. 10/06/26 15:15:39
>
> Modified files:
> cm3/m3-comm/tcp/src/POSIX/: TCPPeer.m3 TCPExtras.m3
>
> Log message:
> fix memory corrupting bug that I probably introduced, 64bit only, found by -new_adr int to socklen_t
>