Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | unproven |
| Files: | files | file ages | folders |
| SHA1: |
cab5f89bf722edda215d32949ec7aa58 |
| User & Date: | dgp 2011-07-12 14:42:55 |
Context
|
2011-07-12
| ||
| 14:54 | wip Closed-Leaf check-in: 9d53a9efed user: dgp tags: unproven | |
| 14:42 | wip check-in: cab5f89bf7 user: dgp tags: unproven | |
|
2011-07-11
| ||
| 18:47 | Type mismatches in *printf calls. check-in: 7af66811dc user: dgp tags: unproven | |
Changes
Changes to generic/tclCompile.c.
| ︙ | ︙ | |||
3551 3552 3553 3554 3555 3556 3557 |
(codePtr->numSrcBytes?
((float)codePtr->structureSize)/((float)codePtr->numSrcBytes) : 0.0));
#else
0.0);
#endif
#ifdef TCL_COMPILE_STATS
fprintf(stdout,
| | | | | | | | 3551 3552 3553 3554 3555 3556 3557 3558 3559 3560 3561 3562 3563 3564 3565 3566 3567 3568 3569 3570 3571 |
(codePtr->numSrcBytes?
((float)codePtr->structureSize)/((float)codePtr->numSrcBytes) : 0.0));
#else
0.0);
#endif
#ifdef TCL_COMPILE_STATS
fprintf(stdout,
" Code %u = header %u+inst %d+litObj %lu+exc %lu+aux %lu+cmdMap %d\n",
(unsigned int)codePtr->structureSize,
(unsigned int)(sizeof(ByteCode) - (sizeof(size_t) + sizeof(Tcl_Time))),
codePtr->numCodeBytes,
(unsigned long)(codePtr->numLitObjects * sizeof(Tcl_Obj *)),
(unsigned long)(codePtr->numExceptRanges * sizeof(ExceptionRange)),
(unsigned long)(codePtr->numAuxDataItems * sizeof(AuxData)),
codePtr->numCmdLocBytes);
#endif /* TCL_COMPILE_STATS */
/*
* If the ByteCode is the compiled body of a Tcl procedure, print
* information about that procedure. Note that we don't know the
* procedure's name since ByteCode's can be shared among procedures.
|
| ︙ | ︙ |