archive/ruby
1
0
Fork 0
mirror of https://github.com/ruby/ruby.git synced 2025-09-20 02:53:57 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions 4

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

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


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@9507 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
ocean 2005-11-06 12:48:43 +00:00
parent 300b76b782
commit cca46ddd71
2 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
ChangeLog
View file

@ -1,3 +1,8 @@
Sun Nov 6 21:46:59 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
View file

@ -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;
} }
} }