diff options
author | mdejong <mdejong@noemail.net> | 2003-07-16 02:17:06 (GMT) |
---|---|---|
committer | mdejong <mdejong@noemail.net> | 2003-07-16 02:17:06 (GMT) |
commit | 774f8deb44bedfa9e2bfba48130de8349818bfe6 (patch) | |
tree | 704a9c3d8be3849a768bf1c9af3ea016bc904ab8 /unix/dltest | |
parent | 287fa935c46a766fee9773e16f5c4072815b85b5 (diff) | |
download | tcl-774f8deb44bedfa9e2bfba48130de8349818bfe6.zip tcl-774f8deb44bedfa9e2bfba48130de8349818bfe6.tar.gz tcl-774f8deb44bedfa9e2bfba48130de8349818bfe6.tar.bz2 |
* unix/dltest/pkga.c (Pkga_EqObjCmd): Fix typo
that was causing a crash in load.test.
FossilOrigin-Name: 766a3eea2cffeb5cebd78295520ad61a6765e793
Diffstat (limited to 'unix/dltest')
-rw-r--r-- | unix/dltest/pkga.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/dltest/pkga.c b/unix/dltest/pkga.c index 9957158..da5a439 100644 --- a/unix/dltest/pkga.c +++ b/unix/dltest/pkga.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: pkga.c,v 1.6 2003/07/15 23:57:33 dgp Exp $ + * RCS: @(#) $Id: pkga.c,v 1.7 2003/07/16 02:17:06 mdejong Exp $ */ #include "tcl.h" @@ -48,7 +48,7 @@ Pkga_EqObjCmd(dummy, interp, objc, objv) Tcl_Obj * CONST objv[]; /* Argument objects. */ { int result; - CONST char *str1, str2; + CONST char *str1, *str2; int len1, len2, n; if (objc != 3) { |