diff options
| author | dgp <dgp@users.sourceforge.net> | 2021-08-26 19:14:01 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2021-08-26 19:14:01 (GMT) |
| commit | c3d1d436bcb61bd3afa386c6df23d267b63e8a12 (patch) | |
| tree | 5898c6a349bfb5b6e16f9ab1c4f3644f894b2060 | |
| parent | 3c6ee745c387c129423f955b09cca3c94ed54955 (diff) | |
| parent | a0d2c4332f99377ecd5aef74d42b0041501be806 (diff) | |
| download | tcl-c3d1d436bcb61bd3afa386c6df23d267b63e8a12.zip tcl-c3d1d436bcb61bd3afa386c6df23d267b63e8a12.tar.gz tcl-c3d1d436bcb61bd3afa386c6df23d267b63e8a12.tar.bz2 | |
repair broken build
| -rw-r--r-- | generic/tclOO.decls | 2 | ||||
| -rw-r--r-- | generic/tclOODecls.h | 8 | ||||
| -rw-r--r-- | generic/tclOOStubInit.c | 4 |
3 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclOO.decls b/generic/tclOO.decls index 8011292..64892a8 100644 --- a/generic/tclOO.decls +++ b/generic/tclOO.decls @@ -130,7 +130,7 @@ declare 29 { int Tcl_MethodIsPrivate(Tcl_Method method) } declare 31 { - void TclUnusedStubEntry(void) + void TclOOUnusedStubEntry(void) } ###################################################################### diff --git a/generic/tclOODecls.h b/generic/tclOODecls.h index 60ecd6c..755ed5a 100644 --- a/generic/tclOODecls.h +++ b/generic/tclOODecls.h @@ -120,7 +120,7 @@ TCLAPI Tcl_Obj * Tcl_GetObjectName(Tcl_Interp *interp, TCLAPI int Tcl_MethodIsPrivate(Tcl_Method method); /* Slot 30 is reserved */ /* 31 */ -TCLAPI void TclUnusedStubEntry(void); +TCLAPI void TclOOUnusedStubEntry(void); typedef struct { const struct TclOOIntStubs *tclOOIntStubs; @@ -161,7 +161,7 @@ typedef struct TclOOStubs { Tcl_Obj * (*tcl_GetObjectName) (Tcl_Interp *interp, Tcl_Object object); /* 28 */ int (*tcl_MethodIsPrivate) (Tcl_Method method); /* 29 */ void (*reserved30)(void); - void (*tclUnusedStubEntry) (void); /* 31 */ + void (*tclOOUnusedStubEntry) (void); /* 31 */ } TclOOStubs; extern const TclOOStubs *tclOOStubsPtr; @@ -237,8 +237,8 @@ extern const TclOOStubs *tclOOStubsPtr; #define Tcl_MethodIsPrivate \ (tclOOStubsPtr->tcl_MethodIsPrivate) /* 29 */ /* Slot 30 is reserved */ -#define TclUnusedStubEntry \ - (tclOOStubsPtr->tclUnusedStubEntry) /* 31 */ +#define TclOOUnusedStubEntry \ + (tclOOStubsPtr->tclOOUnusedStubEntry) /* 31 */ #endif /* defined(USE_TCLOO_STUBS) */ diff --git a/generic/tclOOStubInit.c b/generic/tclOOStubInit.c index ee03291..4b6559a 100644 --- a/generic/tclOOStubInit.c +++ b/generic/tclOOStubInit.c @@ -14,7 +14,7 @@ MODULE_SCOPE const TclOOStubs tclOOStubs; #pragma GCC dependency "tclOO.decls" #endif -#define TclUnusedStubEntry 0 +#define TclOOUnusedStubEntry 0 /* !BEGIN!: Do not edit below this line. */ @@ -77,7 +77,7 @@ const TclOOStubs tclOOStubs = { Tcl_GetObjectName, /* 28 */ Tcl_MethodIsPrivate, /* 29 */ 0, /* 30 */ - TclUnusedStubEntry, /* 31 */ + TclOOUnusedStubEntry, /* 31 */ }; /* !END!: Do not edit above this line. */ |