diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:32:59 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-09-22 15:32:59 (GMT) |
| commit | aca56ccb68a14a617153b07b8c272f8838d1f3f6 (patch) | |
| tree | cf6160c091b5ee6acfc819dde7e126bbfef70a63 /generic/tclStubInit.c | |
| parent | cccb9994ce059b965d7537c824ddd63a839f8c21 (diff) | |
| download | tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.zip tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.tar.gz tcl-aca56ccb68a14a617153b07b8c272f8838d1f3f6.tar.bz2 | |
Make TclObjInterpProc a macro (since it always should be used through TclGetObjInterpProc())
Add some unused stub entries. Add some more type-casts to tclProc.c
Diffstat (limited to 'generic/tclStubInit.c')
| -rw-r--r-- | generic/tclStubInit.c | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/generic/tclStubInit.c b/generic/tclStubInit.c index 93efecd..7f21d83 100644 --- a/generic/tclStubInit.c +++ b/generic/tclStubInit.c @@ -54,6 +54,7 @@ #undef TclBN_mp_tc_and #undef TclBN_mp_tc_or #undef TclBN_mp_tc_xor +#undef TclObjInterpProc #define TclBN_mp_tc_and TclBN_mp_and #define TclBN_mp_tc_or TclBN_mp_or #define TclBN_mp_tc_xor TclBN_mp_xor @@ -225,7 +226,7 @@ void *TclWinGetTclInstance() int TclpGetPid(Tcl_Pid pid) { - return (int) (size_t) pid; + return (int)(size_t)pid; } static void @@ -1665,7 +1666,13 @@ const TclStubs tclStubs = { 0, /* 672 */ 0, /* 673 */ 0, /* 674 */ - TclUnusedStubEntry, /* 675 */ + 0, /* 675 */ + 0, /* 676 */ + 0, /* 677 */ + 0, /* 678 */ + 0, /* 679 */ + 0, /* 680 */ + TclUnusedStubEntry, /* 681 */ }; /* !END!: Do not edit above this line. */ |