Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Repair failed refcounting. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
bd2ba2b4f4881d619482dd759c28426e |
| User & Date: | dgp 2016-08-25 15:25:48 |
Context
|
2016-08-26
| ||
| 12:16 | Use resolved built-in commands to avoid shadowing by child class methods. check-in: 72e57e75b5 user: dgp tags: trunk | |
|
2016-08-25
| ||
| 15:27 | merge trunk check-in: f21f3d75e2 user: dgp tags: dgp-method-type | |
| 15:25 | Repair failed refcounting. check-in: bd2ba2b4f4 user: dgp tags: trunk | |
|
2016-08-23
| ||
| 17:31 | Fix places where Tcl_CreateHashEntry() interface was used wrong. check-in: 162f4a8a4a user: dgp tags: trunk | |
Changes
Changes to generic/itclHelpers.c.
| ︙ | ︙ | |||
157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 |
*arglistPtrPtr = arglistPtr;
} else {
lastArglistPtr->nextPtr = arglistPtr;
Tcl_AppendToObj(*usagePtr, " ", 1);
}
arglistPtr->namePtr =
Tcl_NewStringObj(defaultArgv[0], -1);
(*maxArgcPtr)++;
if (defaultArgc == 1) {
(*argcPtr)++;
arglistPtr->defaultValuePtr = NULL;
if ((strcmp(defaultArgv[0], "args") == 0) && (i == argc-1)) {
hadArgsArgument = 1;
(*argcPtr)--;
Tcl_AppendToObj(*usagePtr, "?arg arg ...?", -1);
} else {
Tcl_AppendToObj(*usagePtr, defaultArgv[0], -1);
}
} else {
arglistPtr->defaultValuePtr =
Tcl_NewStringObj(defaultArgv[1], -1);
Tcl_AppendToObj(*usagePtr, "?", 1);
Tcl_AppendToObj(*usagePtr, defaultArgv[0], -1);
Tcl_AppendToObj(*usagePtr, "?", 1);
}
lastArglistPtr = arglistPtr;
i++;
ckfree((char *) defaultArgv);
| > > | 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 |
*arglistPtrPtr = arglistPtr;
} else {
lastArglistPtr->nextPtr = arglistPtr;
Tcl_AppendToObj(*usagePtr, " ", 1);
}
arglistPtr->namePtr =
Tcl_NewStringObj(defaultArgv[0], -1);
Tcl_IncrRefCount(arglistPtr->namePtr);
(*maxArgcPtr)++;
if (defaultArgc == 1) {
(*argcPtr)++;
arglistPtr->defaultValuePtr = NULL;
if ((strcmp(defaultArgv[0], "args") == 0) && (i == argc-1)) {
hadArgsArgument = 1;
(*argcPtr)--;
Tcl_AppendToObj(*usagePtr, "?arg arg ...?", -1);
} else {
Tcl_AppendToObj(*usagePtr, defaultArgv[0], -1);
}
} else {
arglistPtr->defaultValuePtr =
Tcl_NewStringObj(defaultArgv[1], -1);
Tcl_IncrRefCount(arglistPtr->defaultValuePtr);
Tcl_AppendToObj(*usagePtr, "?", 1);
Tcl_AppendToObj(*usagePtr, defaultArgv[0], -1);
Tcl_AppendToObj(*usagePtr, "?", 1);
}
lastArglistPtr = arglistPtr;
i++;
ckfree((char *) defaultArgv);
|
| ︙ | ︙ |