svn commit: r322499 - head/games/awele/files

[Pietro Cerutti]

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 )