Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | improve fix from [d74c9c42c0] |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
ab2836e6c1dc53b8004b8f9d02bc673f |
| User & Date: | chw 2019-07-07 05:18:14.472 |
Context
|
2019-07-07
| ||
| 08:21 | cleanup missing pieces in tbcload and tclcompiler check-in: 7a110bb514 user: chw tags: trunk | |
| 05:18 | improve fix from [d74c9c42c0] check-in: ab2836e6c1 user: chw tags: trunk | |
| 04:51 | use curl option -sslverifypeer 0 in TSB's Northwind example check-in: 39ee1aca6e user: chw tags: trunk | |
Changes
Changes to undroid/tclcompiler/cmpWrite.c.
| ︙ | ︙ | |||
631 632 633 634 635 636 637 |
Interp *iPtr = (Interp *) interp;
Tcl_DString inBuffer, outBuffer;
char *nativeInName;
char *nativeOutName;
Tcl_Channel chan;
int result;
struct stat statBuf;
| | | 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 |
Interp *iPtr = (Interp *) interp;
Tcl_DString inBuffer, outBuffer;
char *nativeInName;
char *nativeOutName;
Tcl_Channel chan;
int result;
struct stat statBuf;
unsigned short fileMode;
Tcl_Obj *cmdObjPtr;
LiteralTable glt; /* Save buffer for global literals */
Tcl_ResetResult(interp);
Tcl_DStringInit(&inBuffer);
Tcl_DStringInit(&outBuffer);
|
| ︙ | ︙ | |||
3141 3142 3143 3144 3145 3146 3147 |
if (numChars > 50) {
numChars = 50;
ellipsis = "...";
}
sprintf(buf, "\n (compiling body of proc \"%.*s%s\", line %d)",
numChars, fullName, ellipsis, ERRORLINE(interp));
Tcl_AddObjErrorInfo(interp, buf, -1);
| | | 3141 3142 3143 3144 3145 3146 3147 3148 3149 3150 3151 3152 3153 3154 3155 |
if (numChars > 50) {
numChars = 50;
ellipsis = "...";
}
sprintf(buf, "\n (compiling body of proc \"%.*s%s\", line %d)",
numChars, fullName, ellipsis, ERRORLINE(interp));
Tcl_AddObjErrorInfo(interp, buf, -1);
}
goto cleanAndReturn;
}
ctxPtr->numCompiledBodies += 1;
/*
* Now that we have compiled the procedure, create a new TCL object
|
| ︙ | ︙ | |||
4550 4551 4552 4553 4554 4555 4556 |
/*
* We emit from least significant to most significant char, so that
* the 0 chars from an incomplete 4-tuple are the last ones in the
* sequence and can be omitted (for the last 4-tuple in the array).
*/
| | < < < < < | | < > | 4550 4551 4552 4553 4554 4555 4556 4557 4558 4559 4560 4561 4562 4563 4564 4565 4566 4567 |
/*
* We emit from least significant to most significant char, so that
* the 0 chars from an incomplete 4-tuple are the last ones in the
* sequence and can be omitted (for the last 4-tuple in the array).
*/
for (i=0 ; i < 5 ; i++) {
toEmit[i] = EN(word % 85UL);
word /= 85UL;
}
/*
* Emit only 'numBytes+1' chars, since the extra ones are all '!'
* and can therefore be reconstructed by the decoder (if we know the
* number of bytes that were encoded).
*/
|
| ︙ | ︙ |