diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-20 18:11:35 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2013-10-20 18:11:35 (GMT) |
| commit | 39e314ad912cdbd29ba3e01673b1097b40118f8b (patch) | |
| tree | 8d2cc46c815847369fee10486b2370ab7340257f /generic/tclCompCmdsGR.c | |
| parent | acfb2a50369dae9afcf444519e5d3875812d5a3b (diff) | |
| download | tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.zip tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.tar.gz tcl-39e314ad912cdbd29ba3e01673b1097b40118f8b.tar.bz2 | |
And the last bits that need fixing; the code is still less efficient than desired but should now not crash.dkf_loop_exception_range_work
Diffstat (limited to 'generic/tclCompCmdsGR.c')
| -rw-r--r-- | generic/tclCompCmdsGR.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclCompCmdsGR.c b/generic/tclCompCmdsGR.c index fbd370b..d00327d 100644 --- a/generic/tclCompCmdsGR.c +++ b/generic/tclCompCmdsGR.c @@ -2381,6 +2381,10 @@ TclCompileReturnCmd( * Scan through the return options. If any are unknown at compile time, * there is no value in bytecompiling. Save the option values known in an * objv array for merging into a return options dictionary. + * + * TODO: There is potential for improvement if all option keys are known + * at compile time and all option values relating to '-code' and '-level' + * are known at compile time. */ for (objc = 0; objc < numOptionWords; objc++) { @@ -2388,7 +2392,7 @@ TclCompileReturnCmd( Tcl_IncrRefCount(objv[objc]); if (!TclWordKnownAtCompileTime(wordTokenPtr, objv[objc])) { /* - * Non-literal, so punt to run-time. + * Non-literal, so punt to run-time assembly of the dictionary. */ for (; objc>=0 ; objc--) { |