kotovalexarian-likes-github/ruby--ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2022-11-09 12:17:21 -05:00
Code Releases Activity

* intern.h (rb_protect_inspect): follow the change of array.c.

Browse source 
* eval.c (rb_exec_end_proc): follow the change of rb_protect().

	* eval.c (method_proc, umethod_proc, rb_catch): cast the first
	  parameter of rb_iterate() to avoid VC++ warning.

	* range.c (range_step): ditto.

	* ext/sdbm/init.c (fsdbm_update, fsdbm_replace): ditto.


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@1801 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
usa 2001-10-29 06:16:01 +00:00
parent 88abd791f5
commit 864bc4f18b
5 changed files with 24 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
ChangeLog
View file

@ -1,6 +1,19 @@
Mon Oct 29 14:56:44 2001 Usaku Nakamura <usa@ruby-lang.org>
* intern.h (rb_protect_inspect): follow the change of array.c.
* eval.c (rb_exec_end_proc): follow the change of rb_protect().
* eval.c (method_proc, umethod_proc, rb_catch): cast the first
parameter of rb_iterate() to avoid VC++ warning.
* range.c (range_step): ditto.
* ext/sdbm/init.c (fsdbm_update, fsdbm_replace): ditto.
Mon Oct 29 07:57:31 2001 Yukihiro Matsumoto <matz@ruby-lang.org>
* parse.y (str_extend): shuould allow interpolation of $-x.
* parse.y (str_extend): should allow interpolation of $-x.
* variable.c (rb_cvar_set): empty iv_tbl may cause infinite loop.

10
eval.c
View file

@ -5967,7 +5967,7 @@ rb_exec_end_proc()
save = link = end_procs;
while (link) {
rb_protect((VALUE(*)())link->func, link->data, &status);
rb_protect((VALUE(*)_((VALUE)))link->func, link->data, &status);
if (status) {
error_handle(status);
}
@ -5975,7 +5975,7 @@ rb_exec_end_proc()
}
link = end_procs;
while (link != save) {
rb_protect((VALUE(*)())link->func, link->data, &status);
rb_protect((VALUE(*)_((VALUE)))link->func, link->data, &status);
if (status) {
error_handle(status);
}
@ -6948,14 +6948,14 @@ static VALUE
method_proc(method)
VALUE method;
{
return rb_iterate(mproc, 0, bmcall, method);
return rb_iterate((VALUE(*)_((VALUE)))mproc, 0, bmcall, method);
}
static VALUE
umethod_proc(method)
VALUE method;
{
return rb_iterate(mproc, 0, umcall, method);
return rb_iterate((VALUE(*)_((VALUE)))mproc, 0, umcall, method);
}
static VALUE
@ -9074,7 +9074,7 @@ rb_catch(tag, proc, data)
VALUE (*proc)();
VALUE data;
{
return rb_iterate(catch_i, rb_intern(tag), proc, data);
return rb_iterate((VALUE(*)_((VALUE)))catch_i, rb_intern(tag), proc, data);
}
static VALUE

4
ext/sdbm/init.c
View file

@ -381,7 +381,7 @@ static VALUE
fsdbm_update(obj, other)
VALUE obj, other;
{
rb_iterate(each_pair, other, update_i, obj);
rb_iterate((VALUE(*)_((VALUE)))each_pair, other, update_i, obj);
return obj;
}
@ -390,7 +390,7 @@ fsdbm_replace(obj, other)
VALUE obj, other;
{
fsdbm_clear(obj);
rb_iterate(each_pair, other, update_i, obj);
rb_iterate((VALUE(*)_((VALUE)))each_pair, other, update_i, obj);
return obj;
}

2
intern.h
View file

@ -50,7 +50,7 @@ VALUE rb_ary_assoc _((VALUE, VALUE));
VALUE rb_ary_rassoc _((VALUE, VALUE));
VALUE rb_ary_includes _((VALUE, VALUE));
VALUE rb_ary_cmp _((VALUE, VALUE));
VALUE rb_protect_inspect _((VALUE(*)(VALUE,VALUE),VALUE,VALUE));
VALUE rb_protect_inspect _((VALUE(*)(ANYARGS),VALUE,VALUE));
VALUE rb_inspecting_p _((VALUE));
/* bignum.c */
VALUE rb_big_clone _((VALUE));

3
range.c
View file

@ -311,7 +311,8 @@ range_step(argc, argv, range)
args[0] = b; args[1] = e; args[2] = range;
iter[0] = 1; iter[1] = NUM2LONG(step);
rb_iterate(r_step_str, (VALUE)args, r_step_str_i, (VALUE)iter);
rb_iterate((VALUE(*)_((VALUE)))r_step_str, (VALUE)args, r_step_str_i,
(VALUE)iter);
}
else { /* generic each */
VALUE v = b;