diff options
| author | Kevin B Kenny <kennykb@acm.org> | 2005-12-13 22:43:15 (GMT) |
|---|---|---|
| committer | Kevin B Kenny <kennykb@acm.org> | 2005-12-13 22:43:15 (GMT) |
| commit | 47ed8302270238b3263e8c7e6fb103e6c12e4d9c (patch) | |
| tree | f5971ca2525b7271645c996adc428790015b1fe6 /generic/tclDecls.h | |
| parent | 0def411fa61fa15627a6b3b0cad45918f27ca675 (diff) | |
| download | tcl-47ed8302270238b3263e8c7e6fb103e6c12e4d9c.zip tcl-47ed8302270238b3263e8c7e6fb103e6c12e4d9c.tar.gz tcl-47ed8302270238b3263e8c7e6fb103e6c12e4d9c.tar.bz2 | |
Export stubs for libtommath; fix mingw compiler warnings
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index f01f3ca..6851457 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -8,7 +8,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclDecls.h,v 1.117 2005/10/08 14:42:45 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.118 2005/12/13 22:43:17 kennykb Exp $ */ #ifndef _TCLDECLS @@ -3527,6 +3527,13 @@ EXTERN void Tcl_SetChannelError _ANSI_ARGS_((Tcl_Channel chan, EXTERN void Tcl_GetChannelError _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj** msg)); #endif +#ifndef TclTomMathInitializeStubs_TCL_DECLARED +#define TclTomMathInitializeStubs_TCL_DECLARED +/* 566 */ +EXTERN const char* TclTomMathInitializeStubs _ANSI_ARGS_(( + Tcl_Interp* interp, CONST char* version, + int epoch, int revision)); +#endif typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; @@ -4134,6 +4141,7 @@ typedef struct TclStubs { void (*tcl_GetChannelErrorInterp) _ANSI_ARGS_((Tcl_Interp* interp, Tcl_Obj** msg)); /* 563 */ void (*tcl_SetChannelError) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj* msg)); /* 564 */ void (*tcl_GetChannelError) _ANSI_ARGS_((Tcl_Channel chan, Tcl_Obj** msg)); /* 565 */ + const char* (*tclTomMathInitializeStubs) _ANSI_ARGS_((Tcl_Interp* interp, CONST char* version, int epoch, int revision)); /* 566 */ } TclStubs; #ifdef __cplusplus @@ -6438,6 +6446,10 @@ extern TclStubs *tclStubsPtr; #define Tcl_GetChannelError \ (tclStubsPtr->tcl_GetChannelError) /* 565 */ #endif +#ifndef TclTomMathInitializeStubs +#define TclTomMathInitializeStubs \ + (tclStubsPtr->tclTomMathInitializeStubs) /* 566 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |