diff options
author | dgp <dgp@users.sourceforge.net> | 2005-05-05 15:32:17 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2005-05-05 15:32:17 (GMT) |
commit | 96349207cbe89f0e0d78bd3dff7a294bcc588c84 (patch) | |
tree | 6b13f676396eac36308dfc4b9dd0d1e7b714d1f1 /generic/tclInt.h | |
parent | 8f1d72dfe0e08b09f9985440a5e4f682804224ed (diff) | |
download | tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.zip tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.tar.gz tcl-96349207cbe89f0e0d78bd3dff7a294bcc588c84.tar.bz2 |
* generic/tclCompCmds.c: Replaced all instance of
* generic/tclCompile.c: TCL_OUT_LINE_COMPILE with TCL_ERROR.
* generic/tclInt.h: Now that we've eradicated the mistaken
* tests/appendComp.test: notion of a "compile-time error", we
can use the TCL_ERROR return code to signal any failure to produce
bytecode.
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e0779ef..b6f62dc 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -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: tclInt.h,v 1.226 2005/04/27 18:48:25 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.227 2005/05/05 15:32:20 dgp Exp $ */ #ifndef _TCLINT @@ -916,18 +916,21 @@ struct CompileEnv; * must be one of the following: * * TCL_OK Compilation completed normally. - * TCL_OUT_LINE_COMPILE Compilation could not be completed. This can + * TCL_ERROR Compilation could not be completed. This can * be just a judgment by the CompileProc that the * command is too complex to compile effectively, * or it can indicate that in the current state of * the interp, the command would raise an error. - * In the latter circumstance, we defer error reporting + * The bytecode compiler will not do any error reporting + * at compiler time. Error reporting is deferred * until the actual runtime, because by then changes * in the interp state may allow the command to be - * successfully evaluated. + * successfully evaluated. + * TCL_OUT_LINE_COMPILE A source-compatible alias for TCL_ERROR, kept + * for the sake of old code only. */ -#define TCL_OUT_LINE_COMPILE (TCL_CONTINUE + 1) +#define TCL_OUT_LINE_COMPILE TCL_ERROR typedef int (CompileProc) _ANSI_ARGS_((Tcl_Interp *interp, Tcl_Parse *parsePtr, struct CompileEnv *compEnvPtr)); |