Tcl Source Code

Check-in [e144efef26]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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

Overview
Comment:Ok.. that was all it needed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tip-501
Files: files | file ages | folders
SHA3-256: e144efef26514f667d9b27f964d32e8a7d62cfc5ac0165977ebf2be8bf258663
User & Date: hypnotoad 2018-02-13 19:10:25
Context
2018-02-13
19:22
Correcting the string tests check-in: e43056cf4a user: hypnotoad tags: tip-501
19:10
Ok.. that was all it needed check-in: e144efef26 user: hypnotoad tags: tip-501
18:55
Implemetation of tip 501.

Note: The build fails with:

bad stack depth computations: is 0, should b... check-in: 46ed8c3c33 user: hypnotoad tags: tip-501

Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclCompCmdsSZ.c.

760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
	return TCL_OK;
    case STR_IS_DICT:
	range = TclCreateExceptRange(CATCH_EXCEPTION_RANGE, envPtr);
	OP4(		BEGIN_CATCH4, range);
	ExceptionRangeStarts(envPtr, range);
	OP(		DUP);
	OP(		DICT_VERIFY);
	OP(		POP);
	ExceptionRangeEnds(envPtr, range);
	ExceptionRangeTarget(envPtr, range, catchOffset);
	OP(		POP);
	OP(		PUSH_RETURN_CODE);
	OP(		END_CATCH);
	OP(		LNOT);
	return TCL_OK;






<







760
761
762
763
764
765
766

767
768
769
770
771
772
773
	return TCL_OK;
    case STR_IS_DICT:
	range = TclCreateExceptRange(CATCH_EXCEPTION_RANGE, envPtr);
	OP4(		BEGIN_CATCH4, range);
	ExceptionRangeStarts(envPtr, range);
	OP(		DUP);
	OP(		DICT_VERIFY);

	ExceptionRangeEnds(envPtr, range);
	ExceptionRangeTarget(envPtr, range, catchOffset);
	OP(		POP);
	OP(		PUSH_RETURN_CODE);
	OP(		END_CATCH);
	OP(		LNOT);
	return TCL_OK;