* eval_jump.c (rb_exec_end_proc): unlink and free procs data before
  calling for each procs.  [Bug #9110]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@43705 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
nobu 2013-11-18 13:45:51 +00:00
Родитель eba3d83f4e
Коммит ecbdd8fcad
2 изменённых файлов: 13 добавлений и 15 удалений

Просмотреть файл

@ -1,3 +1,8 @@
Mon Nov 18 22:45:49 2013 Nobuyoshi Nakada <nobu@ruby-lang.org>
* eval_jump.c (rb_exec_end_proc): unlink and free procs data before
calling for each procs. [Bug #9110]
Sun Nov 17 06:33:32 2013 Shota Fukumori <her@sorah.jp>
* configure.in: Use $LIBS for base of $SOLIBS, also in darwin.

Просмотреть файл

@ -96,9 +96,8 @@ rb_mark_end_proc(void)
void
rb_exec_end_proc(void)
{
struct end_proc_data *volatile link;
struct end_proc_data *ephemeral_end_procs_head = ephemeral_end_procs;
struct end_proc_data *end_procs_head = end_procs;
struct end_proc_data volatile endproc;
struct end_proc_data volatile *link;
int status;
volatile int safe = rb_safe_level();
rb_thread_t *th = GET_THREAD();
@ -107,6 +106,9 @@ rb_exec_end_proc(void)
while (ephemeral_end_procs) {
link = ephemeral_end_procs;
ephemeral_end_procs = link->next;
endproc = *link;
xfree((void *)link);
link = &endproc;
PUSH_TAG();
if ((status = EXEC_TAG()) == 0) {
@ -123,6 +125,9 @@ rb_exec_end_proc(void)
while (end_procs) {
link = end_procs;
end_procs = link->next;
endproc = *link;
xfree((void *)link);
link = &endproc;
PUSH_TAG();
if ((status = EXEC_TAG()) == 0) {
@ -136,18 +141,6 @@ rb_exec_end_proc(void)
}
}
link = ephemeral_end_procs_head;
while (link) {
xfree(link);
link = link->next;
}
link = end_procs_head;
while (link) {
xfree(link);
link = link->next;
}
rb_set_safe_level_force(safe);
th->errinfo = errinfo;
}