diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 14:56:58 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-01-02 14:56:58 (GMT) |
| commit | 7e516346c64302d02f15bfadf29101685ca5f8e3 (patch) | |
| tree | 8ed7ff0e8633b00c8a0614b9c1f903731edf8b0a /unix | |
| parent | 30366b0dd201402a38d55013bfc43b5ed707a2e4 (diff) | |
| parent | 23c8c8b5e43fffff7f81e26ffa820d4f51cca5c5 (diff) | |
| download | tcl-7e516346c64302d02f15bfadf29101685ca5f8e3.zip tcl-7e516346c64302d02f15bfadf29101685ca5f8e3.tar.gz tcl-7e516346c64302d02f15bfadf29101685ca5f8e3.tar.bz2 | |
merge trunk
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/dltest/pkgb.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/unix/dltest/pkgb.c b/unix/dltest/pkgb.c index 86b1ee6..35f691a 100644 --- a/unix/dltest/pkgb.c +++ b/unix/dltest/pkgb.c @@ -56,6 +56,9 @@ Pkgb_SubObjCmd( } if ((Tcl_GetIntFromObj(interp, objv[1], &first) != TCL_OK) || (Tcl_GetIntFromObj(interp, objv[2], &second) != TCL_OK)) { + char buf[TCL_INTEGER_SPACE]; + sprintf(buf, "%d", Tcl_GetErrorLine(interp)); + Tcl_AppendResult(interp, " in line: ", buf, NULL); return TCL_ERROR; } Tcl_SetObjResult(interp, Tcl_NewIntObj(first - second)); |