diff options
| author | redman <redman> | 1999-08-02 17:45:33 (GMT) |
|---|---|---|
| committer | redman <redman> | 1999-08-02 17:45:33 (GMT) |
| commit | 28cb778fa903f381fb65fe996eb2b51268977123 (patch) | |
| tree | 4a9bbeb221aaaa7eb6a3c3030bd6ded637df64f3 /generic/tclIntDecls.h | |
| parent | 82389cfbf44c58aa0eacc14452ff199223e1cb99 (diff) | |
| download | tcl-28cb778fa903f381fb65fe996eb2b51268977123.zip tcl-28cb778fa903f381fb65fe996eb2b51268977123.tar.gz tcl-28cb778fa903f381fb65fe996eb2b51268977123.tar.bz2 | |
* generic/tcl.h:
* generic/tcl.decls:
* generic/tclDecls.h:
* generic/tclInt.h:
* generic/tclInt.decls:
* generic/tclIntDecls.h:
* generic/tclRegexp.h:
* generic/tclStubInit.c: Move some exported public and internal
functions to the stub tables. Removed functions that are in the
stub tables (from this and previous changes) from the original
header files.
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 481f0bf..b6f3c8f 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -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: tclIntDecls.h,v 1.15 1999/08/01 20:44:11 hobbs Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.16 1999/08/02 17:45:37 redman Exp $ */ #ifndef _TCLINTDECLS @@ -513,6 +513,9 @@ EXTERN int TclTestChannelCmd _ANSI_ARGS_((ClientData clientData, EXTERN int TclTestChannelEventCmd _ANSI_ARGS_(( ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); +/* 156 */ +EXTERN void TclRegError _ANSI_ARGS_((Tcl_Interp * interp, + char * msg, int status)); typedef struct TclIntStubs { int magic; @@ -706,6 +709,7 @@ typedef struct TclIntStubs { Tcl_Obj * (*tclGetLibraryPath) _ANSI_ARGS_((void)); /* 153 */ int (*tclTestChannelCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 154 */ int (*tclTestChannelEventCmd) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, char ** argv)); /* 155 */ + void (*tclRegError) _ANSI_ARGS_((Tcl_Interp * interp, char * msg, int status)); /* 156 */ } TclIntStubs; #ifdef __cplusplus @@ -1339,6 +1343,10 @@ extern TclIntStubs *tclIntStubsPtr; #define TclTestChannelEventCmd \ (tclIntStubsPtr->tclTestChannelEventCmd) /* 155 */ #endif +#ifndef TclRegError +#define TclRegError \ + (tclIntStubsPtr->tclRegError) /* 156 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ |