diff options
Diffstat (limited to 'unix/dltest/pkga.c')
| -rw-r--r-- | unix/dltest/pkga.c | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index a014458..c4d3f32 100644 --- a/unix/dltest/pkga.c +++ b/unix/dltest/pkga.c @@ -29,17 +29,6 @@ static int Pkga_EqObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); static int Pkga_QuoteObjCmd(ClientData clientData, Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]); -/* - * Function to be backlinked from the tcltest executable - */ -#if 0 -extern const char *Tcltest_Foo(); -#else -EXTERN const char *Tcltest_Foo() { - return "I'm in pkga.c"; -} -#endif - /* *---------------------------------------------------------------------- @@ -110,15 +99,11 @@ Pkga_QuoteObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument strings. */ { - if (objc > 2) { + if (objc != 2) { Tcl_WrongNumArgs(interp, 1, objv, "value"); return TCL_ERROR; } - if (objc == 1) { - Tcl_SetResult(interp, (char *) Tcltest_Foo(), TCL_VOLATILE); - } else { Tcl_SetObjResult(interp, objv[1]); - } return TCL_OK; } |