* dln.c (init_funcname): get rid of gcc-3 -O3 warning.

* eval.c (copy_node_scope): ditto.

* error.c (err_snprintf): ditto.

* file.c (rb_file_s_chmod): ditto.

* hash.c (delete_if_i, each_value_i, each_key_i, each_pair_i,
  envix): ditto.

* io.c (rb_sysopen, rb_file_sysopen_internal): ditto.

* process.c (security): ditto.

* ext/socket/socket.c (tcp_s_gethostbyname, ip_s_getaddress):
  ditto.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_6@3261 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

ChangeLog

@@ -1,3 +1,23 @@
+Wed Jan 01 02:22:20 2003  Nobuyoshi Nakada  <nobu.nokada@softhome.net>
+
+	* dln.c (init_funcname): get rid of gcc-3 -O3 warning.
+
+	* eval.c (copy_node_scope): ditto.
+
+	* error.c (err_snprintf): ditto.
+
+	* file.c (rb_file_s_chmod): ditto.
+
+	* hash.c (delete_if_i, each_value_i, each_key_i, each_pair_i,
+	  envix): ditto.
+
+	* io.c (rb_sysopen, rb_file_sysopen_internal): ditto.
+
+	* process.c (security): ditto.
+
+	* ext/socket/socket.c (tcp_s_gethostbyname, ip_s_getaddress):
+	  ditto.
+
 Tue Dec 31 20:23:25 2002  Akinori MUSHA  <knu@iDaemons.org>
 
 	* configure.in: Improve OpenBSD support. [obtained from: OpenBSD

dln.c

@@ -97,16 +97,17 @@ int eaccess();
 static void
 init_funcname(buf, file)
     char *buf;
-    char *file;
+    const char *file;
 {
-    char *p, *slash;
+    char *p;
+    const char *slash;
 
     /* Load the file as an object one */
-    for (p = file, slash = p-1; *p; p++) /* Find position of last '/' */
+    for (slash = file-1; *file; file++) /* Find position of last '/' */
 #ifdef __MACOS__
-	if (*p == ':') slash = p;
+	if (*file == ':') slash = file;
 #else
-	if (*p == '/') slash = p;
+	if (*file == '/') slash = file;
 #endif
 
     snprintf(buf, MAXPATHLEN, FUNCNAME_PATTERN, slash + 1);

error.c

@@ -35,7 +35,8 @@ int ruby_nerrs;
 
 static void
 err_snprintf(buf, len, fmt, args)
-    char *buf, *fmt;
+    char *buf;
+    const char *fmt;
     int len;
     va_list args;
 {

eval.c

@@ -1643,7 +1643,7 @@ rb_mod_alias_method(mod, newname, oldname)
 static NODE*
 copy_node_scope(node, rval)
     NODE *node;
-    VALUE rval;
+    NODE *rval;
 {
     NODE *copy = rb_node_newnode(NODE_SCOPE,0,rval,node->nd_next);
 

ext/socket/socket.c

@@ -957,7 +957,7 @@ tcp_s_gethostbyname(obj, host)
 	sin->sin_addr.s_addr = htonl(i);
     }
     else {
-	setipaddr(host, &addr);
+	setipaddr(host, (struct sockaddr *)&addr);
     }
     switch (addr.ss_family) {
     case AF_INET:
@@ -1221,7 +1221,7 @@ ip_s_getaddress(obj, host)
 {
     struct sockaddr_storage addr;
 
-    setipaddr(host, &addr);
+    setipaddr(host, (struct sockaddr *)&addr);
     return mkipaddr((struct sockaddr *)&addr);
 }
 

file.c

@@ -935,7 +935,7 @@ rb_file_s_chmod(argc, argv)
     rb_scan_args(argc, argv, "1*", &vmode, &rest);
     mode = NUM2INT(vmode);
 
-    n = apply2files(chmod_internal, rest, mode);
+    n = apply2files(chmod_internal, rest, (void *)(long)mode);
     return INT2FIX(n);
 }
 

hash.c

@@ -444,7 +444,7 @@ rb_hash_shift(hash)
     return rb_assoc_new(var.key, var.val);
 }
 
-static int
+static enum st_retval
 delete_if_i(key, value)
     VALUE key, value;
 {
@@ -549,7 +549,7 @@ rb_hash_empty_p(hash)
     return Qfalse;
 }
 
-static int
+static enum st_retval
 each_value_i(key, value)
     VALUE key, value;
 {
@@ -566,7 +566,7 @@ rb_hash_each_value(hash)
     return hash;
 }
 
-static int
+static enum st_retval
 each_key_i(key, value)
     VALUE key, value;
 {
@@ -583,7 +583,7 @@ rb_hash_each_key(hash)
     return hash;
 }
 
-static int
+static enum st_retval
 each_pair_i(key, value)
     VALUE key, value;
 {
@@ -982,7 +982,7 @@ rb_env_path_tainted()
 
 static int
 envix(nam)
-char *nam;
+const char *nam;
 {
     register int i, len = strlen(nam);
     char **env;

io.c

@@ -1328,7 +1328,7 @@ rb_io_flags_mode(flags)
 
 static int
 rb_sysopen(fname, flag, mode)
-    char *fname;
+    const char *fname;
     int flag;
     unsigned int mode;
 {
@@ -1427,7 +1427,7 @@ rb_file_open(fname, mode)
 static VALUE
 rb_file_sysopen_internal(io, fname, flags, mode)
     VALUE io;
-    char *fname;
+    const char *fname;
     int flags, mode;
 {
     OpenFile *fptr;

process.c

@@ -247,7 +247,7 @@ extern char *dln_find_exe();
 
 static void
 security(str)
-    char *str;
+    const char *str;
 {
     if (rb_safe_level() > 0) {
 	if (rb_env_path_tainted()) {