Tcl Source Code

Check-in [772c763815]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix bug [e663138a06]: Test failures in "string is"
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:772c763815ff8c3dded72fcc0b03471374106f08
User & Date: jan.nijtmans 2014-04-10 07:57:18
References
2014-04-10
07:55 Closed ticket [e663138a06]: Test failures in "string is" plus 7 other changes artifact: f97e8622b1 user: jan.nijtmans
Context
2014-04-10
13:59
[792641f95b]: Normalized win32 paths should never contain backslash. check-in: 578237c4c6 user: jan.nijtmans tags: trunk
07:57
Fix bug [e663138a06]: Test failures in "string is" check-in: 772c763815 user: jan.nijtmans tags: trunk
2014-04-08
15:02
Provide full Tcl patchlevel to tcl.pc and move private libs to "Libs.private". Record the fact that... check-in: 667dfe5615 user: jan.nijtmans tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclExecute.c.

5986
5987
5988
5989
5990
5991
5992









5993
5994
5995
5996
5997
5998
5999
	int type1, type2;
	long l1, l2, lResult;

    case INST_NUM_TYPE:
	if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) {
	    type1 = 0;
	}









	TclNewIntObj(objResultPtr, type1);
	TRACE(("\"%.20s\" => %d\n", O2S(OBJ_AT_TOS), type1));
	NEXT_INST_F(1, 1, 1);

    case INST_EQ:
    case INST_NEQ:
    case INST_LT:







>
>
>
>
>
>
>
>
>







5986
5987
5988
5989
5990
5991
5992
5993
5994
5995
5996
5997
5998
5999
6000
6001
6002
6003
6004
6005
6006
6007
6008
	int type1, type2;
	long l1, l2, lResult;

    case INST_NUM_TYPE:
	if (GetNumberFromObj(NULL, OBJ_AT_TOS, &ptr1, &type1) != TCL_OK) {
	    type1 = 0;
	}
#ifndef TCL_WIDE_INT_IS_LONG
	else if (type1 == TCL_NUMBER_WIDE) {
		/** See bug [e663138a06] */
	    Tcl_WideInt value = (OBJ_AT_TOS)->internalRep.wideValue;
	    if ((-value <= ULONG_MAX) && (value <= ULONG_MAX)) {
		type1 = TCL_NUMBER_LONG;
	    }
	}
#endif
	TclNewIntObj(objResultPtr, type1);
	TRACE(("\"%.20s\" => %d\n", O2S(OBJ_AT_TOS), type1));
	NEXT_INST_F(1, 1, 1);

    case INST_EQ:
    case INST_NEQ:
    case INST_LT: