* array.c (ary_alloc), dir.c (dir_s_alloc), eval.c (thgroup_s_alloc),

file.c (rb_stat_s_alloc), hash.c (hash_alloc), io.c (io_alloc),
  object.c (rb_module_s_alloc, rb_class_allocate_instance),
  re.c (match_alloc, rb_reg_s_alloc), string.c (str_alloc),
  time.c (time_s_alloc), ext/digest/digest.c (rb_digest_base_alloc),
  ext/tcltklib/tcltklib.c (ip_alloc),
  ext/win32ole/win32ole.c (fole_s_allocate, fev_s_allocate)
  : add prototype to get rid of VC++ warnings.

* ext/sdbm/init.c (fsdbm_alloc): allocator takes only one argument.


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

ChangeLog

@@ -1,3 +1,16 @@
+Sun Dec 22 02:49:25 2002  NAKAMURA Usaku <usa@ruby-lang.org>
+
+	* array.c (ary_alloc), dir.c (dir_s_alloc), eval.c (thgroup_s_alloc),
+	  file.c (rb_stat_s_alloc), hash.c (hash_alloc), io.c (io_alloc),
+	  object.c (rb_module_s_alloc, rb_class_allocate_instance),
+	  re.c (match_alloc, rb_reg_s_alloc), string.c (str_alloc),
+	  time.c (time_s_alloc), ext/digest/digest.c (rb_digest_base_alloc),
+	  ext/tcltklib/tcltklib.c (ip_alloc),
+	  ext/win32ole/win32ole.c (fole_s_allocate, fev_s_allocate)
+	  : add prototype to get rid of VC++ warnings.
+
+	* ext/sdbm/init.c (fsdbm_alloc): allocator takes only one argument.
+
 Sun Dec 22 00:36:43 2002  WATANABE Hirofumi  <eban@ruby-lang.org>
 
 	* lib/mkmf.rb (create_makefile): accept pure ruby libraries.

array.c

@@ -86,6 +86,7 @@ rb_ary_frozen_p(ary)
     return Qfalse;
 }
 
+static VALUE ary_alloc _((VALUE));
 static VALUE
 ary_alloc(klass)
     VALUE klass;

dir.c

@@ -248,6 +248,7 @@ free_dir(dir)
 
 static VALUE dir_close _((VALUE));
 
+static VALUE dir_s_alloc _((VALUE));
 static VALUE
 dir_s_alloc(klass)
     VALUE klass;

eval.c

@@ -9408,6 +9408,7 @@ struct thgroup {
     int gid;
 };
 
+static VALUE thgroup_s_alloc _((VALUE));
 static VALUE
 thgroup_s_alloc(klass)
     VALUE klass;

ext/digest/digest.c

@@ -57,7 +57,8 @@ get_digest_base_metadata(klass)
 
     return algo;
 }
-	
+
+static VALUE rb_digest_base_alloc _((VALUE));
 static VALUE
 rb_digest_base_alloc(klass)
     VALUE klass;

ext/sdbm/init.c

@@ -56,10 +56,9 @@ fsdbm_close(obj)
     return Qnil;
 }
 
+static VALUE fsdbm_alloc _((VALUE));
 static VALUE
-fsdbm_alloc(argc, argv, klass)
-    int argc;
-    VALUE *argv;
+fsdbm_alloc(klass)
     VALUE klass;
 {
     return Data_Wrap_Struct(klass, 0, free_sdbm, 0);

ext/tcltklib/tcltklib.c

@@ -469,6 +469,7 @@ ip_free(ptr)
 }
 
 /* create and initialize interpreter */
+static VALUE ip_alloc _((VALUE));
 static VALUE
 ip_alloc(self)
     VALUE self;

ext/win32ole/win32ole.c

@@ -715,6 +715,7 @@ ole_set_member(self, dispatch)
     return self;
 }
 
+static VALUE fole_s_allocate _((VALUE));
 static VALUE
 fole_s_allocate(klass)
     VALUE klass;
@@ -5071,6 +5072,7 @@ ole_event_free(poleev)
     }
 }
 
+static VALUE fev_s_allocate _((VALUE));
 static VALUE
 fev_s_allocate(klass)
     VALUE klass;

file.c

@@ -1973,6 +1973,7 @@ rb_f_test(argc, argv)
     return Qnil;		/* not reached */
 }
 
+static VALUE rb_stat_s_alloc _((VALUE));
 static VALUE
 rb_stat_s_alloc(klass)
     VALUE klass;

hash.c

@@ -178,6 +178,7 @@ rb_hash_foreach(hash, func, farg)
     return rb_ensure(rb_hash_foreach_call, (VALUE)&arg, rb_hash_foreach_ensure, hash);
 }
 
+static VALUE hash_alloc _((VALUE));
 static VALUE
 hash_alloc(klass)
     VALUE klass;

io.c

@@ -275,6 +275,7 @@ ruby_dup(orig)
     return fd;
 }
 
+static VALUE io_alloc _((VALUE));
 static VALUE
 io_alloc(klass)
     VALUE klass;

object.c

@@ -684,6 +684,7 @@ rb_class_initialize(argc, argv, klass)
     return rb_mod_initialize(klass);
 }
 
+static VALUE rb_module_s_alloc _((VALUE));
 static VALUE
 rb_module_s_alloc(klass)
     VALUE klass;
@@ -724,6 +725,7 @@ rb_obj_alloc(klass)
     return obj;
 }
 
+static VALUE rb_class_allocate_instance _((VALUE));
 static VALUE
 rb_class_allocate_instance(klass)
     VALUE klass;

re.c

@@ -511,6 +511,7 @@ make_regexp(s, len, flags)
 
 static VALUE rb_cMatch;
 
+static VALUE match_alloc _((VALUE));
 static VALUE
 match_alloc(klass)
     VALUE klass;
@@ -1002,6 +1003,7 @@ rb_reg_initialize(obj, s, len, options)
     }
 }
 
+static VALUE rb_reg_s_alloc _((VALUE));
 static VALUE
 rb_reg_s_alloc(klass)
     VALUE klass;

string.c

@@ -36,6 +36,7 @@ VALUE rb_cString;
 
 VALUE rb_fs;
 
+static VALUE str_alloc _((VALUE));
 static VALUE
 str_alloc(klass)
     VALUE klass;

time.c

@@ -41,6 +41,7 @@ time_free(tobj)
     if (tobj) free(tobj);
 }
 
+static VALUE time_s_alloc _((VALUE));
 static VALUE
 time_s_alloc(klass)
     VALUE klass;