kpriv/freebsd-ports
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

- Fix build with Tcl/Tk 8.6

Browse source 
Reported by:	bapt
This commit is contained in:
Pietro Cerutti 2013-07-08 12:05:45 +00:00
parent 63d58d755b
commit 96149ef5a5
Notes: svn2git 2021-03-31 03:12:20 +00:00 
svn path=/head/; revision=322499
1 changed files with 38 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

38
games/awele/files/patch-awelewish.c Normal file
View file

@ -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 )