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

* ext/tcltklib/stubs.c (ruby_tcltk_stubs): fix memory leak.

Browse source 
[ruby-dev:18478]


git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2950 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
eban 2002-10-10 08:30:52 +00:00
parent 99ebeaee0a
commit 129d05ae8d
3 changed files with 13 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

11
ext/tcltklib/stubs.c
View file

@ -34,8 +34,8 @@ ruby_tcltk_stubs()
int (*p_Tk_Init) _((Tcl_Interp *));
Tcl_Interp *tcl_ip;
int n;
char *ruby_tcl_dll;
char *ruby_tk_dll;
char *ruby_tcl_dll = 0;
char *ruby_tk_dll = 0;
char tcl_name[20];
char tk_name[20];
@ -47,9 +47,6 @@ ruby_tcltk_stubs()
if (ruby_tcl_dll && ruby_tk_dll) {
tcl_dll = (DL_HANDLE)DL_OPEN(ruby_tcl_dll);
tk_dll = (DL_HANDLE)DL_OPEN(ruby_tk_dll);
#if defined NT
ruby_xfree(ruby_tcl_dll);
#endif
} else {
snprintf(tcl_name, sizeof tcl_name, TCL_NAME, DLEXT);
snprintf(tk_name, sizeof tk_name, TK_NAME, DLEXT);
@ -64,6 +61,10 @@ ruby_tcltk_stubs()
}
}
#if defined NT
if (ruby_tcl_dll) ruby_xfree(ruby_tcl_dll);
#endif
if (!tcl_dll || !tk_dll)
return -1;