Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Extend the public and private stub tables with dummy NULL entries, up to the size of the Tcl 8.6 stub tables. This makes it easier to debug extensions which use Tcl 8.5/8.6 features but (erroneously) are attempted to be loaded in Tcl 8.4. |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | core-8-4-branch |
Files: | files | file ages | folders |
SHA1: |
c59364b9c7e163c77add11c9ce910730 |
User & Date: | jan.nijtmans 2013-01-07 11:06:16 |
Context
2013-01-08
| ||
10:13 | [Bug 3092089]: [file normalize] can remove path components. [Bug 3587096] win vista/7: "can't find i... check-in: 53a797afe6 user: jan.nijtmans tags: core-8-4-branch | |
2013-01-07
| ||
11:16 | Extend the public stub table with dummy NULL entries, up to the size of the Tcl 8.6 stub tables. Th... check-in: 8f90660f49 user: jan.nijtmans tags: core-8-5-branch | |
11:06 | Extend the public and private stub tables with dummy NULL entries, up to the size of the Tcl 8.6 stu... check-in: c59364b9c7 user: jan.nijtmans tags: core-8-4-branch | |
09:59 | Don't call "ulimit" on cygwin: On Cygwin the stack size cannot be modified, and the reported stacksi... check-in: e1819f1b43 user: jan.nijtmans tags: core-8-4-branch | |
Changes
Changes to ChangeLog.
1 2 3 4 5 6 7 | 2012-12-31 Donal K. Fellows <[email protected]> * doc/string.n: Noted the obsolescence of the 'bytelength', 'wordstart' and 'wordend' subcommands, and moved them to later in the file. 2012-12-27 Jan Nijtmans <[email protected]> | > > > > > > > > | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | 2013-01-07 Jan Nijtmans <[email protected]> * generic/tcl.decls: Extend the public and private stub tables with * generic/tclInt.decls: dummy NULL entries, up to the size of the Tcl 8.6 stub tables. This makes it easier to debug extensions which use Tcl 8.5/8.6 features but (erroneously) are attempted to be loaded in Tcl 8.4. 2012-12-31 Donal K. Fellows <[email protected]> * doc/string.n: Noted the obsolescence of the 'bytelength', 'wordstart' and 'wordend' subcommands, and moved them to later in the file. 2012-12-27 Jan Nijtmans <[email protected]> |
︙ | ︙ |
Changes to generic/tcl.decls.
︙ | ︙ | |||
1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 | # TIP #258: Enhanced Encodings API (569 ... 572) # TIP#268 (extended version numbers and requirements) akupries declare 573 { int Tcl_PkgRequireProc(Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], ClientData *clientDataPtr) } ############################################################################## # Define the platform specific public Tcl interface. These functions are only # available on the designated platform. interface tclPlat | > > > > | 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 1800 1801 1802 1803 1804 1805 1806 1807 | # TIP #258: Enhanced Encodings API (569 ... 572) # TIP#268 (extended version numbers and requirements) akupries declare 573 { int Tcl_PkgRequireProc(Tcl_Interp *interp, const char *name, int objc, Tcl_Obj *const objv[], ClientData *clientDataPtr) } declare 630 { void TclUnusedStubEntry(void) } ############################################################################## # Define the platform specific public Tcl interface. These functions are only # available on the designated platform. interface tclPlat |
︙ | ︙ |
Changes to generic/tclDecls.h.
︙ | ︙ | |||
1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 | /* Slot 571 is reserved */ /* Slot 572 is reserved */ /* 573 */ EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; struct TclIntStubs *tclIntStubs; struct TclIntPlatStubs *tclIntPlatStubs; } TclStubHooks; | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1654 1655 1656 1657 1658 1659 1660 1661 1662 1663 1664 1665 1666 1667 1668 1669 1670 1671 1672 1673 1674 1675 1676 1677 1678 1679 1680 1681 1682 1683 1684 1685 1686 1687 1688 1689 1690 1691 1692 1693 1694 1695 1696 | /* Slot 571 is reserved */ /* Slot 572 is reserved */ /* 573 */ EXTERN int Tcl_PkgRequireProc _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* Slot 574 is reserved */ /* Slot 575 is reserved */ /* Slot 576 is reserved */ /* Slot 577 is reserved */ /* Slot 578 is reserved */ /* Slot 579 is reserved */ /* Slot 580 is reserved */ /* Slot 581 is reserved */ /* Slot 582 is reserved */ /* Slot 583 is reserved */ /* Slot 584 is reserved */ /* Slot 585 is reserved */ /* Slot 586 is reserved */ /* Slot 587 is reserved */ /* Slot 588 is reserved */ /* Slot 589 is reserved */ /* Slot 590 is reserved */ /* Slot 591 is reserved */ /* Slot 592 is reserved */ /* Slot 593 is reserved */ /* Slot 594 is reserved */ /* Slot 595 is reserved */ /* Slot 596 is reserved */ /* Slot 597 is reserved */ /* Slot 598 is reserved */ /* Slot 599 is reserved */ /* Slot 600 is reserved */ /* Slot 601 is reserved */ /* Slot 602 is reserved */ /* Slot 603 is reserved */ /* Slot 604 is reserved */ /* Slot 605 is reserved */ /* Slot 606 is reserved */ /* Slot 607 is reserved */ /* Slot 608 is reserved */ /* Slot 609 is reserved */ /* Slot 610 is reserved */ /* Slot 611 is reserved */ /* Slot 612 is reserved */ /* Slot 613 is reserved */ /* Slot 614 is reserved */ /* Slot 615 is reserved */ /* Slot 616 is reserved */ /* Slot 617 is reserved */ /* Slot 618 is reserved */ /* Slot 619 is reserved */ /* Slot 620 is reserved */ /* Slot 621 is reserved */ /* Slot 622 is reserved */ /* Slot 623 is reserved */ /* Slot 624 is reserved */ /* Slot 625 is reserved */ /* Slot 626 is reserved */ /* Slot 627 is reserved */ /* Slot 628 is reserved */ /* Slot 629 is reserved */ /* 630 */ EXTERN void TclUnusedStubEntry _ANSI_ARGS_((void)); typedef struct TclStubHooks { struct TclPlatStubs *tclPlatStubs; struct TclIntStubs *tclIntStubs; struct TclIntPlatStubs *tclIntPlatStubs; } TclStubHooks; |
︙ | ︙ | |||
2234 2235 2236 2237 2238 2239 2240 2241 2242 2243 2244 2245 2246 2247 | VOID *reserved567; VOID *reserved568; VOID *reserved569; VOID *reserved570; VOID *reserved571; VOID *reserved572; int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* 573 */ } TclStubs; #ifdef __cplusplus extern "C" { #endif extern TclStubs *tclStubsPtr; #ifdef __cplusplus | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 2303 2304 2305 2306 2307 2308 2309 2310 2311 2312 2313 2314 2315 2316 2317 2318 2319 2320 2321 2322 2323 2324 2325 2326 2327 2328 2329 2330 2331 2332 2333 2334 2335 2336 2337 2338 2339 2340 2341 2342 2343 2344 2345 2346 2347 2348 2349 2350 2351 2352 2353 2354 2355 2356 2357 2358 2359 2360 2361 2362 | VOID *reserved567; VOID *reserved568; VOID *reserved569; VOID *reserved570; VOID *reserved571; VOID *reserved572; int (*tcl_PkgRequireProc) _ANSI_ARGS_((Tcl_Interp *interp, CONST char *name, int objc, Tcl_Obj *CONST objv[], ClientData *clientDataPtr)); /* 573 */ VOID *reserved574; VOID *reserved575; VOID *reserved576; VOID *reserved577; VOID *reserved578; VOID *reserved579; VOID *reserved580; VOID *reserved581; VOID *reserved582; VOID *reserved583; VOID *reserved584; VOID *reserved585; VOID *reserved586; VOID *reserved587; VOID *reserved588; VOID *reserved589; VOID *reserved590; VOID *reserved591; VOID *reserved592; VOID *reserved593; VOID *reserved594; VOID *reserved595; VOID *reserved596; VOID *reserved597; VOID *reserved598; VOID *reserved599; VOID *reserved600; VOID *reserved601; VOID *reserved602; VOID *reserved603; VOID *reserved604; VOID *reserved605; VOID *reserved606; VOID *reserved607; VOID *reserved608; VOID *reserved609; VOID *reserved610; VOID *reserved611; VOID *reserved612; VOID *reserved613; VOID *reserved614; VOID *reserved615; VOID *reserved616; VOID *reserved617; VOID *reserved618; VOID *reserved619; VOID *reserved620; VOID *reserved621; VOID *reserved622; VOID *reserved623; VOID *reserved624; VOID *reserved625; VOID *reserved626; VOID *reserved627; VOID *reserved628; VOID *reserved629; void (*tclUnusedStubEntry) _ANSI_ARGS_((void)); /* 630 */ } TclStubs; #ifdef __cplusplus extern "C" { #endif extern TclStubs *tclStubsPtr; #ifdef __cplusplus |
︙ | ︙ | |||
4330 4331 4332 4333 4334 4335 4336 4337 4338 4339 4340 4341 4342 4343 | /* Slot 570 is reserved */ /* Slot 571 is reserved */ /* Slot 572 is reserved */ #ifndef Tcl_PkgRequireProc #define Tcl_PkgRequireProc \ (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ /* !END!: Do not edit above this line. */ #endif /* _TCLDECLS */ | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 4445 4446 4447 4448 4449 4450 4451 4452 4453 4454 4455 4456 4457 4458 4459 4460 4461 4462 4463 4464 4465 4466 4467 4468 4469 4470 4471 4472 4473 4474 4475 4476 4477 4478 4479 4480 4481 4482 4483 4484 4485 4486 4487 4488 4489 4490 4491 4492 4493 4494 4495 4496 4497 4498 4499 4500 4501 4502 4503 4504 4505 4506 4507 4508 4509 4510 4511 4512 4513 4514 4515 4516 4517 4518 4519 4520 | /* Slot 570 is reserved */ /* Slot 571 is reserved */ /* Slot 572 is reserved */ #ifndef Tcl_PkgRequireProc #define Tcl_PkgRequireProc \ (tclStubsPtr->tcl_PkgRequireProc) /* 573 */ #endif /* Slot 574 is reserved */ /* Slot 575 is reserved */ /* Slot 576 is reserved */ /* Slot 577 is reserved */ /* Slot 578 is reserved */ /* Slot 579 is reserved */ /* Slot 580 is reserved */ /* Slot 581 is reserved */ /* Slot 582 is reserved */ /* Slot 583 is reserved */ /* Slot 584 is reserved */ /* Slot 585 is reserved */ /* Slot 586 is reserved */ /* Slot 587 is reserved */ /* Slot 588 is reserved */ /* Slot 589 is reserved */ /* Slot 590 is reserved */ /* Slot 591 is reserved */ /* Slot 592 is reserved */ /* Slot 593 is reserved */ /* Slot 594 is reserved */ /* Slot 595 is reserved */ /* Slot 596 is reserved */ /* Slot 597 is reserved */ /* Slot 598 is reserved */ /* Slot 599 is reserved */ /* Slot 600 is reserved */ /* Slot 601 is reserved */ /* Slot 602 is reserved */ /* Slot 603 is reserved */ /* Slot 604 is reserved */ /* Slot 605 is reserved */ /* Slot 606 is reserved */ /* Slot 607 is reserved */ /* Slot 608 is reserved */ /* Slot 609 is reserved */ /* Slot 610 is reserved */ /* Slot 611 is reserved */ /* Slot 612 is reserved */ /* Slot 613 is reserved */ /* Slot 614 is reserved */ /* Slot 615 is reserved */ /* Slot 616 is reserved */ /* Slot 617 is reserved */ /* Slot 618 is reserved */ /* Slot 619 is reserved */ /* Slot 620 is reserved */ /* Slot 621 is reserved */ /* Slot 622 is reserved */ /* Slot 623 is reserved */ /* Slot 624 is reserved */ /* Slot 625 is reserved */ /* Slot 626 is reserved */ /* Slot 627 is reserved */ /* Slot 628 is reserved */ /* Slot 629 is reserved */ #ifndef TclUnusedStubEntry #define TclUnusedStubEntry \ (tclStubsPtr->tclUnusedStubEntry) /* 630 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ /* !END!: Do not edit above this line. */ #undef TclUnusedStubEntry #endif /* _TCLDECLS */ |
Changes to generic/tclInt.decls.
︙ | ︙ | |||
83 84 85 86 87 88 89 | # Removed in 8.1: # declare 15 { # void TclExpandParseValue(ParseValue *pvPtr, int needed) # } declare 16 { void TclExprFloatError(Tcl_Interp *interp, double value) } | | | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 | # Removed in 8.1: # declare 15 { # void TclExpandParseValue(ParseValue *pvPtr, int needed) # } declare 16 { void TclExprFloatError(Tcl_Interp *interp, double value) } # Removed in 8.4: #declare 17 { # int TclFileAttrsCmd(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[]) #} #declare 18 { # int TclFileCopyCmd(Tcl_Interp *interp, int argc, char **argv) #} #declare 19 { |
︙ | ︙ | |||
527 528 529 530 531 532 533 | size_t TclpStrftime(char *s, size_t maxsize, const char *format, const struct tm *t, int useGMT) } declare 135 { int TclpCheckStackSpace(void) } | < < < < < < < < < < | 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 | size_t TclpStrftime(char *s, size_t maxsize, const char *format, const struct tm *t, int useGMT) } declare 135 { int TclpCheckStackSpace(void) } declare 138 { CONST84_RETURN char *TclGetEnv(const char *name, Tcl_DString *valuePtr) } declare 140 { int TclLooksLikeInt(const char *bytes, int length) } # This is used by TclX, but should otherwise be considered private declare 141 { CONST84_RETURN char *TclpGetCwd(Tcl_Interp *interp, Tcl_DString *cwdPtr) } |
︙ | ︙ | |||
575 576 577 578 579 580 581 | declare 148 { TclHandle TclHandlePreserve(TclHandle handle) } declare 149 { void TclHandleRelease(TclHandle handle) } | | | | 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 | declare 148 { TclHandle TclHandlePreserve(TclHandle handle) } declare 149 { void TclHandleRelease(TclHandle handle) } # Added in 8.2: declare 150 { int TclRegAbout(Tcl_Interp *interp, Tcl_RegExp re) } declare 151 { void TclRegExpRangeUniChar(Tcl_RegExp re, int index, int *startPtr, int *endPtr) } declare 152 { void TclSetLibraryPath(Tcl_Obj *pathPtr) } declare 153 { Tcl_Obj *TclGetLibraryPath(void) } # moved to tclTest.c (static) in 8.3.2: #declare 154 { # int TclTestChannelCmd(ClientData clientData, # Tcl_Interp *interp, int argc, char **argv) #} #declare 155 { # int TclTestChannelEventCmd(ClientData clientData, # Tcl_Interp *interp, int argc, char **argv) |
︙ | ︙ | |||
682 683 684 685 686 687 688 | int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]) } declare 172 { int TclInThreadExit(void) } | | > > > > | 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 | int numChars, Command *cmdPtr, int result, int traceFlags, int objc, Tcl_Obj *const objv[]) } declare 172 { int TclInThreadExit(void) } # Added in 8.4.2: declare 173 { int TclUniCharMatch(const Tcl_UniChar *string, int strLen, const Tcl_UniChar *pattern, int ptnLen, int nocase) } # TclpGmtime and TclpLocaltime promoted to the generic interface from unix declare 182 { struct tm *TclpLocaltime(TclpTime_t_CONST clock) } declare 183 { struct tm *TclpGmtime(TclpTime_t_CONST clock) } declare 199 { int TclMatchIsTrivial(const char *pattern) } declare 249 { void TclUnusedStubEntry(void) } ############################################################################## # Define the platform specific internal Tcl interface. These functions are # only available on the designated platform. interface tclIntPlat |
︙ | ︙ | |||
754 755 756 757 758 759 760 | declare 9 win { int TclWinGetPlatformId(void) } # new for 8.4.20+/8.5.12+ Cygwin only declare 10 win { Tcl_DirEntry *TclpReaddir(DIR *dir) } | | | 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 | declare 9 win { int TclWinGetPlatformId(void) } # new for 8.4.20+/8.5.12+ Cygwin only declare 10 win { Tcl_DirEntry *TclpReaddir(DIR *dir) } # Removed in 8.3.1 (for Win32s only): #declare 10 win { # int TclWinSynchSpawn(void *args, int type, void **trans, Tcl_Pid *pidPtr) #} # Pipe channel functions declare 11 win { |
︙ | ︙ | |||
803 804 805 806 807 808 809 | declare 20 win { void TclWinAddProcess(HANDLE hProcess, DWORD id) } # new for 8.4.20+/8.5.12+ declare 21 win { char *TclpInetNtoa(struct in_addr addr) } | | | 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 | declare 20 win { void TclWinAddProcess(HANDLE hProcess, DWORD id) } # new for 8.4.20+/8.5.12+ declare 21 win { char *TclpInetNtoa(struct in_addr addr) } # Removed in 8.4: #declare 21 win { # void TclpAsyncMark(Tcl_AsyncHandler async) #} # Added in 8.1: declare 22 win { TclFile TclpCreateTempFile(const char *contents) |
︙ | ︙ | |||
825 826 827 828 829 830 831 | declare 25 win { TclPlatformType *TclWinGetPlatform(void) } declare 26 win { void TclWinSetInterfaces(int wide) } | | | < < < | 819 820 821 822 823 824 825 826 827 828 829 830 831 832 833 834 835 836 837 838 839 840 841 842 843 | declare 25 win { TclPlatformType *TclWinGetPlatform(void) } declare 26 win { void TclWinSetInterfaces(int wide) } # Added in 8.3.3: declare 27 win { void TclWinFlushDirtyChannels(void) } # Added in 8.4.2: declare 28 win { void TclWinResetInterfaces(void) } ################################ # Unix specific functions # Pipe channel functions declare 0 unix { |
︙ | ︙ | |||
899 900 901 902 903 904 905 | } declare 12 unix { struct tm *TclpGmtime_unix(TclpTime_t_CONST clock) } declare 13 unix { char *TclpInetNtoa(struct in_addr addr) } | | | 890 891 892 893 894 895 896 897 898 899 900 901 902 903 | } declare 12 unix { struct tm *TclpGmtime_unix(TclpTime_t_CONST clock) } declare 13 unix { char *TclpInetNtoa(struct in_addr addr) } declare 29 {win unix} { int TclWinCPUID(unsigned int index, unsigned int *regs) } # Local Variables: # mode: tcl # End: |
Changes to generic/tclIntDecls.h.
︙ | ︙ | |||
501 502 503 504 505 506 507 508 509 510 511 512 513 514 | /* 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; struct TclIntStubHooks *hooks; VOID *reserved0; int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ *proc)); /* 1 */ | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 | /* 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)); /* Slot 200 is reserved */ /* Slot 201 is reserved */ /* Slot 202 is reserved */ /* Slot 203 is reserved */ /* Slot 204 is reserved */ /* Slot 205 is reserved */ /* Slot 206 is reserved */ /* Slot 207 is reserved */ /* Slot 208 is reserved */ /* Slot 209 is reserved */ /* Slot 210 is reserved */ /* Slot 211 is reserved */ /* Slot 212 is reserved */ /* Slot 213 is reserved */ /* Slot 214 is reserved */ /* Slot 215 is reserved */ /* Slot 216 is reserved */ /* Slot 217 is reserved */ /* Slot 218 is reserved */ /* Slot 219 is reserved */ /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ /* Slot 223 is reserved */ /* Slot 224 is reserved */ /* Slot 225 is reserved */ /* Slot 226 is reserved */ /* Slot 227 is reserved */ /* Slot 228 is reserved */ /* Slot 229 is reserved */ /* Slot 230 is reserved */ /* Slot 231 is reserved */ /* Slot 232 is reserved */ /* Slot 233 is reserved */ /* Slot 234 is reserved */ /* Slot 235 is reserved */ /* Slot 236 is reserved */ /* Slot 237 is reserved */ /* Slot 238 is reserved */ /* Slot 239 is reserved */ /* Slot 240 is reserved */ /* Slot 241 is reserved */ /* Slot 242 is reserved */ /* Slot 243 is reserved */ /* Slot 244 is reserved */ /* Slot 245 is reserved */ /* Slot 246 is reserved */ /* Slot 247 is reserved */ /* Slot 248 is reserved */ /* 249 */ EXTERN void TclUnusedStubEntry _ANSI_ARGS_((void)); typedef struct TclIntStubs { int magic; struct TclIntStubHooks *hooks; VOID *reserved0; int (*tclAccessDeleteProc) _ANSI_ARGS_((TclAccessProc_ *proc)); /* 1 */ |
︙ | ︙ | |||
706 707 708 709 710 711 712 713 714 715 716 717 718 719 | VOID *reserved193; VOID *reserved194; VOID *reserved195; VOID *reserved196; VOID *reserved197; VOID *reserved198; int (*tclMatchIsTrivial) _ANSI_ARGS_((CONST char *pattern)); /* 199 */ } TclIntStubs; #ifdef __cplusplus extern "C" { #endif extern TclIntStubs *tclIntStubsPtr; #ifdef __cplusplus | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 794 795 796 797 798 799 800 801 802 803 804 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 | VOID *reserved193; VOID *reserved194; VOID *reserved195; VOID *reserved196; VOID *reserved197; VOID *reserved198; int (*tclMatchIsTrivial) _ANSI_ARGS_((CONST char *pattern)); /* 199 */ VOID *reserved200; VOID *reserved201; VOID *reserved202; VOID *reserved203; VOID *reserved204; VOID *reserved205; VOID *reserved206; VOID *reserved207; VOID *reserved208; VOID *reserved209; VOID *reserved210; VOID *reserved211; VOID *reserved212; VOID *reserved213; VOID *reserved214; VOID *reserved215; VOID *reserved216; VOID *reserved217; VOID *reserved218; VOID *reserved219; VOID *reserved220; VOID *reserved221; VOID *reserved222; VOID *reserved223; VOID *reserved224; VOID *reserved225; VOID *reserved226; VOID *reserved227; VOID *reserved228; VOID *reserved229; VOID *reserved230; VOID *reserved231; VOID *reserved232; VOID *reserved233; VOID *reserved234; VOID *reserved235; VOID *reserved236; VOID *reserved237; VOID *reserved238; VOID *reserved239; VOID *reserved240; VOID *reserved241; VOID *reserved242; VOID *reserved243; VOID *reserved244; VOID *reserved245; VOID *reserved246; VOID *reserved247; VOID *reserved248; void (*tclUnusedStubEntry) _ANSI_ARGS_((void)); /* 249 */ } TclIntStubs; #ifdef __cplusplus extern "C" { #endif extern TclIntStubs *tclIntStubsPtr; #ifdef __cplusplus |
︙ | ︙ | |||
1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 1348 | /* 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) */ /* !END!: Do not edit above this line. */ #if !defined(_WIN64) /* See bug 510001: TclSockMinimumBuffers needs plat imp */ # undef TclSockMinimumBuffers # define TclSockMinimumBuffers(a,b) TclSockMinimumBuffersOld((int)(a),b) #endif #endif /* _TCLINTDECLS */ | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1431 1432 1433 1434 1435 1436 1437 1438 1439 1440 1441 1442 1443 1444 1445 1446 1447 1448 1449 1450 1451 1452 1453 1454 1455 1456 1457 1458 1459 1460 1461 1462 1463 1464 1465 1466 1467 1468 1469 1470 1471 1472 1473 1474 1475 1476 1477 1478 1479 1480 1481 1482 1483 1484 1485 1486 1487 1488 1489 1490 1491 1492 1493 1494 1495 1496 1497 1498 1499 1500 1501 1502 1503 | /* Slot 196 is reserved */ /* Slot 197 is reserved */ /* Slot 198 is reserved */ #ifndef TclMatchIsTrivial #define TclMatchIsTrivial \ (tclIntStubsPtr->tclMatchIsTrivial) /* 199 */ #endif /* Slot 200 is reserved */ /* Slot 201 is reserved */ /* Slot 202 is reserved */ /* Slot 203 is reserved */ /* Slot 204 is reserved */ /* Slot 205 is reserved */ /* Slot 206 is reserved */ /* Slot 207 is reserved */ /* Slot 208 is reserved */ /* Slot 209 is reserved */ /* Slot 210 is reserved */ /* Slot 211 is reserved */ /* Slot 212 is reserved */ /* Slot 213 is reserved */ /* Slot 214 is reserved */ /* Slot 215 is reserved */ /* Slot 216 is reserved */ /* Slot 217 is reserved */ /* Slot 218 is reserved */ /* Slot 219 is reserved */ /* Slot 220 is reserved */ /* Slot 221 is reserved */ /* Slot 222 is reserved */ /* Slot 223 is reserved */ /* Slot 224 is reserved */ /* Slot 225 is reserved */ /* Slot 226 is reserved */ /* Slot 227 is reserved */ /* Slot 228 is reserved */ /* Slot 229 is reserved */ /* Slot 230 is reserved */ /* Slot 231 is reserved */ /* Slot 232 is reserved */ /* Slot 233 is reserved */ /* Slot 234 is reserved */ /* Slot 235 is reserved */ /* Slot 236 is reserved */ /* Slot 237 is reserved */ /* Slot 238 is reserved */ /* Slot 239 is reserved */ /* Slot 240 is reserved */ /* Slot 241 is reserved */ /* Slot 242 is reserved */ /* Slot 243 is reserved */ /* Slot 244 is reserved */ /* Slot 245 is reserved */ /* Slot 246 is reserved */ /* Slot 247 is reserved */ /* Slot 248 is reserved */ #ifndef TclUnusedStubEntry #define TclUnusedStubEntry \ (tclIntStubsPtr->tclUnusedStubEntry) /* 249 */ #endif #endif /* defined(USE_TCL_STUBS) && !defined(USE_TCL_STUB_PROCS) */ /* !END!: Do not edit above this line. */ #if !defined(_WIN64) /* See bug 510001: TclSockMinimumBuffers needs plat imp */ # undef TclSockMinimumBuffers # define TclSockMinimumBuffers(a,b) TclSockMinimumBuffersOld((int)(a),b) #endif #undef TclUnusedStubEntry #endif /* _TCLINTDECLS */ |
Changes to generic/tclStubInit.c.
︙ | ︙ | |||
29 30 31 32 33 34 35 36 37 38 39 40 41 42 | #undef Tcl_NewStringObj #undef Tcl_DumpActiveMemory #undef Tcl_ValidateAllMemory #undef Tcl_FindHashEntry #undef Tcl_CreateHashEntry #undef TclpGetPid #undef TclSockMinimumBuffers /* * Keep a record of the original Notifier procedures, created in the * same compilation unit as the stub tables so we can later do reliable, * portable comparisons to see whether a Tcl_SetNotifier() call swapped * new routines into the stub table. */ | > | 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | #undef Tcl_NewStringObj #undef Tcl_DumpActiveMemory #undef Tcl_ValidateAllMemory #undef Tcl_FindHashEntry #undef Tcl_CreateHashEntry #undef TclpGetPid #undef TclSockMinimumBuffers #define TclUnusedStubEntry NULL /* * Keep a record of the original Notifier procedures, created in the * same compilation unit as the stub tables so we can later do reliable, * portable comparisons to see whether a Tcl_SetNotifier() call swapped * new routines into the stub table. */ |
︙ | ︙ | |||
401 402 403 404 405 406 407 408 409 410 411 412 413 414 | NULL, /* 193 */ NULL, /* 194 */ NULL, /* 195 */ NULL, /* 196 */ NULL, /* 197 */ NULL, /* 198 */ TclMatchIsTrivial, /* 199 */ }; TclIntPlatStubs tclIntPlatStubs = { TCL_STUB_MAGIC, NULL, #if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ TclGetAndDetachPids, /* 0 */ | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 | NULL, /* 193 */ NULL, /* 194 */ NULL, /* 195 */ NULL, /* 196 */ NULL, /* 197 */ NULL, /* 198 */ TclMatchIsTrivial, /* 199 */ NULL, /* 200 */ NULL, /* 201 */ NULL, /* 202 */ NULL, /* 203 */ NULL, /* 204 */ NULL, /* 205 */ NULL, /* 206 */ NULL, /* 207 */ NULL, /* 208 */ NULL, /* 209 */ NULL, /* 210 */ NULL, /* 211 */ NULL, /* 212 */ NULL, /* 213 */ NULL, /* 214 */ NULL, /* 215 */ NULL, /* 216 */ NULL, /* 217 */ NULL, /* 218 */ NULL, /* 219 */ NULL, /* 220 */ NULL, /* 221 */ NULL, /* 222 */ NULL, /* 223 */ NULL, /* 224 */ NULL, /* 225 */ NULL, /* 226 */ NULL, /* 227 */ NULL, /* 228 */ NULL, /* 229 */ NULL, /* 230 */ NULL, /* 231 */ NULL, /* 232 */ NULL, /* 233 */ NULL, /* 234 */ NULL, /* 235 */ NULL, /* 236 */ NULL, /* 237 */ NULL, /* 238 */ NULL, /* 239 */ NULL, /* 240 */ NULL, /* 241 */ NULL, /* 242 */ NULL, /* 243 */ NULL, /* 244 */ NULL, /* 245 */ NULL, /* 246 */ NULL, /* 247 */ NULL, /* 248 */ TclUnusedStubEntry, /* 249 */ }; TclIntPlatStubs tclIntPlatStubs = { TCL_STUB_MAGIC, NULL, #if !defined(__WIN32__) && !defined(__CYGWIN__) && !defined(MAC_OSX_TCL) /* UNIX */ TclGetAndDetachPids, /* 0 */ |
︙ | ︙ | |||
1124 1125 1126 1127 1128 1129 1130 1131 1132 1133 | NULL, /* 567 */ NULL, /* 568 */ NULL, /* 569 */ NULL, /* 570 */ NULL, /* 571 */ NULL, /* 572 */ Tcl_PkgRequireProc, /* 573 */ }; /* !END!: Do not edit above this line. */ | > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > | 1175 1176 1177 1178 1179 1180 1181 1182 1183 1184 1185 1186 1187 1188 1189 1190 1191 1192 1193 1194 1195 1196 1197 1198 1199 1200 1201 1202 1203 1204 1205 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 1233 1234 1235 1236 1237 1238 1239 1240 1241 | NULL, /* 567 */ NULL, /* 568 */ NULL, /* 569 */ NULL, /* 570 */ NULL, /* 571 */ NULL, /* 572 */ Tcl_PkgRequireProc, /* 573 */ NULL, /* 574 */ NULL, /* 575 */ NULL, /* 576 */ NULL, /* 577 */ NULL, /* 578 */ NULL, /* 579 */ NULL, /* 580 */ NULL, /* 581 */ NULL, /* 582 */ NULL, /* 583 */ NULL, /* 584 */ NULL, /* 585 */ NULL, /* 586 */ NULL, /* 587 */ NULL, /* 588 */ NULL, /* 589 */ NULL, /* 590 */ NULL, /* 591 */ NULL, /* 592 */ NULL, /* 593 */ NULL, /* 594 */ NULL, /* 595 */ NULL, /* 596 */ NULL, /* 597 */ NULL, /* 598 */ NULL, /* 599 */ NULL, /* 600 */ NULL, /* 601 */ NULL, /* 602 */ NULL, /* 603 */ NULL, /* 604 */ NULL, /* 605 */ NULL, /* 606 */ NULL, /* 607 */ NULL, /* 608 */ NULL, /* 609 */ NULL, /* 610 */ NULL, /* 611 */ NULL, /* 612 */ NULL, /* 613 */ NULL, /* 614 */ NULL, /* 615 */ NULL, /* 616 */ NULL, /* 617 */ NULL, /* 618 */ NULL, /* 619 */ NULL, /* 620 */ NULL, /* 621 */ NULL, /* 622 */ NULL, /* 623 */ NULL, /* 624 */ NULL, /* 625 */ NULL, /* 626 */ NULL, /* 627 */ NULL, /* 628 */ NULL, /* 629 */ TclUnusedStubEntry, /* 630 */ }; /* !END!: Do not edit above this line. */ |