diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-01-27 17:52:39 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-01-27 17:52:39 (GMT) |
| commit | 3622a3fcdb4e18ef6d006b5924937b63da10190f (patch) | |
| tree | 3573f2810f2f91ea01b22041a8bc12ce642eeea3 /generic/tclProc.c | |
| parent | bd6cfd10bc969a1e4b2197ee8f4cb67b73371301 (diff) | |
| parent | 145a722d9c7cf75fdd5af99a1cbca4f6319b99ba (diff) | |
| download | tcl-3622a3fcdb4e18ef6d006b5924937b63da10190f.zip tcl-3622a3fcdb4e18ef6d006b5924937b63da10190f.tar.gz tcl-3622a3fcdb4e18ef6d006b5924937b63da10190f.tar.bz2 | |
merge novem
Diffstat (limited to 'generic/tclProc.c')
| -rw-r--r-- | generic/tclProc.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclProc.c b/generic/tclProc.c index a0f0a9e..1b4b061 100644 --- a/generic/tclProc.c +++ b/generic/tclProc.c @@ -500,7 +500,8 @@ TclCreateProc( } for (i = 0; i < numArgs; i++) { - int fieldCount, nameLength, valueLength; + int fieldCount, nameLength; + size_t valueLength; const char **fieldValues; /* @@ -602,12 +603,11 @@ TclCreateProc( */ if (localPtr->defValuePtr != NULL) { - int tmpLength; - const char *tmpPtr = TclGetStringFromObj(localPtr->defValuePtr, - &tmpLength); + const char *tmpPtr = TclGetString(localPtr->defValuePtr); + size_t tmpLength = localPtr->defValuePtr->length; if ((valueLength != tmpLength) || - strncmp(fieldValues[1], tmpPtr, (size_t) tmpLength)) { + strncmp(fieldValues[1], tmpPtr, tmpLength)) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "procedure \"%s\": formal parameter \"%s\" has " "default value inconsistent with precompiled body", |