This commit is contained in:
ton
2024-10-07 10:13:40 +07:00
parent aa1631742f
commit 3a7d696db6
9729 changed files with 1832837 additions and 161742 deletions

View File

@@ -19,7 +19,7 @@ ITCLAPI const char *Itcl_InitStubs(
/* !BEGIN!: Do not edit below this line. */
#define ITCL_STUBS_EPOCH 0
#define ITCL_STUBS_REVISION 153
#define ITCL_STUBS_REVISION 152
#ifdef __cplusplus
extern "C" {
@@ -55,7 +55,7 @@ ITCLAPI void * Itcl_PopStack(Itcl_Stack *stack);
/* 9 */
ITCLAPI void * Itcl_PeekStack(Itcl_Stack *stack);
/* 10 */
ITCLAPI void * Itcl_GetStackValue(Itcl_Stack *stack, int pos);
ITCLAPI void * Itcl_GetStackValue(Itcl_Stack *stack, Tcl_Size pos);
/* 11 */
ITCLAPI void Itcl_InitList(Itcl_List *listPtr);
/* 12 */
@@ -91,8 +91,6 @@ ITCLAPI void Itcl_DiscardInterpState(Itcl_InterpState state);
ITCLAPI void * Itcl_Alloc(size_t size);
/* 27 */
ITCLAPI void Itcl_Free(void *ptr);
/* 28 */
ITCLAPI void * ItclGetStackValue(Itcl_Stack *stack, size_t pos);
typedef struct {
const struct ItclIntStubs *itclIntStubs;
@@ -114,7 +112,7 @@ typedef struct ItclStubs {
void (*itcl_PushStack) (void *cdata, Itcl_Stack *stack); /* 7 */
void * (*itcl_PopStack) (Itcl_Stack *stack); /* 8 */
void * (*itcl_PeekStack) (Itcl_Stack *stack); /* 9 */
void * (*itcl_GetStackValue) (Itcl_Stack *stack, int pos); /* 10 */
void * (*itcl_GetStackValue) (Itcl_Stack *stack, Tcl_Size pos); /* 10 */
void (*itcl_InitList) (Itcl_List *listPtr); /* 11 */
void (*itcl_DeleteList) (Itcl_List *listPtr); /* 12 */
Itcl_ListElem * (*itcl_CreateListElem) (Itcl_List *listPtr); /* 13 */
@@ -132,7 +130,6 @@ typedef struct ItclStubs {
void (*itcl_DiscardInterpState) (Itcl_InterpState state); /* 25 */
void * (*itcl_Alloc) (size_t size); /* 26 */
void (*itcl_Free) (void *ptr); /* 27 */
void * (*itclGetStackValue) (Itcl_Stack *stack, size_t pos); /* 28 */
} ItclStubs;
extern const ItclStubs *itclStubsPtr;
@@ -201,16 +198,9 @@ extern const ItclStubs *itclStubsPtr;
(itclStubsPtr->itcl_Alloc) /* 26 */
#define Itcl_Free \
(itclStubsPtr->itcl_Free) /* 27 */
#define ItclGetStackValue \
(itclStubsPtr->itclGetStackValue) /* 28 */
#endif /* defined(USE_ITCL_STUBS) */
/* !END!: Do not edit above this line. */
#if TCL_MAJOR_VERSION > 8
# undef Itcl_GetStackValue
# define Itcl_GetStackValue ItclGetStackValue
#endif
#endif /* _ITCLDECLS */