diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-07 15:27:02 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2005-11-07 15:27:02 (GMT) |
| commit | cfc531110a22c8186df8056d27da13ca8d0fda25 (patch) | |
| tree | d65113dacfc85a526378474f801e67c99847d902 | |
| parent | d4069edbabee9a88778c02196a97fe0c9ac5a645 (diff) | |
| download | tcl-cfc531110a22c8186df8056d27da13ca8d0fda25.zip tcl-cfc531110a22c8186df8056d27da13ca8d0fda25.tar.gz tcl-cfc531110a22c8186df8056d27da13ca8d0fda25.tar.bz2 | |
ANSIfy
| -rw-r--r-- | generic/tclPanic.c | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/generic/tclPanic.c b/generic/tclPanic.c index b69706c..e7cac47 100644 --- a/generic/tclPanic.c +++ b/generic/tclPanic.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: tclPanic.c,v 1.7 2005/09/13 21:23:51 dgp Exp $ + * RCS: @(#) $Id: tclPanic.c,v 1.8 2005/11/07 15:27:02 dkf Exp $ */ #include "tclInt.h" @@ -48,8 +48,8 @@ static Tcl_PanicProc *CONST platformPanicProc = TclpPanic; */ void -Tcl_SetPanicProc(proc) - Tcl_PanicProc *proc; +Tcl_SetPanicProc( + Tcl_PanicProc *proc) { panicProc = proc; } @@ -71,10 +71,10 @@ Tcl_SetPanicProc(proc) */ void -Tcl_PanicVA(format, argList) - CONST char *format; /* Format string, suitable for passing to +Tcl_PanicVA( + CONST char *format, /* Format string, suitable for passing to * fprintf. */ - va_list argList; /* Variable argument list. */ + va_list argList) /* Variable argument list. */ { char *arg1, *arg2, *arg3, *arg4; /* Additional arguments (variable in * number) to pass to fprintf. */ @@ -122,7 +122,9 @@ Tcl_PanicVA(format, argList) /* ARGSUSED */ void -Tcl_Panic(CONST char *format, ...) +Tcl_Panic( + CONST char *format, + ...) { va_list argList; |