diff options
| -rw-r--r-- | mac/tclMacChan.c | 4 | ||||
| -rw-r--r-- | unix/tclUnixChan.c | 6 | ||||
| -rw-r--r-- | win/tclWinChan.c | 6 |
3 files changed, 8 insertions, 8 deletions
diff --git a/mac/tclMacChan.c b/mac/tclMacChan.c index b05d2f5..e11e47d 100644 --- a/mac/tclMacChan.c +++ b/mac/tclMacChan.c @@ -731,7 +731,7 @@ TclGetDefaultStdChannel( /* *---------------------------------------------------------------------- * - * Tcl_OpenFileChannel -- + * TclpOpenFileChannel -- * * Open an File based channel on Unix systems. * @@ -747,7 +747,7 @@ TclGetDefaultStdChannel( */ Tcl_Channel -Tcl_OpenFileChannel( +TclpOpenFileChannel( Tcl_Interp *interp, /* Interpreter for error reporting; * can be NULL. */ char *fileName, /* Name of file to open. */ diff --git a/unix/tclUnixChan.c b/unix/tclUnixChan.c index 2c0e996..c194b66 100644 --- a/unix/tclUnixChan.c +++ b/unix/tclUnixChan.c @@ -1150,7 +1150,7 @@ TtyParseMode(interp, mode, speedPtr, parityPtr, dataPtr, stopPtr) /* *---------------------------------------------------------------------- * - * Tcl_OpenFileChannel -- + * TclpOpenFileChannel -- * * Open an file based channel on Unix systems. * @@ -1167,7 +1167,7 @@ TtyParseMode(interp, mode, speedPtr, parityPtr, dataPtr, stopPtr) */ Tcl_Channel -Tcl_OpenFileChannel(interp, fileName, modeString, permissions) +TclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp *interp; /* Interpreter for error reporting; * can be NULL. */ char *fileName; /* Name of file to open. */ @@ -1201,7 +1201,7 @@ Tcl_OpenFileChannel(interp, fileName, modeString, permissions) /* * This may occurr if modeString was "", for example. */ - panic("Tcl_OpenFileChannel: invalid mode value"); + panic("TclpOpenFileChannel: invalid mode value"); return NULL; } diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 248e14b..76382d9 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -826,7 +826,7 @@ ComGetOptionProc(instanceData, interp, optionName, dsPtr) /* *---------------------------------------------------------------------- * - * Tcl_OpenFileChannel -- + * TclpOpenFileChannel -- * * Open an File based channel on Unix systems. * @@ -842,7 +842,7 @@ ComGetOptionProc(instanceData, interp, optionName, dsPtr) */ Tcl_Channel -Tcl_OpenFileChannel(interp, fileName, modeString, permissions) +TclpOpenFileChannel(interp, fileName, modeString, permissions) Tcl_Interp *interp; /* Interpreter for error reporting; * can be NULL. */ char *fileName; /* Name of file to open. */ @@ -889,7 +889,7 @@ Tcl_OpenFileChannel(interp, fileName, modeString, permissions) channelPermissions = (TCL_READABLE | TCL_WRITABLE); break; default: - panic("Tcl_OpenFileChannel: invalid mode value"); + panic("TclpOpenFileChannel: invalid mode value"); break; } |