diff options
author | dkf <dkf@noemail.net> | 2008-09-28 22:17:36 (GMT) |
---|---|---|
committer | dkf <dkf@noemail.net> | 2008-09-28 22:17:36 (GMT) |
commit | 67c522f69a744333457b8c3deaa994d65556db1d (patch) | |
tree | 33b115c93550ac4c16da41b57aba376b6af847bd /generic/tclCompCmds.c | |
parent | 181f8b872fa553aea0f792fb2f7fed70a05ba9d7 (diff) | |
download | tcl-67c522f69a744333457b8c3deaa994d65556db1d.zip tcl-67c522f69a744333457b8c3deaa994d65556db1d.tar.gz tcl-67c522f69a744333457b8c3deaa994d65556db1d.tar.bz2 |
Implement TIP 314. [Patch 1901783]
FossilOrigin-Name: 9834451d3acb1d6549f18054b459384588f0718d
Diffstat (limited to 'generic/tclCompCmds.c')
-rw-r--r-- | generic/tclCompCmds.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index dae4417..877bb11 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -12,7 +12,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompCmds.c,v 1.146 2008/07/27 22:18:22 nijtmans Exp $ + * RCS: @(#) $Id: tclCompCmds.c,v 1.147 2008/09/28 22:17:39 dkf Exp $ */ #include "tclInt.h" @@ -6219,6 +6219,20 @@ TclCompileEnsemble( } /* + * Also refuse to compile anything that uses a formal parameter list for + * now, on the grounds that it is too complex. + */ + + if (Tcl_GetEnsembleParameterList(NULL, ensemble, &listObj) != TCL_OK + || listObj != NULL) { + /* + * Figuring out how to compile this has become too much. Bail out. + */ + + return TCL_ERROR; + } + + /* * Next, get the flags. We need them on several code paths. */ |