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 /win | |
| 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 'win')
| -rw-r--r-- | win/tclAppInit.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win/tclAppInit.c b/win/tclAppInit.c index 2db61b0..48962c0 100644 --- a/win/tclAppInit.c +++ b/win/tclAppInit.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: tclAppInit.c,v 1.32 2010/09/23 09:18:59 nijtmans Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.33 2010/09/23 21:40:45 nijtmans Exp $ */ /* TODO: This file does not compile in UNICODE mode. @@ -139,7 +139,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; } |