diff options
| author | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-14 15:30:51 (GMT) |
|---|---|---|
| committer | dkf <donal.k.fellows@manchester.ac.uk> | 2004-10-14 15:30:51 (GMT) |
| commit | 569dbadff69d099b3cb99742de1e477c86920b0e (patch) | |
| tree | 8fd712975caf61f23708041061fcaea65b7753b6 /generic | |
| parent | 993187d76d965c2c473b790f1c915d65494af65b (diff) | |
| download | tcl-569dbadff69d099b3cb99742de1e477c86920b0e.zip tcl-569dbadff69d099b3cb99742de1e477c86920b0e.tar.gz tcl-569dbadff69d099b3cb99742de1e477c86920b0e.tar.bz2 | |
make genstubs
Diffstat (limited to 'generic')
| -rw-r--r-- | generic/tclIntDecls.h | 54 | ||||
| -rw-r--r-- | generic/tclStubInit.c | 18 |
2 files changed, 70 insertions, 2 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index feb60c8..2ed9392 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.49.2.5 2004/06/10 17:17:43 andreas_kupries Exp $ + * RCS: @(#) $Id: tclIntDecls.h,v 1.49.2.6 2004/10/14 15:30:51 dkf Exp $ */ #ifndef _TCLINTDECLS @@ -515,6 +515,23 @@ EXTERN int TclUniCharMatch _ANSI_ARGS_(( EXTERN struct tm * TclpLocaltime _ANSI_ARGS_((TclpTime_t clock)); /* 183 */ EXTERN struct tm * TclpGmtime _ANSI_ARGS_((TclpTime_t clock)); +/* Slot 184 is reserved */ +/* Slot 185 is reserved */ +/* Slot 186 is reserved */ +/* Slot 187 is reserved */ +/* Slot 188 is reserved */ +/* Slot 189 is reserved */ +/* Slot 190 is reserved */ +/* Slot 191 is reserved */ +/* Slot 192 is reserved */ +/* Slot 193 is reserved */ +/* Slot 194 is reserved */ +/* Slot 195 is reserved */ +/* Slot 196 is reserved */ +/* Slot 197 is reserved */ +/* Slot 198 is reserved */ +/* 199 */ +EXTERN int TclMatchIsTrivial _ANSI_ARGS_((CONST char * pattern)); typedef struct TclIntStubs { int magic; @@ -728,6 +745,22 @@ typedef struct TclIntStubs { void *reserved181; struct tm * (*tclpLocaltime) _ANSI_ARGS_((TclpTime_t clock)); /* 182 */ struct tm * (*tclpGmtime) _ANSI_ARGS_((TclpTime_t clock)); /* 183 */ + void *reserved184; + void *reserved185; + void *reserved186; + void *reserved187; + void *reserved188; + void *reserved189; + void *reserved190; + void *reserved191; + void *reserved192; + void *reserved193; + void *reserved194; + void *reserved195; + void *reserved196; + void *reserved197; + void *reserved198; + int (*tclMatchIsTrivial) _ANSI_ARGS_((CONST char * pattern)); /* 199 */ } TclIntStubs; #ifdef __cplusplus @@ -1354,6 +1387,25 @@ extern TclIntStubs *tclIntStubsPtr; #define TclpGmtime \ (tclIntStubsPtr->tclpGmtime) /* 183 */ #endif +/* Slot 184 is reserved */ +/* Slot 185 is reserved */ +/* Slot 186 is reserved */ +/* Slot 187 is reserved */ +/* Slot 188 is reserved */ +/* Slot 189 is reserved */ +/* Slot 190 is reserved */ +/* Slot 191 is reserved */ +/* Slot 192 is reserved */ +/* Slot 193 is reserved */ +/* Slot 194 is reserved */ +/* Slot 195 is reserved */ +/* Slot 196 is reserved */ +/* Slot 197 is reserved */ +/* Slot 198 is reserved */ +#ifndef TclMatchIsTrivial +#define TclMatchIsTrivial \ + (tclIntStubsPtr->tclMatchIsTrivial) /* 199 */ +#endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index ebe7f1d..d054577 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -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: tclStubInit.c,v 1.79.2.7 2004/06/10 17:17:45 andreas_kupries Exp $ + * RCS: @(#) $Id: tclStubInit.c,v 1.79.2.8 2004/10/14 15:30:52 dkf Exp $ */ #include "tclInt.h" @@ -278,6 +278,22 @@ TclIntStubs tclIntStubs = { NULL, /* 181 */ TclpLocaltime, /* 182 */ TclpGmtime, /* 183 */ + NULL, /* 184 */ + NULL, /* 185 */ + NULL, /* 186 */ + NULL, /* 187 */ + NULL, /* 188 */ + NULL, /* 189 */ + NULL, /* 190 */ + NULL, /* 191 */ + NULL, /* 192 */ + NULL, /* 193 */ + NULL, /* 194 */ + NULL, /* 195 */ + NULL, /* 196 */ + NULL, /* 197 */ + NULL, /* 198 */ + TclMatchIsTrivial, /* 199 */ }; TclIntPlatStubs tclIntPlatStubs = { |