diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-25 20:46:41 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-08-25 20:46:41 (GMT) |
| commit | 143111498e3979e4fdec779ec707746b70a56e0c (patch) | |
| tree | 27ecfbc3c6dab3eaf51f2e8df1186dda00516173 /generic/tclExecute.c | |
| parent | abe4d4223da114bb82cca35dc22618f25847668f (diff) | |
| parent | ec609cef016b8d3c191e599f4ca70aace4e11c53 (diff) | |
| download | tcl-143111498e3979e4fdec779ec707746b70a56e0c.zip tcl-143111498e3979e4fdec779ec707746b70a56e0c.tar.gz tcl-143111498e3979e4fdec779ec707746b70a56e0c.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 6221c19..19a8a4f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -8691,9 +8691,10 @@ PrintByteCodeInfo( 0.0); #ifdef TCL_COMPILE_STATS - fprintf(stdout, " Code %" TCL_Z_MODIFIER "u = header %" TCL_Z_MODIFIER "u+inst %" TCL_Z_MODIFIER "u+litObj %" TCL_Z_MODIFIER "u+exc %" TCL_Z_MODIFIER "u+aux %" TCL_Z_MODIFIER "u+cmdMap %" TCL_Z_MODIFIER "u\n", + fprintf(stdout, " Code %" TCL_Z_MODIFIER "u = header %" TCL_Z_MODIFIER "u+inst %" TCL_Z_MODIFIER + "u+litObj %" TCL_Z_MODIFIER "u+exc %" TCL_Z_MODIFIER "u+aux %" TCL_Z_MODIFIER "u+cmdMap %" TCL_Z_MODIFIER "u\n", codePtr->structureSize, - sizeof(ByteCode)-sizeof(size_t)-sizeof(Tcl_Time), + offsetof(ByteCode, localCachePtr), codePtr->numCodeBytes, codePtr->numLitObjects * sizeof(Tcl_Obj *), codePtr->numExceptRanges*sizeof(ExceptionRange), @@ -9327,7 +9328,7 @@ EvalStatsCmd( numCurrentByteCodes = statsPtr->numCompilations - statsPtr->numByteCodesFreed; currentHeaderBytes = numCurrentByteCodes - * (sizeof(ByteCode) - sizeof(size_t) - sizeof(Tcl_Time)); + * offsetof(ByteCode, localCachePtr); literalMgmtBytes = sizeof(LiteralTable) + (iPtr->literalTable.numBuckets * sizeof(LiteralEntry *)) + (iPtr->literalTable.numEntries * sizeof(LiteralEntry)); |