diff options
| author | nijtmans <nijtmans> | 2010-06-16 14:49:50 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-06-16 14:49:50 (GMT) |
| commit | 895f05f712393e5e7629384b1690690c6f866974 (patch) | |
| tree | 089f9fd54e012a12bd858f538ba697f61a08789e /generic/tcl.h | |
| parent | eb98df8fef94944b7b479387e27232beab5e869d (diff) | |
| download | tcl-895f05f712393e5e7629384b1690690c6f866974.zip tcl-895f05f712393e5e7629384b1690690c6f866974.tar.gz tcl-895f05f712393e5e7629384b1690690c6f866974.tar.bz2 | |
Simplify Tcl_AppInit and *_Init definitions.
Change TclpThreadCreate and Tcl_CreateThread
signature, making clear that "proc" is a function
pointer, as in all other "proc" function parameters.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 18 |
1 files changed, 6 insertions, 12 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 9a437dc..169f6f2 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.306 2010/04/30 21:15:42 dgp Exp $ + * RCS: @(#) $Id: tcl.h,v 1.307 2010/06/16 14:49:51 nijtmans Exp $ */ #ifndef _TCL @@ -312,9 +312,9 @@ typedef long LONG; */ #ifndef NO_VOID -#define VOID void +# define VOID void #else -#define VOID char +# define VOID char #endif /* @@ -1019,8 +1019,8 @@ typedef struct Tcl_DString { * TCL_CANCEL_UNWIND: Magical Tcl_CancelEval mode that causes the * stack for the script in progress to be * completely unwound. - * TCL_EVAL_NOERR: Do no exception reporting at all, just return - * as the caller will report. + * TCL_EVAL_NOERR: Do no exception reporting at all, just return + * as the caller will report. */ #define TCL_NO_EVAL 0x010000 @@ -2566,13 +2566,7 @@ EXTERN void Tcl_GetMemoryInfo(Tcl_DString *dsPtr); * neither DLLEXPORT nor DLLIMPORT. */ -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS - -EXTERN int Tcl_AppInit(Tcl_Interp *interp); - -#undef TCL_STORAGE_CLASS -#define TCL_STORAGE_CLASS DLLIMPORT +extern Tcl_AppInitProc Tcl_AppInit; #endif /* RC_INVOKED */ |