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/tclIO.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/tclIO.c')
-rw-r--r-- | generic/tclIO.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/generic/tclIO.c b/generic/tclIO.c index adf6e83..527d697 100644 --- a/generic/tclIO.c +++ b/generic/tclIO.c @@ -10,7 +10,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclIO.c,v 1.68 2003/04/22 23:20:41 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIO.c,v 1.69 2003/12/24 04:18:19 davygrvy Exp $ */ #include "tclInt.h" @@ -758,7 +758,7 @@ Tcl_RegisterChannel(interp, chan) statePtr = chanPtr->state; if (statePtr->channelName == (CONST char *) NULL) { - panic("Tcl_RegisterChannel: channel without name"); + Tcl_Panic("Tcl_RegisterChannel: channel without name"); } if (interp != (Tcl_Interp *) NULL) { hTblPtr = GetChannelTable(interp); @@ -768,7 +768,7 @@ Tcl_RegisterChannel(interp, chan) return; } - panic("Tcl_RegisterChannel: duplicate channel names"); + Tcl_Panic("Tcl_RegisterChannel: duplicate channel names"); } Tcl_SetHashValue(hPtr, (ClientData) chanPtr); } @@ -1126,7 +1126,7 @@ Tcl_CreateChannel(typePtr, chanName, instanceData, mask) statePtr->channelName = tmp; strcpy(tmp, chanName); } else { - panic("Tcl_CreateChannel: NULL channel name"); + Tcl_Panic("Tcl_CreateChannel: NULL channel name"); } statePtr->flags = mask; @@ -2245,7 +2245,7 @@ CloseChannel(interp, chanPtr, errorCode) */ if (statePtr->outQueueHead != (ChannelBuffer *) NULL) { - panic("TclFlush, closed channel: queued output left"); + Tcl_Panic("TclFlush, closed channel: queued output left"); } /* @@ -2403,7 +2403,7 @@ Tcl_CutChannel(chan) /* Empty loop body. */ } if (prevCSPtr == (ChannelState *) NULL) { - panic("FlushChannel: damaged channel list"); + Tcl_Panic("FlushChannel: damaged channel list"); } prevCSPtr->nextCSPtr = statePtr->nextCSPtr; } @@ -2450,7 +2450,7 @@ Tcl_SpliceChannel(chan) ChannelState *statePtr = ((Channel *) chan)->state; if (statePtr->nextCSPtr != (ChannelState *) NULL) { - panic("Tcl_SpliceChannel: trying to add channel used in different list"); + Tcl_Panic("Tcl_SpliceChannel: trying to add channel used in different list"); } statePtr->nextCSPtr = tsdPtr->firstCSPtr; @@ -2527,7 +2527,7 @@ Tcl_Close(interp, chan) chanPtr = statePtr->topChanPtr; if (statePtr->refCount > 0) { - panic("called Tcl_Close on channel with refCount > 0"); + Tcl_Panic("called Tcl_Close on channel with refCount > 0"); } /* @@ -6066,7 +6066,7 @@ Tcl_BadChannelOption(interp, optionName, optionList) } if (Tcl_SplitList(interp, Tcl_DStringValue(&ds), &argc, &argv) != TCL_OK) { - panic("malformed option list in channel driver"); + Tcl_Panic("malformed option list in channel driver"); } Tcl_ResetResult(interp); Tcl_AppendResult(interp, "bad option \"", optionName, @@ -8083,7 +8083,7 @@ CopyAndTranslateBuffer(statePtr, result, space) break; } default: { - panic("unknown eol translation mode"); + Tcl_Panic("unknown eol translation mode"); } } @@ -8334,9 +8334,9 @@ DoWrite(chanPtr, src, srcLen) } break; case TCL_TRANSLATE_AUTO: - panic("Tcl_Write: AUTO output translation mode not supported"); + Tcl_Panic("Tcl_Write: AUTO output translation mode not supported"); default: - panic("Tcl_Write: unknown output translation mode"); + Tcl_Panic("Tcl_Write: unknown output translation mode"); } /* |