diff options
| author | nijtmans <nijtmans> | 2010-09-23 21:40:45 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-09-23 21:40:45 (GMT) |
| commit | a186bdb4397f2d831f6bb04e453fdf14e21c9c97 (patch) | |
| tree | 1a72c5d9af6e0014b67853684fda5e42710dcef6 /unix | |
| parent | 8691a6254e1afce0248c4ff5807236e23e1167a0 (diff) | |
| download | tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.zip tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.tar.gz tcl-a186bdb4397f2d831f6bb04e453fdf14e21c9c97.tar.bz2 | |
Make Tcl_SetPanicProc and Tcl_GetStringResult callable without stubs, just as Tcl_SetVar.
Diffstat (limited to 'unix')
| -rw-r--r-- | unix/tclAppInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index 297a83a..a74fec8 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.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: tclAppInit.c,v 1.23 2010/09/23 09:18:59 nijtmans Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.24 2010/09/23 21:40:46 nijtmans Exp $ */ #include "tcl.h" @@ -104,7 +104,7 @@ int Tcl_AppInit( Tcl_Interp *interp) /* Interpreter for application. */ { - if (Tcl_Init(interp) == TCL_ERROR) { + if ((Tcl_Init)(interp) == TCL_ERROR) { return TCL_ERROR; } |