diff options
| author | dgp <dgp@users.sourceforge.net> | 2017-02-02 20:33:26 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2017-02-02 20:33:26 (GMT) |
| commit | fde54630a50333ae0f265cf1a16afedad47ad6eb (patch) | |
| tree | 2fb0aa484b7475055fb12efb570c9c8313a643e7 /generic/tclObj.c | |
| parent | d72bb516ef8cc05c697eab73902f02957f60aadf (diff) | |
| parent | 5fdbd4a749d1133304d1abe2a3ed5ea494b1178b (diff) | |
| download | tcl-fde54630a50333ae0f265cf1a16afedad47ad6eb.zip tcl-fde54630a50333ae0f265cf1a16afedad47ad6eb.tar.gz tcl-fde54630a50333ae0f265cf1a16afedad47ad6eb.tar.bz2 | |
merge trunk
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 5968ff9..9b43120 100644 --- a/generic/tclObj.c +++ b/generic/tclObj.c @@ -2983,7 +2983,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; @@ -3282,7 +3282,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; @@ -3616,7 +3616,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; @@ -4166,7 +4166,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. |