github
/
ruby
зеркало из https://github.com/github/ruby.git
1
0
Форкнуть 0
Код Задачи Пакеты Проекты Релизы Вики Активность

* ext/tk/stubs.c (ruby_tcl_create_ip_and_stubs_init): should touch 

interpreter after initialization is done. [ruby-dev:27638]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@9507 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ocean 2005-11-06 12:48:43 +00:00
Родитель 556a7ac35f
Коммит 84c2dc95de
2 изменённых файлов: 7 добавлений и 2 удалений
Показать статистику Скачать Patch файл Скачать Diff файл Показать все файлы Свернуть все файлы

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

@ -1,3 +1,8 @@
Sun Nov 6 21:43:22 2005 Hirokazu Yamamoto <ocean@m2.ccsnet.ne.jp>
* ext/tk/stubs.c (ruby_tcl_create_ip_and_stubs_init): should touch
interpreter after initialization is done. [ruby-dev:27638]
Sun Nov 6 20:13:27 2005 Nobuyoshi Nakada <nobu@ruby-lang.org> Sun Nov 6 20:13:27 2005 Nobuyoshi Nakada <nobu@ruby-lang.org>
* file.c (rb_file_s_readlink): readlink(2) on AIX fails with ERANGE if * file.c (rb_file_s_readlink): readlink(2) on AIX fails with ERANGE if

4
ext/tk/stubs.c
Просмотреть файл

@ -237,14 +237,14 @@ ruby_tcl_create_ip_and_stubs_init(st)
return (Tcl_Interp*)NULL; return (Tcl_Interp*)NULL;
} }
_nativethread_consistency_check(tcl_ip);
if (!Tcl_InitStubs(tcl_ip, "8.1", 0)) { if (!Tcl_InitStubs(tcl_ip, "8.1", 0)) {
if (st) *st = FAIL_Tcl_InitStubs; if (st) *st = FAIL_Tcl_InitStubs;
(*p_Tcl_DeleteInterp)(tcl_ip); (*p_Tcl_DeleteInterp)(tcl_ip);
return (Tcl_Interp*)NULL; return (Tcl_Interp*)NULL;
} }
_nativethread_consistency_check(tcl_ip);
return tcl_ip; return tcl_ip;
} }
} }