diff options
| author | dgp <dgp@users.sourceforge.net> | 2025-05-09 18:13:17 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2025-05-09 18:13:17 (GMT) |
| commit | 0e8128247f4e30a8267d342c323765b6bf6cd644 (patch) | |
| tree | 178ac8dfc9bc556dc9b906db4b10fbec1d068146 /generic/tclIntDecls.h | |
| parent | 9c7449fb49496cf68c0eef7452e0ad2bb3fac931 (diff) | |
| download | tcl-0e8128247f4e30a8267d342c323765b6bf6cd644.zip tcl-0e8128247f4e30a8267d342c323765b6bf6cd644.tar.gz tcl-0e8128247f4e30a8267d342c323765b6bf6cd644.tar.bz2 | |
[fd1585e2a1] Adopt efficient internal indexing calculation utility TclMSB().
Diffstat (limited to 'generic/tclIntDecls.h')
| -rw-r--r-- | generic/tclIntDecls.h | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h index 85c8986..6c4da2a 100644 --- a/generic/tclIntDecls.h +++ b/generic/tclIntDecls.h @@ -570,7 +570,8 @@ EXTERN void TclStaticLibrary(Tcl_Interp *interp, const char *prefix, Tcl_LibraryInitProc *initProc, Tcl_LibraryInitProc *safeInitProc); -/* Slot 258 is reserved */ +/* 258 */ +EXTERN int TclMSB(unsigned long long n); /* Slot 259 is reserved */ /* Slot 260 is reserved */ /* 261 */ @@ -838,7 +839,7 @@ typedef struct TclIntStubs { int (*tclPtrObjMakeUpvar) (Tcl_Interp *interp, Tcl_Var otherPtr, Tcl_Obj *myNamePtr, int myFlags); /* 255 */ int (*tclPtrUnsetVar) (Tcl_Interp *interp, Tcl_Var varPtr, Tcl_Var arrayPtr, Tcl_Obj *part1Ptr, Tcl_Obj *part2Ptr, int flags); /* 256 */ void (*tclStaticLibrary) (Tcl_Interp *interp, const char *prefix, Tcl_LibraryInitProc *initProc, Tcl_LibraryInitProc *safeInitProc); /* 257 */ - void (*reserved258)(void); + int (*tclMSB) (unsigned long long n); /* 258 */ void (*reserved259)(void); void (*reserved260)(void); void (*tclUnusedStubEntry) (void); /* 261 */ @@ -1253,7 +1254,8 @@ extern const TclIntStubs *tclIntStubsPtr; (tclIntStubsPtr->tclPtrUnsetVar) /* 256 */ #define TclStaticLibrary \ (tclIntStubsPtr->tclStaticLibrary) /* 257 */ -/* Slot 258 is reserved */ +#define TclMSB \ + (tclIntStubsPtr->tclMSB) /* 258 */ /* Slot 259 is reserved */ /* Slot 260 is reserved */ #define TclUnusedStubEntry \ |