diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-31 13:27:28 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-01-31 13:27:28 (GMT) |
commit | 4a6021fe4842ba393545d968beed09fa19745a22 (patch) | |
tree | 5ce71463c7228e4d0c14a757255d6ae02d632a60 /generic/tclObj.c | |
parent | 1c6496c269fc6be350eae56e9b2351ce6e7e6dac (diff) | |
parent | a5fff7a94743517ada1b332a259ccfa63bb89570 (diff) | |
download | tcl-4a6021fe4842ba393545d968beed09fa19745a22.zip tcl-4a6021fe4842ba393545d968beed09fa19745a22.tar.gz tcl-4a6021fe4842ba393545d968beed09fa19745a22.tar.bz2 |
Update documentation on recent changes in Tcl_LinkVar.
Minor code clean-up. No functional changes.
Diffstat (limited to 'generic/tclObj.c')
-rw-r--r-- | generic/tclObj.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclObj.c b/generic/tclObj.c index d0f7480..90df579 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2785,7 +2785,7 @@ Tcl_GetLongFromObj( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected integer but got \"%s\"", - Tcl_GetString(objPtr))); + TclGetString(objPtr))); Tcl_SetErrorCode(interp, "TCL", "VALUE", "INTEGER", NULL); } return TCL_ERROR; @@ -3086,7 +3086,7 @@ Tcl_GetWideIntFromObj( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected integer but got \"%s\"", - Tcl_GetString(objPtr))); + TclGetString(objPtr))); Tcl_SetErrorCode(interp, "TCL", "VALUE", "INTEGER", NULL); } return TCL_ERROR; @@ -3415,7 +3415,7 @@ GetBignumFromObj( if (interp != NULL) { Tcl_SetObjResult(interp, Tcl_ObjPrintf( "expected integer but got \"%s\"", - Tcl_GetString(objPtr))); + TclGetString(objPtr))); Tcl_SetErrorCode(interp, "TCL", "VALUE", "INTEGER", NULL); } return TCL_ERROR; @@ -3965,7 +3965,7 @@ TclCompareObjKeys( Tcl_Obj *objPtr1 = keyPtr; Tcl_Obj *objPtr2 = (Tcl_Obj *) hPtr->key.oneWordValue; register const char *p1, *p2; - register int l1, l2; + register size_t l1, l2; /* * If the object pointers are the same then they match. |