diff options
| author | das <das> | 2008-04-02 21:30:03 (GMT) |
|---|---|---|
| committer | das <das> | 2008-04-02 21:30:03 (GMT) |
| commit | b8976fa1042002dfdf6692b7ae8b215423087d24 (patch) | |
| tree | 493cf76e04c6f1a9654735af98eaafeff8d06b07 /generic/tclDecls.h | |
| parent | 039faefdd7231c1ffac3a2f89d3fe4d9ca05049c (diff) | |
| download | tcl-b8976fa1042002dfdf6692b7ae8b215423087d24.zip tcl-b8976fa1042002dfdf6692b7ae8b215423087d24.tar.gz tcl-b8976fa1042002dfdf6692b7ae8b215423087d24.tar.bz2 | |
* generic/tclDecls.h: make genstubs
* generic/tclIntDecls.h:
* generic/tclIntPlatDecls.h:
* generic/tclPlatDecls.h:
* generic/tclStubInit.c:
* generic/tclTomMathDecls.h:
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 20 |
1 files changed, 6 insertions, 14 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index db398d7..0a1d735 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.131 2008/04/01 16:23:40 dgp Exp $ + * RCS: @(#) $Id: tclDecls.h,v 1.132 2008/04/02 21:30:03 das Exp $ */ #ifndef _TCLDECLS @@ -3503,14 +3503,14 @@ EXTERN void Tcl_AppendPrintfToObj (Tcl_Obj * objPtr, #endif typedef struct TclStubHooks { - struct TclPlatStubs *tclPlatStubs; - struct TclIntStubs *tclIntStubs; - struct TclIntPlatStubs *tclIntPlatStubs; + CONST struct TclPlatStubs *tclPlatStubs; + CONST struct TclIntStubs *tclIntStubs; + CONST struct TclIntPlatStubs *tclIntPlatStubs; } TclStubHooks; typedef struct TclStubs { int magic; - struct TclStubHooks *hooks; + CONST struct TclStubHooks *hooks; int (*tcl_PkgProvideEx) (Tcl_Interp* interp, CONST char* name, CONST char* version, ClientData clientData); /* 0 */ CONST84_RETURN char * (*tcl_PkgRequireEx) (Tcl_Interp * interp, CONST char * name, CONST char * version, int exact, ClientData * clientDataPtr); /* 1 */ @@ -4143,15 +4143,7 @@ typedef struct TclStubs { } TclStubs; #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) - -#ifdef __cplusplus -extern "C" { -#endif -extern TclStubs *tclStubsPtr; -#ifdef __cplusplus -} -#endif - +EXTERN CONST TclStubs *tclStubsPtr; #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ #if defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) |