diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 05:51:08 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2007-04-20 05:51:08 (GMT) |
| commit | 19d1741894fc2c56ad61073c9004a90afabf2e56 (patch) | |
| tree | d1bc1e4898e7345e3f4220c96e003fd6e41b73ed /generic/tclInterp.c | |
| parent | 0823d0ce0477c8a5a0183f4f9d76768b4cc203fc (diff) | |
| download | tcl-19d1741894fc2c56ad61073c9004a90afabf2e56.zip tcl-19d1741894fc2c56ad61073c9004a90afabf2e56.tar.gz tcl-19d1741894fc2c56ad61073c9004a90afabf2e56.tar.bz2 | |
Whitespace policing, replacing commas in varargs with constant string catenation, and fixed an oversight in the fix for NZA time zones.
Diffstat (limited to 'generic/tclInterp.c')
| -rw-r--r-- | generic/tclInterp.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclInterp.c b/generic/tclInterp.c index b9f445a..7fcb341 100644 --- a/generic/tclInterp.c +++ b/generic/tclInterp.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInterp.c,v 1.72 2007/04/10 14:47:16 dkf Exp $ + * RCS: @(#) $Id: tclInterp.c,v 1.73 2007/04/20 05:51:10 kennykb Exp $ */ #include "tclInt.h" @@ -2572,7 +2572,7 @@ SlaveRecursionLimit( if (objc) { if (Tcl_IsSafe(interp)) { - Tcl_AppendResult(interp, "permission denied: ", + Tcl_AppendResult(interp, "permission denied: " "safe interpreters cannot change recursion limit", (char *) NULL); return TCL_ERROR; @@ -4105,7 +4105,7 @@ SlaveCommandLimitCmd( return TCL_ERROR; } if (gran < 1) { - Tcl_AppendResult(interp, "granularity must be at ", + Tcl_AppendResult(interp, "granularity must be at " "least 1", NULL); return TCL_ERROR; } @@ -4120,7 +4120,7 @@ SlaveCommandLimitCmd( return TCL_ERROR; } if (limit < 0) { - Tcl_AppendResult(interp, "command limit value must be at ", + Tcl_AppendResult(interp, "command limit value must be at " "least 0", NULL); return TCL_ERROR; } @@ -4297,7 +4297,7 @@ SlaveTimeLimitCmd( return TCL_ERROR; } if (gran < 1) { - Tcl_AppendResult(interp, "granularity must be at ", + Tcl_AppendResult(interp, "granularity must be at " "least 1", NULL); return TCL_ERROR; } @@ -4344,12 +4344,12 @@ SlaveTimeLimitCmd( */ if (secObj != NULL && secLen == 0 && milliLen > 0) { - Tcl_AppendResult(interp, "may only set -milliseconds ", + Tcl_AppendResult(interp, "may only set -milliseconds " "if -seconds is not also being reset", NULL); return TCL_ERROR; } if (milliLen == 0 && (secObj == NULL || secLen > 0)) { - Tcl_AppendResult(interp, "may only reset -milliseconds ", + Tcl_AppendResult(interp, "may only reset -milliseconds " "if -seconds is also being reset", NULL); return TCL_ERROR; } |