diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-25 13:22:46 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-10-25 13:22:46 (GMT) |
commit | 3bbc297ec7cefc93fa96031c1d149c79734c4555 (patch) | |
tree | 524add222ec6eec44a35d9dc9095390fa17b7752 /generic/tclCompile.h | |
parent | 415503775a3b650db8252a333b5f3c21b02d3c24 (diff) | |
parent | d33fc57550e1921bfadb8fe4b90d7e55bf23e6f5 (diff) | |
download | tcl-3bbc297ec7cefc93fa96031c1d149c79734c4555.zip tcl-3bbc297ec7cefc93fa96031c1d149c79734c4555.tar.gz tcl-3bbc297ec7cefc93fa96031c1d149c79734c4555.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclCompile.h')
-rw-r--r-- | generic/tclCompile.h | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index b88fa4c..30b1819 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1533,15 +1533,15 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, * these macros are: * * static void PushLiteral(CompileEnv *envPtr, - * const char *string, size_t length); + * const char *string, Tcl_Size length); * static void PushStringLiteral(CompileEnv *envPtr, * const char *string); */ #define PushLiteral(envPtr, string, length) \ - TclEmitPush(TclRegisterLiteral(envPtr, string, length, 0), (envPtr)) + TclEmitPush(TclRegisterLiteral((envPtr), (string), (length), 0), (envPtr)) #define PushStringLiteral(envPtr, string) \ - PushLiteral(envPtr, string, sizeof(string "") - 1) + PushLiteral((envPtr), (string), sizeof(string "") - 1) /* * Macro to advance to the next token; it is more mnemonic than the address @@ -1570,16 +1570,16 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, * of LOOP ranges is an interesting datum for debugging purposes, and that is * what we compute now. * - * static int ExceptionRangeStarts(CompileEnv *envPtr, size_t index); - * static void ExceptionRangeEnds(CompileEnv *envPtr, size_t index); - * static void ExceptionRangeTarget(CompileEnv *envPtr, size_t index, LABEL); + * static int ExceptionRangeStarts(CompileEnv *envPtr, Tcl_Size index); + * static void ExceptionRangeEnds(CompileEnv *envPtr, Tcl_Size index); + * static void ExceptionRangeTarget(CompileEnv *envPtr, Tcl_Size index, LABEL); */ #define ExceptionRangeStarts(envPtr, index) \ (((envPtr)->exceptDepth++), \ ((envPtr)->maxExceptDepth = \ TclMax((envPtr)->exceptDepth, (envPtr)->maxExceptDepth)), \ - ((envPtr)->exceptArrayPtr[(index)].codeOffset= CurrentOffset(envPtr))) + ((envPtr)->exceptArrayPtr[(index)].codeOffset = CurrentOffset(envPtr))) #define ExceptionRangeEnds(envPtr, index) \ (((envPtr)->exceptDepth--), \ ((envPtr)->exceptArrayPtr[(index)].numCodeBytes = \ @@ -1631,7 +1631,7 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, #define DefineLineInformation \ ExtCmdLoc *mapPtr = envPtr->extCmdMapPtr; \ - size_t eclIndex = mapPtr->nuloc - 1 + Tcl_Size eclIndex = mapPtr->nuloc - 1 #define SetLineInformation(word) \ envPtr->line = mapPtr->loc[eclIndex].line[(word)]; \ @@ -1809,8 +1809,8 @@ MODULE_SCOPE void TclDTraceInfo(Tcl_Obj *info, const char **args, int *argsi); FILE *tclDTraceDebugLog = NULL; \ void TclDTraceOpenDebugLog(void) { \ char n[35]; \ - sprintf(n, "/tmp/tclDTraceDebug-%d.log", \ - getpid()); \ + sprintf(n, "/tmp/tclDTraceDebug-%" TCL_Z_MODIFIER "u.log", \ + (size_t) getpid()); \ tclDTraceDebugLog = fopen(n, "a"); \ } |