diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-28 11:13:25 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-09-28 11:13:25 (GMT) |
commit | 5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17 (patch) | |
tree | 83e8e54978b08bd431f372784b7e9de51349cdbb /generic | |
parent | 41b3739aa61f95df2dfbaf0896100aaf73f2595a (diff) | |
parent | 4bdba0452a35fd38357a21020579d0151a1c25d6 (diff) | |
download | tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.zip tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.tar.gz tcl-5b4a3efaa9e14c7fa3d9865c5dc8dfd7ef51af17.tar.bz2 |
Align comment. Remove some end-of-line spacing. No functional changes.
Diffstat (limited to 'generic')
-rw-r--r-- | generic/regcomp.c | 2 | ||||
-rw-r--r-- | generic/tclCmdAH.c | 2 | ||||
-rw-r--r-- | generic/tclCmdMZ.c | 4 | ||||
-rw-r--r-- | generic/tclEnsemble.c | 2 | ||||
-rw-r--r-- | generic/tclIO.h | 2 | ||||
-rw-r--r-- | generic/tclMain.c | 4 | ||||
-rw-r--r-- | generic/tclPkg.c | 2 | ||||
-rw-r--r-- | generic/tclTest.c | 2 | ||||
-rw-r--r-- | generic/tclThreadAlloc.c | 2 | ||||
-rw-r--r-- | generic/tclVar.c | 10 | ||||
-rw-r--r-- | generic/tclZlib.c | 2 |
11 files changed, 17 insertions, 17 deletions
diff --git a/generic/regcomp.c b/generic/regcomp.c index 11a389a..32d4212 100644 --- a/generic/regcomp.c +++ b/generic/regcomp.c @@ -592,7 +592,7 @@ makesearch( break; } } - + /* * We want to mark states as being in the list already by having non * NULL tmp fields, but we can't just store the old slist value in tmp diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index d90a747..54e0227 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -748,7 +748,7 @@ Tcl_EvalObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - return Tcl_NRCallObjProc(interp, TclNREvalObjCmd, dummy, objc, objv); + return Tcl_NRCallObjProc(interp, TclNREvalObjCmd, dummy, objc, objv); } int diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 841002f..13f9e7d 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -38,7 +38,7 @@ static int UniCharIsHexDigit(int character); * UTF-8 literal string containing all Unicode space characters [TIP #413] */ -const char tclDefaultTrimSet[] = +const char tclDefaultTrimSet[] = "\x09\x0a\x0b\x0c\x0d " /* ASCII */ "\xc0\x80" /* nul (U+0000) */ "\xc2\x85" /* next line (U+0085) */ @@ -2884,7 +2884,7 @@ StringCatCmd( Tcl_AppendObjToObj(objResultPtr, objv[i]); } Tcl_SetObjResult(interp, objResultPtr); - + return TCL_OK; } diff --git a/generic/tclEnsemble.c b/generic/tclEnsemble.c index 473c4bb..8f7d1a2 100644 --- a/generic/tclEnsemble.c +++ b/generic/tclEnsemble.c @@ -3115,7 +3115,7 @@ TclAttemptCompileProc( result = cmdPtr->compileProc(interp, parsePtr, cmdPtr, envPtr); /* - * Undo the shift. + * Undo the shift. */ mapPtr->loc[eclIndex].line -= (depth - 1); diff --git a/generic/tclIO.h b/generic/tclIO.h index 7aa07eb..b799375 100644 --- a/generic/tclIO.h +++ b/generic/tclIO.h @@ -126,7 +126,7 @@ typedef struct Channel { */ typedef struct ChannelState { - char *channelName; /* The name of the channel instance in Tcl + char *channelName; /* The name of the channel instance in Tcl * commands. Storage is owned by the generic * IO code, is dynamically allocated. */ int flags; /* ORed combination of the flags defined diff --git a/generic/tclMain.c b/generic/tclMain.c index c2300c2..927de7e 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.c @@ -619,7 +619,7 @@ Tcl_MainEx( if (!Tcl_InterpDeleted(interp) && !Tcl_LimitExceeded(interp)) { Tcl_Obj *cmd = Tcl_ObjPrintf("exit %d", exitCode); - + Tcl_IncrRefCount(cmd); Tcl_EvalObjEx(interp, cmd, TCL_EVAL_GLOBAL); Tcl_DecrRefCount(cmd); @@ -732,7 +732,7 @@ TclFullFinalizationRequested(void) const char *fin; Tcl_DString ds; int finalize = 0; - + fin = TclGetEnv("TCL_FINALIZE_ON_EXIT", &ds); finalize = ((fin != NULL) && strcmp(fin, "0")); if (fin != NULL) { diff --git a/generic/tclPkg.c b/generic/tclPkg.c index df90cea..f6e8b20 100644 --- a/generic/tclPkg.c +++ b/generic/tclPkg.c @@ -383,7 +383,7 @@ PkgRequireCore( if (pkgPtr->clientData != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "circular package dependency:" - " attempt to provide %s %s requires %s", + " attempt to provide %s %s requires %s", name, (char *) pkgPtr->clientData, name)); AddRequirementsToResult(interp, reqc, reqv); Tcl_SetErrorCode(interp, "TCL", "PACKAGE", "CIRCULARITY", NULL); diff --git a/generic/tclTest.c b/generic/tclTest.c index 650e363..600f5ec 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -928,7 +928,7 @@ TestasyncCmd( static int AsyncHandlerProc( - ClientData clientData, /* If of TestAsyncHandler structure. + ClientData clientData, /* If of TestAsyncHandler structure. * in global list. */ Tcl_Interp *interp, /* Interpreter in which command was * executed, or NULL. */ diff --git a/generic/tclThreadAlloc.c b/generic/tclThreadAlloc.c index 3267a0d..018f006 100644 --- a/generic/tclThreadAlloc.c +++ b/generic/tclThreadAlloc.c @@ -1107,7 +1107,7 @@ TclFinalizeThreadAlloc(void) * TclFinalizeThreadAllocThread -- * * This procedure is used to destroy single thread private resources used - * in this file. + * in this file. * Called in TclpFinalizeThreadData when a thread exits (Tcl_FinalizeThread). * * Results: diff --git a/generic/tclVar.c b/generic/tclVar.c index f93de3b..451ef7b 100644 --- a/generic/tclVar.c +++ b/generic/tclVar.c @@ -1505,7 +1505,7 @@ Tcl_SetVar( Tcl_Obj *varValuePtr, *varNamePtr = Tcl_NewStringObj(varName, -1); Tcl_IncrRefCount(varNamePtr); - varValuePtr = Tcl_ObjSetVar2(interp, varNamePtr, NULL, + varValuePtr = Tcl_ObjSetVar2(interp, varNamePtr, NULL, Tcl_NewStringObj(newValue, -1), flags); Tcl_DecrRefCount(varNamePtr); @@ -2038,7 +2038,7 @@ TclPtrIncrObjVar( if (Tcl_IsShared(varValuePtr)) { /* Copy on write */ varValuePtr = Tcl_DuplicateObj(varValuePtr); - + if (TCL_OK == TclIncrObj(interp, varValuePtr, incrPtr)) { return TclPtrSetVar(interp, varPtr, arrayPtr, part1Ptr, part2Ptr, varValuePtr, flags, index); @@ -4340,7 +4340,7 @@ TclPtrMakeUpvar( } /* Callers must Incr myNamePtr if they plan to Decr it. */ - + int TclPtrObjMakeUpvar( Tcl_Interp *interp, /* Interpreter containing variables. Used for @@ -6365,10 +6365,10 @@ CompareVarKeys( /* * If the object pointers are the same then they match. * OPT: this comparison was moved to the caller - + if (objPtr1 == objPtr2) return 1; */ - + /* * Don't use Tcl_GetStringFromObj as it would prevent l1 and l2 being in a * register. diff --git a/generic/tclZlib.c b/generic/tclZlib.c index c5ccc72..44dd9e0 100644 --- a/generic/tclZlib.c +++ b/generic/tclZlib.c @@ -1534,7 +1534,7 @@ Tcl_ZlibDeflate( if (!interp) { return TCL_ERROR; } - + /* * Compressed format is specified by the wbits parameter. See zlib.h for * details. |