Date: Mon, 8 Jul 2013 12:05:45 +0000 (UTC) From: Pietro Cerutti <gahr@FreeBSD.org> To: ports-committers@freebsd.org, svn-ports-all@freebsd.org, svn-ports-head@freebsd.org Subject: svn commit: r322499 - head/games/awele/files Message-ID: <201307081205.r68C5jTS056460@svn.freebsd.org>
next in thread | raw e-mail | index | archive | help
Author: gahr Date: Mon Jul 8 12:05:45 2013 New Revision: 322499 URL: http://svnweb.freebsd.org/changeset/ports/322499 Log: - Fix build with Tcl/Tk 8.6 Reported by: bapt Added: head/games/awele/files/patch-awelewish.c (contents, props changed) Added: head/games/awele/files/patch-awelewish.c ============================================================================== --- /dev/null 00:00:00 1970 (empty, because file is newly added) +++ head/games/awele/files/patch-awelewish.c Mon Jul 8 12:05:45 2013 (r322499) @@ -0,0 +1,38 @@ +--- awelewish.c.orig 2013-07-08 14:02:50.000000000 +0200 ++++ awelewish.c 2013-07-08 14:04:38.000000000 +0200 +@@ -40,7 +40,7 @@ + { + int level ; + if ( argc !=3 ) { +- interp->result = "wrong number of args in function setlevel" ; ++ Tcl_SetObjResult(interp, Tcl_NewStringObj("wrong number of args in function setlevel", -1)); + return TCL_ERROR ; + } + sprintf(levelname , "%s" , argv[1]); +@@ -62,7 +62,7 @@ + AWELE *a ; + + if ( argc !=2 ) { +- interp->result = "wrong number of args in function computer_play" ; ++ Tcl_SetObjResult(interp, Tcl_NewStringObj("wrong number of args in function computer_play", -1)); + return TCL_ERROR ; + } + a = create_awele() ; +@@ -84,7 +84,7 @@ + AWELE *a ; + + if ( argc !=2 ) { +- interp->result = "wrong number of args in function computer_rand_play" ; ++ Tcl_SetObjResult(interp, Tcl_NewStringObj("wrong number of args in function computer_rand_play", -1)); + return TCL_ERROR ; + } + a = create_awele() ; +@@ -105,7 +105,7 @@ + AWELE *a ; + int prof , cp , oldcp ; + if ( argc !=3 ) { +- interp->result = "wrong number of args in function human_play" ; ++ Tcl_SetObjResult(interp, Tcl_NewStringObj("wrong number of args in function human_play", -1)); + return TCL_ERROR ; + } + if ( Tcl_GetInt( interp , argv[1] , &cp ) != TCL_OK )
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?201307081205.r68C5jTS056460>