diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-16 22:21:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-16 22:21:39 (GMT) |
| commit | 459642686539ca9da0448167dbbf7fef7435f864 (patch) | |
| tree | a1300aa0e7fe9cb8750adc5f3cfc7f371817094c /generic/tclProc.c | |
| parent | df7885a1af94256673ff9ee1beb659f201ac2578 (diff) | |
| download | tcl-459642686539ca9da0448167dbbf7fef7435f864.zip tcl-459642686539ca9da0448167dbbf7fef7435f864.tar.gz tcl-459642686539ca9da0448167dbbf7fef7435f864.tar.bz2 | |
Handle Tcl_GetCharLength
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index 45d1afd..75687f0 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -529,7 +529,7 @@ TclCreateProc( "FORMALARGUMENTFORMAT", NULL); goto procError; } - if ((fieldCount == 0) || (Tcl_GetCharLength(fieldValues[0]) == 0)) { + if ((fieldCount == 0) || (TclGetCharLength(fieldValues[0]) == 0)) { Tcl_SetObjResult(interp, Tcl_NewStringObj( "argument with no name", -1)); Tcl_SetErrorCode(interp, "TCL", "OPERATION", "PROC", |