diff options
| author | davygrvy <davygrvy@pobox.com> | 2003-12-24 04:18:18 (GMT) |
|---|---|---|
| committer | davygrvy <davygrvy@pobox.com> | 2003-12-24 04:18:18 (GMT) |
| commit | 5d224fb11538aa654ba2028f75e5ffa06df2c579 (patch) | |
| tree | eff546c6e792fecd4310f81379419c1d68d63c28 /generic/tclCmdAH.c | |
| parent | bdb55bff6176c625c664d4ea5a4ec5187839d7a8 (diff) | |
| download | tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.zip tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.gz tcl-5d224fb11538aa654ba2028f75e5ffa06df2c579.tar.bz2 | |
All uses of 'panic' (the macro) changed
to 'Tcl_Panic' (the function). The #define
of panic in tcl.h clearly states it is
deprecated in the comments.
[Patch 865264]
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c index 41c9873..48d3101 100644 --- a/generic/tclCmdAH.c +++ b/generic/tclCmdAH.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCmdAH.c,v 1.38 2003/12/17 17:47:28 vincentdarley Exp $ + * RCS: @(#) $Id: tclCmdAH.c,v 1.39 2003/12/24 04:18:18 davygrvy Exp $ */ #include "tclInt.h" @@ -1906,12 +1906,12 @@ Tcl_ForeachObjCmd(dummy, interp, objc, objv) result = Tcl_ListObjGetElements(interp, argObjv[1+i*2], &varcList[i], &varvList[i]); if (result != TCL_OK) { - panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object\n", i); + Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert variable list %d to a list object\n", i); } result = Tcl_ListObjGetElements(interp, argObjv[2+i*2], &argcList[i], &argvList[i]); if (result != TCL_OK) { - panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object\n", i); + Tcl_Panic("Tcl_ForeachObjCmd: could not reconvert value list %d to a list object\n", i); } for (v = 0; v < varcList[i]; v++) { |