diff options
author | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-29 05:12:00 +0000 |
---|---|---|
committer | nagai <nagai@b2dd03c8-39d4-4d8f-98ff-823fe69b080e> | 2004-08-29 05:12:00 +0000 |
commit | 1cf49eb9f39ac128bdbb0c99527a903d6fe71130 (patch) | |
tree | fc52994bec0c740a4a85f0ce9c22bb8fc4d13c17 | |
parent | a1dd800235214569f88d7008d4ede60b1e2b247a (diff) | |
download | ruby-1cf49eb9f39ac128bdbb0c99527a903d6fe71130.tar.gz |
* ext/tcltklib/tcltklib.c: compile error on bcc32 [ruby-dev:24081]
* ext/tk/lib/multi-tk.rb: MultiTkIp#eval_string does not work
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@6830 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r-- | ChangeLog | 6 | ||||
-rw-r--r-- | ext/tcltklib/tcltklib.c | 4 | ||||
-rw-r--r-- | ext/tk/lib/multi-tk.rb | 2 |
3 files changed, 10 insertions, 2 deletions
@@ -1,3 +1,9 @@ +Sun Aug 29 14:08:56 2004 Hidetoshi NAGAI <nagai@ai.kyutech.ac.jp> + + * ext/tcltklib/tcltklib.c: compile error on bcc32 [ruby-dev:24081] + + * ext/tk/lib/multi-tk.rb: MultiTkIp#eval_string does not work + Sat Aug 28 23:04:41 2004 Yukihiro Matsumoto <matz@ruby-lang.org> * bignum.c (rb_big_and): protect parameters from GC. diff --git a/ext/tcltklib/tcltklib.c b/ext/tcltklib/tcltklib.c index 2792e53388..0217ab8feb 100644 --- a/ext/tcltklib/tcltklib.c +++ b/ext/tcltklib/tcltklib.c @@ -97,7 +97,8 @@ static VALUE ip_invoke _((int, VALUE*, VALUE)); /* from tkAppInit.c */ -#if !defined __MINGW32__ +#if TCL_MAJOR_VERSION < 8 || (TCL_MAJOR_VERSION == 8 && TCL_MINOR_VERSION < 4) +# if !defined __MINGW32__ && !defined __BORLANDC__ /* * The following variable is a special hack that is needed in order for * Sun shared libraries to be used for Tcl. @@ -105,6 +106,7 @@ static VALUE ip_invoke _((int, VALUE*, VALUE)); extern int matherr(); int *tclDummyMathPtr = (int *) matherr; +# endif #endif /*---- module TclTkLib ----*/ diff --git a/ext/tk/lib/multi-tk.rb b/ext/tk/lib/multi-tk.rb index 7957e0b3c7..2a471ca01d 100644 --- a/ext/tk/lib/multi-tk.rb +++ b/ext/tk/lib/multi-tk.rb @@ -857,7 +857,7 @@ class MultiTkIp if cmd.kind_of?(String) xcmd = cmd xargs = args - cmd = proc{ TkComm._get_eval_string(TkUtil.eval_cmd(xcmd, *xargs)) } + cmd = proc{ TkComm._get_eval_string(eval(xcmd, *xargs)) } args = [] end |