🚀 go-pugleaf

成松＠ハンブルソフトです。

In article <6lgv6n$kn6$1@jaist-news.jaist.ac.jp> ttate@jaist.ac.jp writes:

>   立石＠JAISTです。
>
>   便乗質問ですが失礼致します。
>
>   nari@mxb.meshnet.or.jpさん(06月04日13時)：
>   nari>>======================= sample.c ============================
>   nari>>#include <tk.h>
>   nari>>
>   nari>>main()
>   nari>>{
>   nari>>  Tcl_Interp *interp;
>   nari>>  interp = Tcl_CreateInterp();
>   nari>>  if (Tcl_Init(interp) == TCL_ERROR) exit(1);
>   nari>>  if (Tk_Init(interp) == TCL_ERROR) exit(1);
>   nari>>  Tcl_StaticPackage(interp, "Tk", Tk_Init, (Tcl_PackageInitProc *) NULL);
>   nari>>  Tcl_Eval(interp,"button .exit -text exit -command exit;pack .exit");
>   nari>>  Tk_MainLoop();
>   nari>>  Tcl_DeleteInterp(interp);
>   nari>>  Tcl_Exit(0);
>   nari>>}
>   nari>>======================= sample.c  (ここまで) ================
>
>   これはTcl8.0/Tk8.0までなら正常に動作しますが、
>   Tcl8.1/Tk8.1だとcoreを吐いて死んでしまいます。
>   この症状は僕だけなのでしょう？
>   他の方はどうでしょう？

Tcl8.1/Tk8.1を持って来てためしたところ、こちらでも Bus Errorになりまし
た。デバッガでみると Tcl_Evalの内部、Tcl_Parseと言うところで落ちている
みたいなので、試しに gccに -fwritable-stringオプションをつけると正常に
動作するようになりました。

man Tcl_Evalを見ると 引数の説明に、must be in writable memory とあります。

=========================== ここから ==================================
       char         *script      (in)                            ||
                                           Points to  first  byte |
                                           of  script to execute. |
                                           This script must be in |
                                           writable  memory: tem- |
                                           porary   modifications |
                                           are  made to it during |
                                           parsing.               |
=========================== ここまで ==================================

いつのまにか、ここが変更になったのだと思います。
--
成松 宏      nari@mxb.meshnet.or.jp  http://www2b.meshnet.or.jp/~nari