diff options
| author | gahr <gahr@FreeBSD.org> | 2013-07-08 20:05:45 +0800 |
|---|---|---|
| committer | gahr <gahr@FreeBSD.org> | 2013-07-08 20:05:45 +0800 |
| commit | a1cd8c740abfc69c3e9e41e93aa17bb26bbdb86c (patch) | |
| tree | 5590e4c85abe67139465ca32c8bd38cc13eccee9 | |
| parent | 8e1c62d2d50564f8259d339e197517ad498b37fd (diff) | |
| download | freebsd-ports-gnome-a1cd8c740abfc69c3e9e41e93aa17bb26bbdb86c.tar.gz freebsd-ports-gnome-a1cd8c740abfc69c3e9e41e93aa17bb26bbdb86c.tar.zst freebsd-ports-gnome-a1cd8c740abfc69c3e9e41e93aa17bb26bbdb86c.zip | |
- Fix build with Tcl/Tk 8.6
Reported by: bapt
| -rw-r--r-- | games/awele/files/patch-awelewish.c | 38 |
1 files changed, 38 insertions, 0 deletions
diff --git a/games/awele/files/patch-awelewish.c b/games/awele/files/patch-awelewish.c new file mode 100644 index 000000000000..aab3b9270cfa --- /dev/null +++ b/games/awele/files/patch-awelewish.c @@ -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 ) |