diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-26 08:37:09 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-01-26 08:37:09 (GMT) |
| commit | 789ce0b97106ca8a3f91ab68ddaaf1fa904dcace (patch) | |
| tree | dbfc9faeb241149d5f694a03985a4510813adf89 /generic/tclAssembly.c | |
| parent | bf32d5a0ab8f0030ffed9ba63186dbb3cdb02bdd (diff) | |
| download | tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.zip tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.tar.gz tcl-789ce0b97106ca8a3f91ab68ddaaf1fa904dcace.tar.bz2 | |
More WIP
Diffstat (limited to 'generic/tclAssembly.c')
| -rw-r--r-- | generic/tclAssembly.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclAssembly.c b/generic/tclAssembly.c index 8061f92..da55cea 100644 --- a/generic/tclAssembly.c +++ b/generic/tclAssembly.c @@ -1968,7 +1968,7 @@ CreateMirrorJumpTable( AssemblyEnv* assemEnvPtr, /* Assembly environment */ Tcl_Obj* jumps) /* List of alternating keywords and labels */ { - int objc; /* Number of elements in the 'jumps' list */ + size_t objc; /* Number of elements in the 'jumps' list */ Tcl_Obj** objv; /* Pointers to the elements in the list */ CompileEnv* envPtr = assemEnvPtr->envPtr; /* Compilation environment */ @@ -1981,9 +1981,9 @@ CreateMirrorJumpTable( Tcl_HashEntry* hashEntry; /* Entry for a key in the hashtable */ int isNew; /* Flag==1 if the key is not yet in the * table. */ - int i; + size_t i; - if (TclListObjGetElements_(interp, jumps, &objc, &objv) != TCL_OK) { + if (Tcl_ListObjGetElements(interp, jumps, &objc, &objv) != TCL_OK) { return TCL_ERROR; } if (objc % 2 != 0) { |