Skip to content

Commit af9dc0b

Browse files
dkfellowsdkfellows
committed
Mostly whitespace fixes, but also a bug in Tcl_SetWideUIntObj
1 parent 6dcc816 commit af9dc0b

33 files changed

+111
-129
lines changed

‎generic/tclAsync.c

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -190,7 +190,7 @@ Tcl_AsyncCreate(
190190

191191
void
192192
Tcl_AsyncMark(
193-
Tcl_AsyncHandler async) /* Token for handler. */
193+
Tcl_AsyncHandler async) /* Token for handler. */
194194
{
195195
AsyncHandler *token = (AsyncHandler *) async;
196196

@@ -223,8 +223,8 @@ Tcl_AsyncMark(
223223

224224
int
225225
Tcl_AsyncMarkFromSignal(
226-
Tcl_AsyncHandler async, /* Token for handler. */
227-
int sigNumber) /* Signal number. */
226+
Tcl_AsyncHandler async, /* Token for handler. */
227+
int sigNumber) /* Signal number. */
228228
{
229229
#if TCL_THREADS
230230
AsyncHandler *token = (AsyncHandler *) async;
@@ -377,7 +377,7 @@ Tcl_AsyncInvoke(
377377

378378
void
379379
Tcl_AsyncDelete(
380-
Tcl_AsyncHandler async) /* Token for handler to delete. */
380+
Tcl_AsyncHandler async) /* Token for handler to delete. */
381381
{
382382
AsyncHandler *asyncPtr = (AsyncHandler *) async;
383383

‎generic/tclClock.c

Lines changed: 5 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -4583,11 +4583,11 @@ ClockSafeCatchCmd(
45834583
Tcl_Obj *const objv[])
45844584
{
45854585
typedef struct {
4586-
int status; /* return code status */
4587-
int flags; /* Each remaining field saves the */
4588-
int returnLevel; /* corresponding field of the Interp */
4589-
int returnCode; /* struct. These fields taken together are */
4590-
Tcl_Obj *errorInfo; /* the "state" of the interp. */
4586+
int status; /* return code status */
4587+
int flags; /* Each remaining field saves the */
4588+
int returnLevel; /* corresponding field of the Interp */
4589+
int returnCode; /* struct. These fields taken together are */
4590+
Tcl_Obj *errorInfo; /* the "state" of the interp. */
45914591
Tcl_Obj *errorCode;
45924592
Tcl_Obj *returnOpts;
45934593
Tcl_Obj *objResult;

‎generic/tclCmdIL.c

Lines changed: 10 additions & 15 deletions
Original file line numberDiff line numberDiff line change
@@ -1259,7 +1259,7 @@ TclInfoFrame(
12591259
{
12601260
Interp *iPtr = (Interp *) interp;
12611261
Tcl_Obj *tmpObj;
1262-
Tcl_Obj *lv[20] = {NULL}; /* Keep uptodate when more keys are added to
1262+
Tcl_Obj *lv[20] = {NULL}; /* Keep uptodate when more keys are added to
12631263
* the dict. */
12641264
int lc = 0;
12651265
/*
@@ -2427,7 +2427,7 @@ int
24272427
Tcl_LinsertObjCmd(
24282428
TCL_UNUSED(void *),
24292429
Tcl_Interp *interp, /* Current interpreter. */
2430-
int objc, /* Number of arguments. */
2430+
int objc, /* Number of arguments. */
24312431
Tcl_Obj *const objv[]) /* Argument objects. */
24322432
{
24332433
Tcl_Obj *listPtr;
@@ -2520,9 +2520,8 @@ int
25202520
Tcl_ListObjCmd(
25212521
TCL_UNUSED(void *),
25222522
Tcl_Interp *interp, /* Current interpreter. */
2523-
int objc, /* Number of arguments. */
2524-
Tcl_Obj *const objv[])
2525-
/* The argument objects. */
2523+
int objc, /* Number of arguments. */
2524+
Tcl_Obj *const objv[]) /* The argument objects. */
25262525
{
25272526
/*
25282527
* If there are no list elements, the result is an empty object.
@@ -2557,8 +2556,7 @@ Tcl_LlengthObjCmd(
25572556
TCL_UNUSED(void *),
25582557
Tcl_Interp *interp, /* Current interpreter. */
25592558
int objc, /* Number of arguments. */
2560-
Tcl_Obj *const objv[])
2561-
/* Argument objects. */
2559+
Tcl_Obj *const objv[]) /* Argument objects. */
25622560
{
25632561
Tcl_Size listLen;
25642562
int result;
@@ -2606,8 +2604,7 @@ Tcl_LpopObjCmd(
26062604
TCL_UNUSED(void *),
26072605
Tcl_Interp *interp, /* Current interpreter. */
26082606
int objc, /* Number of arguments. */
2609-
Tcl_Obj *const objv[])
2610-
/* Argument objects. */
2607+
Tcl_Obj *const objv[]) /* Argument objects. */
26112608
{
26122609
Tcl_Size listLen;
26132610
int copied = 0, result;
@@ -2725,8 +2722,7 @@ Tcl_LrangeObjCmd(
27252722
TCL_UNUSED(void *),
27262723
Tcl_Interp *interp, /* Current interpreter. */
27272724
int objc, /* Number of arguments. */
2728-
Tcl_Obj *const objv[])
2729-
/* Argument objects. */
2725+
Tcl_Obj *const objv[]) /* Argument objects. */
27302726
{
27312727
int result;
27322728
Tcl_Size listLen, first, last;
@@ -2937,9 +2933,8 @@ int
29372933
Tcl_LrepeatObjCmd(
29382934
TCL_UNUSED(void *),
29392935
Tcl_Interp *interp, /* Current interpreter. */
2940-
int objc, /* Number of arguments. */
2941-
Tcl_Obj *const objv[])
2942-
/* The argument objects. */
2936+
int objc, /* Number of arguments. */
2937+
Tcl_Obj *const objv[]) /* The argument objects. */
29432938
{
29442939
Tcl_WideInt elementCount, i;
29452940
Tcl_Size totalElems;
@@ -5361,7 +5356,7 @@ DictionaryCompare(
53615356
int secondaryDiff = 0;
53625357

53635358
while (1) {
5364-
if (isdigit(UCHAR(*right)) /* INTL: digit */
5359+
if (isdigit(UCHAR(*right)) /* INTL: digit */
53655360
&& isdigit(UCHAR(*left))) { /* INTL: digit */
53665361
/*
53675362
* There are decimal numbers embedded in the two strings. Compare

‎generic/tclCompCmds.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3346,7 +3346,7 @@ TclCompileFormatCmd(
33463346
start = TclGetString(formatObj);
33473347
/* The start of the currently-scanned literal
33483348
* in the format string. */
3349-
TclNewObj(tmpObj); /* The buffer used to accumulate the literal
3349+
TclNewObj(tmpObj); /* The buffer used to accumulate the literal
33503350
* being built. */
33513351
for (bytes = start ; *bytes ; bytes++) {
33523352
if (*bytes == '%') {

‎generic/tclCompile.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2639,7 +2639,7 @@ TclCompileCmdWord(
26392639
Tcl_Interp *interp, /* Used for error and status reporting. */
26402640
Tcl_Token *tokenPtr, /* Pointer to first in an array of tokens for
26412641
* a command word to compile inline. */
2642-
size_t count1, /* Number of tokens to consider at tokenPtr.
2642+
size_t count1, /* Number of tokens to consider at tokenPtr.
26432643
* Must be at least 1. */
26442644
CompileEnv *envPtr) /* Holds the resulting instructions. */
26452645
{

‎generic/tclDictObj.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1265,7 +1265,7 @@ Tcl_DictObjNext(
12651265

12661266
void
12671267
Tcl_DictObjDone(
1268-
Tcl_DictSearch *searchPtr) /* Pointer to a hash search context. */
1268+
Tcl_DictSearch *searchPtr) /* Pointer to a hash search context. */
12691269
{
12701270
Dict *dict;
12711271

‎generic/tclEncoding.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3057,7 +3057,7 @@ Utf16ToUtfProc(
30573057
if (PROFILE_STRICT(flags)) {
30583058
result = TCL_CONVERT_SYNTAX;
30593059
src -= 2; /* Go back to beginning of high surrogate */
3060-
dst--; /* Also undo writing a single byte too much */
3060+
dst--; /* Also undo writing a single byte too much */
30613061
break;
30623062
}
30633063
if (PROFILE_REPLACE(flags)) {

‎generic/tclExecute.c

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9560,7 +9560,7 @@ TclExprFloatError(
95609560

95619561
int
95629562
TclLog2(
9563-
int value) /* The integer for which to compute the log
9563+
int value) /* The integer for which to compute the log
95649564
* base 2. */
95659565
{
95669566
int n = value;

‎generic/tclHash.c

Lines changed: 2 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -104,8 +104,7 @@ const Tcl_HashKeyType tclStringHashKeyType = {
104104

105105
void
106106
Tcl_InitHashTable(
107-
Tcl_HashTable *tablePtr,
108-
/* Pointer to table record, which is supplied
107+
Tcl_HashTable *tablePtr, /* Pointer to table record, which is supplied
109108
* by the caller. */
110109
int keyType) /* Type of keys to use in table:
111110
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS, or an
@@ -142,8 +141,7 @@ Tcl_InitHashTable(
142141

143142
void
144143
Tcl_InitCustomHashTable(
145-
Tcl_HashTable *tablePtr,
146-
/* Pointer to table record, which is supplied
144+
Tcl_HashTable *tablePtr, /* Pointer to table record, which is supplied
147145
* by the caller. */
148146
int keyType, /* Type of keys to use in table:
149147
* TCL_STRING_KEYS, TCL_ONE_WORD_KEYS,

‎generic/tclIO.c

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -336,27 +336,27 @@ static void FreeChannelInternalRep(Tcl_Obj *objPtr);
336336

337337
static const Tcl_ObjType chanObjType = {
338338
"channel", /* name for this type */
339-
FreeChannelInternalRep, /* freeIntRepProc */
340-
DupChannelInternalRep, /* dupIntRepProc */
339+
FreeChannelInternalRep, /* freeIntRepProc */
340+
DupChannelInternalRep, /* dupIntRepProc */
341341
NULL, /* updateStringProc */
342342
NULL, /* setFromAnyProc */
343343
TCL_OBJTYPE_V0
344344
};
345345

346-
#define ChanSetInternalRep(objPtr, resPtr) \
346+
#define ChanSetInternalRep(objPtr, resPtr) \
347347
do { \
348348
Tcl_ObjInternalRep ir; \
349349
(resPtr)->refCount++; \
350350
ir.twoPtrValue.ptr1 = (resPtr); \
351351
ir.twoPtrValue.ptr2 = NULL; \
352-
Tcl_StoreInternalRep((objPtr), &chanObjType, &ir); \
352+
Tcl_StoreInternalRep((objPtr), &chanObjType, &ir); \
353353
} while (0)
354354

355-
#define ChanGetInternalRep(objPtr, resPtr) \
355+
#define ChanGetInternalRep(objPtr, resPtr) \
356356
do { \
357-
const Tcl_ObjInternalRep *irPtr; \
357+
const Tcl_ObjInternalRep *irPtr; \
358358
irPtr = TclFetchInternalRep((objPtr), &chanObjType); \
359-
(resPtr) = irPtr ? (ResolvedChanName *)irPtr->twoPtrValue.ptr1 : NULL; \
359+
(resPtr) = irPtr ? (ResolvedChanName *)irPtr->twoPtrValue.ptr1 : NULL; \
360360
} while (0)
361361

362362
#define BUSY_STATE(st, fl) \

0 commit comments

Comments
 (0)