diff --git a/ChangeLog b/ChangeLog
index 2f79faa9a2..b35dd10a67 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Fri Aug  1 16:02:46 2003  Nobuyoshi Nakada  <nobu@ruby-lang.org>
+
+	* io.c (READ_DATA_PENDING_PTR): cast to get rid of warnings.
+
+	* ext/socket/socket.c (unix_send_io, unix_recv_io): ditto.
+
 Fri Aug  1 15:53:24 2003  NAKAMURA Usaku <usa@ruby-lang.org>
 
 	* win32/win32.c (isInternalCmd): shouldn't return if find end of str.
diff --git a/ext/socket/socket.c b/ext/socket/socket.c
index 590d2c31b3..13329eedcb 100644
--- a/ext/socket/socket.c
+++ b/ext/socket/socket.c
@@ -1565,6 +1565,7 @@ unix_send_io(sock, val)
     return Qnil;
 #else
     rb_notimplement();
+    return Qnil;		/* not reached */
 #endif
 }
 
@@ -1656,6 +1657,7 @@ unix_recv_io(argc, argv, sock)
     }
 #else
     rb_notimplement();
+    return Qnil;		/* not reached */
 #endif
 }
 
diff --git a/io.c b/io.c
index aba4dc22cd..536b8b2933 100644
--- a/io.c
+++ b/io.c
@@ -144,7 +144,7 @@ extern int ReadDataPending();
 
 #ifndef READ_DATA_PENDING_PTR
 # ifdef FILE_READPTR
-#  define READ_DATA_PENDING_PTR(fp) ((fp)->FILE_READPTR)
+#  define READ_DATA_PENDING_PTR(fp) ((char *)(fp)->FILE_READPTR)
 # endif
 #endif