From owner-svn-ports-head@FreeBSD.ORG Mon May 13 12:14:03 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 34A4E853; Mon, 13 May 2013 12:14:03 +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 17469E39; Mon, 13 May 2013 12:14:03 +0000 (UTC) Received: from svn.freebsd.org ([127.0.1.70]) by svn.freebsd.org (8.14.6/8.14.6) with ESMTP id r4DCE2bY099875; Mon, 13 May 2013 12:14:02 GMT (envelope-from gahr@svn.freebsd.org) Received: (from gahr@localhost) by svn.freebsd.org (8.14.6/8.14.5/Submit) id r4DCE2am099873; Mon, 13 May 2013 12:14:02 GMT (envelope-from gahr@svn.freebsd.org) Message-Id: <201305131214.r4DCE2am099873@svn.freebsd.org> From: Pietro Cerutti Date: Mon, 13 May 2013 12:14:02 +0000 (UTC) To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r318072 - in head/devel/gcvs: . 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, 13 May 2013 12:14:03 -0000 Author: gahr Date: Mon May 13 12:14:01 2013 New Revision: 318072 URL: http://svnweb.freebsd.org/changeset/ports/318072 Log: - Fix build with Tcl 8.6 Reported by: miwi (Tcl/Tk 86 exp-run) Added: head/devel/gcvs/files/patch-common_TclGlue.cpp (contents, props changed) Modified: head/devel/gcvs/Makefile Modified: head/devel/gcvs/Makefile ============================================================================== --- head/devel/gcvs/Makefile Mon May 13 11:44:07 2013 (r318071) +++ head/devel/gcvs/Makefile Mon May 13 12:14:01 2013 (r318072) @@ -1,5 +1,4 @@ # $FreeBSD$ -# $MCom: ports/devel/gcvs/Makefile,v 1.1 2006/10/07 17:10:25 ahze Exp $ PORTNAME= gcvs PORTVERSION= 1.0 @@ -26,7 +25,7 @@ CXXFLAGS:= ${CXXFLAGS:N-std=*:N:} CONFIGURE_ARGS= --with-tclinclude=${TCL_INCLUDEDIR} \ --with-tcllib=${TCL_LIBDIR} MAKE_JOBS_SAFE= yes -EXTRACT_AFTER_ARGS= --exclude cvsunix --exclude 'getline.[ch]' --exclude 'getopt*.[ch]' +EXTRACT_AFTER_ARGS=--exclude cvsunix --exclude 'getline.[ch]' --exclude 'getopt*.[ch]' post-patch: ${REINPLACE_CMD} -E '/get(line|opt1?)\.[ch]/d' \ Added: head/devel/gcvs/files/patch-common_TclGlue.cpp ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/devel/gcvs/files/patch-common_TclGlue.cpp Mon May 13 12:14:01 2013 (r318072) @@ -0,0 +1,59 @@ +--- common/TclGlue.cpp.bak 2002-12-20 15:38:25.000000000 +0100 ++++ common/TclGlue.cpp 2013-05-13 14:10:28.000000000 +0200 +@@ -452,7 +452,7 @@ + { + EntnodeData* data = entry->GetData(); + CStr path, fname, value; +- entry->GetNormalized(path, fname); ++ entry->GetNormalized(path, fname); + const char *res = Tcl_SetVar2(interp, argv[3], "name", fname, 0); + if(res == 0L) + goto err1; +@@ -1161,17 +1161,18 @@ + if(bTclFileStarted) + gCvsPrefs.SetTclFileRunning(false); + +- size_t len = strlen(fInterp->result); ++ const char *res = Tcl_GetStringResult(fInterp); ++ size_t len = strlen(res); + if(exitc == TCL_ERROR) + { +- cvs_errstr(fInterp->result, len); +- if(len != 0 && fInterp->result[len - 1] != '\n') ++ cvs_errstr(res, len); ++ if(len != 0 && res[len - 1] != '\n') + cvs_errstr("\n", 1); + } + else + { +- cvs_outstr(fInterp->result, len); +- if(len != 0 && fInterp->result[len - 1] != '\n') ++ cvs_outstr(res, len); ++ if(len != 0 && res[len - 1] != '\n') + cvs_outstr("\n", 1); + } + +@@ -1207,17 +1208,18 @@ + return false; + + int exitc = Tcl_EvalFile(fInterp, (char *)file); +- size_t len = strlen(fInterp->result); ++ const char *res = Tcl_GetStringResult(fInterp); ++ size_t len = strlen(res); + if(exitc == TCL_ERROR) + { +- cvs_errstr(fInterp->result, len); +- if(len != 0 && fInterp->result[len - 1] != '\n') ++ cvs_errstr(res, len); ++ if(len != 0 && res[len - 1] != '\n') + cvs_errstr("\n", 1); + } + else + { +- cvs_outstr(fInterp->result, len); +- if(len != 0 && fInterp->result[len - 1] != '\n') ++ cvs_outstr(res, len); ++ if(len != 0 && res[len - 1] != '\n') + cvs_outstr("\n", 1); + } +