insight on mingw

mingw 用の insight(gdb)のソースはgdb-6.6 まで公開されている。
これを gcc4 でビルドするといくつかエラーになる。

警告の無視

gcc4 は警告をエラーとして扱う。

insight のビルドに限れば、警告を無視して欲しい。

そこで configure をしたあと、警告を無視するようにオプションをつける。

$ mkdir build_insight
$ cd build_insight
$ ../insight-src/configure
$ make CFLAGS="-Wno-unused-but-set-variable -Wno-sign-conversion -Wno-sign-compare" 2>&1 | tee make.log

ソースの変更

以下の２つのパッチから、２つのファイルを修正すると、ビルドに成功した。

config.log

http://www.cygwin.com/ml/insight/2011-q3/msg00010/insight-mingw.patch

http://permalink.gmane.org/gmane.comp.debugging.insight/2770

• tclWinReg.c

  --- a/src/tcl/win/tclWinReg.c
  +++ b/src/tcl/win/tclWinReg.c
  @@ -747,7 +747,7 @@ GetValue(
  		    Tcl_NewStringObj(Tcl_DStringValue(&buf),
  			    Tcl_DStringLength(&buf)));
  	    if (regWinProcs->useWide) {
  -		while (*((Tcl_UniChar *)p)++ != 0) {}
  + 		while (*((Tcl_UniChar *)p++) != 0) {}
  	    } else {
  		while (*p++ != '\0') {}
  	    }

• tclWinDde.c

--- a/src/tcl/win/tclWinDde.c
+++ b/src/tcl/win/tclWinDde.c
@@ -1175,7 +1175,8 @@ Tcl_DdeObjCmd(
	}
	case DDE_EVAL: {
	    objc -= (async + 3);
-	    ((Tcl_Obj **) objv) += (async + 3);
+	    //((Tcl_Obj **) objv) += (async + 3);
+        objv += (async + 3);

Index: tcl/win/tclWinDde.c
===================================================================
RCS file: /cvs/src/src/tcl/win/tclWinDde.c,v
retrieving revision 1.5
diff -u -r1.5 tclWinDde.c
--- tcl/win/tclWinDde.c	21 Jan 2003 19:40:22 -0000	1.5
+++ tcl/win/tclWinDde.c	11 Aug 2011 09:22:06 -0000
@@ -1175,7 +1175,7 @@
	}
	case DDE_EVAL: {
	    objc -= (async + 3);
-	    ((Tcl_Obj **) objv) += (async + 3);
+        objv += (async + 3);

            /*
	     * See if the target interpreter is local.  If so, execute