From owner-svn-ports-head@FreeBSD.ORG Mon Jul 15 09:55:04 2013 Return-Path: Delivered-To: svn-ports-head@freebsd.org Received: from mx1.freebsd.org (mx1.freebsd.org [IPv6:2001:1900:2254:206a::19:1]) by hub.freebsd.org (Postfix) with ESMTP id 8229B275; Mon, 15 Jul 2013 09:55:04 +0000 (UTC) (envelope-from gahr@FreeBSD.org) Received: from svn.freebsd.org (svn.freebsd.org [IPv6:2001:1900:2254:2068::e6a:0]) by mx1.freebsd.org (Postfix) with ESMTP id 75B9FC79; Mon, 15 Jul 2013 09:55:04 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.7/8.14.7) with ESMTP id r6F9t467033706; Mon, 15 Jul 2013 09:55:04 GMT (envelope-from gahr@svn.freebsd.org) Received: (from gahr@localhost) by svn.freebsd.org (8.14.7/8.14.5/Submit) id r6F9t475033704; Mon, 15 Jul 2013 09:55:04 GMT (envelope-from gahr@svn.freebsd.org) Message-Id: <201307150955.r6F9t475033704@svn.freebsd.org> From: Pietro Cerutti Date: Mon, 15 Jul 2013 09:55:04 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r323028 - head/devel/gdb66/files X-SVN-Group: ports-head MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit X-BeenThere: svn-ports-head@freebsd.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: SVN commit messages for the ports tree for head List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Mon, 15 Jul 2013 09:55:04 -0000 Author: gahr Date: Mon Jul 15 09:55:03 2013 New Revision: 323028 URL: http://svnweb.freebsd.org/changeset/ports/323028 Log: - Fix build with Tcl/Tk 8.6 Reported by: bapt Added: head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk-hooks.c (contents, props changed) head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk.c (contents, props changed) Added: head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk-hooks.c ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk-hooks.c Mon Jul 15 09:55:03 2013 (r323028) @@ -0,0 +1,50 @@ +--- gdb/gdbtk/generic/gdbtk-hooks.c.orig 2013-07-15 11:47:33.000000000 +0200 ++++ gdb/gdbtk/generic/gdbtk-hooks.c 2013-07-15 11:48:41.000000000 +0200 +@@ -254,13 +254,13 @@ + actual_len = 0; + } + else +- actual_len = strlen (gdbtk_interp->result); ++ actual_len = strlen (Tcl_GetStringResult(gdbtk_interp)); + + /* Truncate the string if it is too big for the caller's buffer. */ + if (actual_len >= sizeof_buf) + actual_len = sizeof_buf - 1; + +- memcpy (buf, gdbtk_interp->result, actual_len); ++ memcpy (buf, Tcl_GetStringResult(gdbtk_interp), actual_len); + buf[actual_len] = '\0'; + return actual_len; + } +@@ -505,11 +505,11 @@ + + if (result == TCL_OK) + { +- return (xstrdup (gdbtk_interp->result)); ++ return (xstrdup (Tcl_GetStringResult(gdbtk_interp))); + } + else + { +- gdbtk_fputs (gdbtk_interp->result, gdb_stdout); ++ gdbtk_fputs (Tcl_GetStringResult(gdbtk_interp), gdb_stdout); + gdbtk_fputs ("\n", gdb_stdout); + return (NULL); + } +@@ -633,7 +633,7 @@ + report_error (); + free(buf); + +- return atoi (gdbtk_interp->result); ++ return atoi (Tcl_GetStringResult(gdbtk_interp)); + } + + +@@ -686,7 +686,7 @@ + gdbtk_two_elem_cmd ("gdbtk_tcl_query", buf); + free(buf); + +- val = atol (gdbtk_interp->result); ++ val = atol (Tcl_GetStringResult(gdbtk_interp)); + return val; + } + Added: head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk.c ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/devel/gdb66/files/patch-gdb-gdbtk-generic-gdbtk.c Mon Jul 15 09:55:03 2013 (r323028) @@ -0,0 +1,58 @@ +--- gdb/gdbtk/generic/gdbtk.c.orig 2013-07-15 11:44:12.000000000 +0200 ++++ gdb/gdbtk/generic/gdbtk.c 2013-07-15 11:45:50.000000000 +0200 +@@ -468,7 +468,7 @@ + Tcl_Free ((char *) exec_path); + + if (Tcl_Init (gdbtk_interp) != TCL_OK) +- error ("Tcl_Init failed: %s", gdbtk_interp->result); ++ error ("Tcl_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + + /* Set up some globals used by gdb to pass info to gdbtk + for start up options and the like */ +@@ -486,23 +486,23 @@ + + /* Initialize the Paths variable. */ + if (ide_initialize_paths (gdbtk_interp, "") != TCL_OK) +- error ("ide_initialize_paths failed: %s", gdbtk_interp->result); ++ error ("ide_initialize_paths failed: %s", Tcl_GetStringResult(gdbtk_interp)); + + if (Tk_Init (gdbtk_interp) != TCL_OK) +- error ("Tk_Init failed: %s", gdbtk_interp->result); ++ error ("Tk_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + + if (Itcl_Init (gdbtk_interp) == TCL_ERROR) +- error ("Itcl_Init failed: %s", gdbtk_interp->result); ++ error ("Itcl_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + Tcl_StaticPackage (gdbtk_interp, "Itcl", Itcl_Init, + (Tcl_PackageInitProc *) NULL); + + if (Itk_Init (gdbtk_interp) == TCL_ERROR) +- error ("Itk_Init failed: %s", gdbtk_interp->result); ++ error ("Itk_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + Tcl_StaticPackage (gdbtk_interp, "Itk", Itk_Init, + (Tcl_PackageInitProc *) NULL); + + if (Tktable_Init (gdbtk_interp) != TCL_OK) +- error ("Tktable_Init failed: %s", gdbtk_interp->result); ++ error ("Tktable_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + + Tcl_StaticPackage (gdbtk_interp, "Tktable", Tktable_Init, + (Tcl_PackageInitProc *) NULL); +@@ -540,7 +540,7 @@ + + if (Gdbtk_Init (gdbtk_interp) != TCL_OK) + { +- error ("Gdbtk_Init failed: %s", gdbtk_interp->result); ++ error ("Gdbtk_Init failed: %s", Tcl_GetStringResult(gdbtk_interp)); + } + + Tcl_StaticPackage (gdbtk_interp, "Insight", Gdbtk_Init, NULL); +@@ -719,7 +719,7 @@ + + retval = Tcl_Eval (gdbtk_interp, cmd); + +- result = xstrdup (gdbtk_interp->result); ++ result = xstrdup (Tcl_GetStringResult(gdbtk_interp)); + + old_chain = make_cleanup (free, result); +