diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-06 08:29:21 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-10-06 08:29:21 (GMT) |
commit | 07279b85ab489decd93b6f3bddeec091b8b43869 (patch) | |
tree | 3fc9fdac896940b4672f3c5dd1a15e8ed03fe866 /generic/tclProc.c | |
parent | 22a204efc2b5de6e1fd336e14c6350e5f8ceb9a8 (diff) | |
download | tcl-07279b85ab489decd93b6f3bddeec091b8b43869.zip tcl-07279b85ab489decd93b6f3bddeec091b8b43869.tar.gz tcl-07279b85ab489decd93b6f3bddeec091b8b43869.tar.bz2 |
Mark (internal) symbols which are going to be removed in 9.0 with "deprecated"
Diffstat (limited to 'generic/tclProc.c')
-rw-r--r-- | generic/tclProc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 4bf1593..95523a8 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -266,7 +266,7 @@ Tcl_ProcObjCmd( cfPtr->level = -1; cfPtr->type = contextPtr->type; - cfPtr->line = (int *)ckalloc(sizeof(int)); + cfPtr->line = (Tcl_Size *)ckalloc(sizeof(Tcl_Size)); cfPtr->line[0] = contextPtr->line[3]; cfPtr->nline = 1; cfPtr->framePtr = NULL; @@ -1671,7 +1671,7 @@ TclNRInterpProc( * interpreted. */ Tcl_Interp *interp,/* Interpreter in which procedure was * invoked. */ - int objc, /* Count of number of arguments to this + Tcl_Size objc, /* Count of number of arguments to this * procedure. */ Tcl_Obj *const objv[]) /* Argument value objects. */ { @@ -2556,7 +2556,7 @@ SetLambdaFromAny( if (contextPtr->line && (contextPtr->nline >= 2) && (contextPtr->line[1] >= 0)) { - int buf[2]; + Tcl_Size buf[2]; /* * Move from approximation (line of list cmd word) to actual @@ -2568,7 +2568,7 @@ SetLambdaFromAny( cfPtr->level = -1; cfPtr->type = contextPtr->type; - cfPtr->line = (int *)ckalloc(sizeof(int)); + cfPtr->line = (Tcl_Size *)ckalloc(sizeof(Tcl_Size)); cfPtr->line[0] = buf[1]; cfPtr->nline = 1; cfPtr->framePtr = NULL; |