diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-14 18:31:24 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-14 18:31:24 (GMT) |
| commit | 14994d8a856c6e59890aad6023793a6760c98e1a (patch) | |
| tree | 1c5559c8ce5c44ad2f0275b5c0bc56d0c65cbab8 /generic/tclCompile.h | |
| parent | 5e1789954df3a512ab8d71df2c60ffb6ea72b777 (diff) | |
| parent | 919ec44584344d71c8ddad8d14d58adfdec28e8b (diff) | |
| download | tcl-14994d8a856c6e59890aad6023793a6760c98e1a.zip tcl-14994d8a856c6e59890aad6023793a6760c98e1a.tar.gz tcl-14994d8a856c6e59890aad6023793a6760c98e1a.tar.bz2 | |
Merge trunk. Some more size_t additions in parameters/fields
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index d7b2a97..4033134 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -1000,7 +1000,7 @@ MODULE_SCOPE const AuxDataType tclJumptableInfoType; */ typedef struct { - int length; /* Size of array */ + size_t length; /* Size of array */ int varIndices[1]; /* Array of variable indices to manage when * processing the start and end of a [dict * update]. There is really more than one @@ -1166,7 +1166,7 @@ MODULE_SCOPE int TclWordKnownAtCompileTime(Tcl_Token *tokenPtr, Tcl_Obj *valuePtr); MODULE_SCOPE void TclLogCommandInfo(Tcl_Interp *interp, const char *script, const char *command, - int length, const unsigned char *pc, + size_t length, const unsigned char *pc, Tcl_Obj **tosPtr); MODULE_SCOPE Tcl_Obj *TclGetInnerContext(Tcl_Interp *interp, const unsigned char *pc, Tcl_Obj **tosPtr); @@ -1505,7 +1505,7 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, * these macros are: * * static void PushLiteral(CompileEnv *envPtr, - * const char *string, int length); + * const char *string, size_t length); * static void PushStringLiteral(CompileEnv *envPtr, * const char *string); */ @@ -1513,7 +1513,7 @@ MODULE_SCOPE int TclPushProcCallFrame(void *clientData, #define PushLiteral(envPtr, string, length) \ TclEmitPush(TclRegisterLiteral(envPtr, string, length, 0), (envPtr)) #define PushStringLiteral(envPtr, string) \ - PushLiteral(envPtr, string, (int) (sizeof(string "") - 1)) + PushLiteral(envPtr, string, sizeof(string "") - 1) /* * Macro to advance to the next token; it is more mnemonic than the address |