diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-28 21:42:54 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2018-06-28 21:42:54 (GMT) |
| commit | 5248fb06510fd1e34b13f7c4a69404ab926cf2be (patch) | |
| tree | 8d4da3eb53f714af307b5c5255794d95ba0dcdff /generic/tclCompExpr.c | |
| parent | 94780336613da72b26e6572a616a2dfe9f087eca (diff) | |
| download | tcl-5248fb06510fd1e34b13f7c4a69404ab926cf2be.zip tcl-5248fb06510fd1e34b13f7c4a69404ab926cf2be.tar.gz tcl-5248fb06510fd1e34b13f7c4a69404ab926cf2be.tar.bz2 | |
More API changes using size_t. Internal changes not complete yet (WIP)
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 2b32ef3..f26f7fb 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -1819,7 +1819,7 @@ int Tcl_ParseExpr( Tcl_Interp *interp, /* Used for error reporting. */ const char *start, /* Start of source string to parse. */ - int numBytes, /* Number of bytes in string. If < 0, the + size_t xxx1, /* Number of bytes in string. If < 0, the * string consists of all bytes up to the * first null character. */ Tcl_Parse *parsePtr) /* Structure to fill with information about @@ -1827,6 +1827,7 @@ Tcl_ParseExpr( * information in the structure is ignored. */ { int code; + int numBytes = xxx1; OpNode *opTree = NULL; /* Will point to the tree of operators. */ Tcl_Obj *litList = Tcl_NewObj(); /* List to hold the literals. */ Tcl_Obj *funcList = Tcl_NewObj(); /* List to hold the functon names. */ |