Artifact
089d8a431b3d423a955aea0642bc99e90a19be45:
Attachment "tclStubsPtr.patch" to
ticket [1819422fff]
added by
dgp
2007-10-24 23:19:01.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 42 61 73 69 63 2e 63 0a 3d 3d 3d 3d 3d 3d clBasic.c.======
0020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0040: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0050: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0060: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0070: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0080: 2f 74 63 6c 42 61 73 69 63 2e 63 2c 76 0a 72 65 /tclBasic.c,v.re
0090: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
00a0: 6e 20 31 2e 32 37 30 0a 64 69 66 66 20 2d 75 20 n 1.270.diff -u
00b0: 2d 72 31 2e 32 37 30 20 74 63 6c 42 61 73 69 63 -r1.270 tclBasic
00c0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
00d0: 63 6c 42 61 73 69 63 2e 63 09 32 35 20 53 65 70 clBasic.c.25 Sep
00e0: 20 32 30 30 37 20 32 30 3a 32 37 3a 31 37 20 2d 2007 20:27:17 -
00f0: 30 30 30 30 09 31 2e 32 37 30 0a 2b 2b 2b 20 67 0000.1.270.+++ g
0100: 65 6e 65 72 69 63 2f 74 63 6c 42 61 73 69 63 2e eneric/tclBasic.
0110: 63 09 32 34 20 4f 63 74 20 32 30 30 37 20 31 36 c.24 Oct 2007 16
0120: 3a 31 34 3a 33 38 20 2d 30 30 30 30 0a 40 40 20 :14:38 -0000.@@
0130: 2d 37 37 36 2c 31 31 20 2b 37 37 36 2c 36 20 40 -776,11 +776,6 @
0140: 40 0a 20 0a 20 20 20 20 20 54 63 6c 5f 50 6b 67 @. . Tcl_Pkg
0150: 50 72 6f 76 69 64 65 45 78 28 69 6e 74 65 72 70 ProvideEx(interp
0160: 2c 20 22 54 63 6c 22 2c 20 54 43 4c 5f 50 41 54 , "Tcl", TCL_PAT
0170: 43 48 5f 4c 45 56 45 4c 2c 20 28 43 6c 69 65 6e CH_LEVEL, (Clien
0180: 74 44 61 74 61 29 20 26 74 63 6c 53 74 75 62 73 tData) &tclStubs
0190: 29 3b 0a 20 0a 2d 23 69 66 64 65 66 20 54 63 6c );. .-#ifdef Tcl
01a0: 5f 49 6e 69 74 53 74 75 62 73 0a 2d 23 75 6e 64 _InitStubs.-#und
01b0: 65 66 20 54 63 6c 5f 49 6e 69 74 53 74 75 62 73 ef Tcl_InitStubs
01c0: 0a 2d 23 65 6e 64 69 66 0a 2d 20 20 20 20 54 63 .-#endif.- Tc
01d0: 6c 5f 49 6e 69 74 53 74 75 62 73 28 69 6e 74 65 l_InitStubs(inte
01e0: 72 70 2c 20 54 43 4c 5f 56 45 52 53 49 4f 4e 2c rp, TCL_VERSION,
01f0: 20 31 29 3b 0a 2d 0a 20 20 20 20 20 69 66 20 28 1);.-. if (
0200: 54 63 6c 54 6f 6d 6d 61 74 68 5f 49 6e 69 74 28 TclTommath_Init(
0210: 69 6e 74 65 72 70 29 20 21 3d 20 54 43 4c 5f 4f interp) != TCL_O
0220: 4b 29 20 7b 0a 20 09 54 63 6c 5f 50 61 6e 69 63 K) {. .Tcl_Panic
0230: 28 54 63 6c 5f 47 65 74 53 74 72 69 6e 67 28 54 (Tcl_GetString(T
0240: 63 6c 5f 47 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_GetObjResult(
0250: 69 6e 74 65 72 70 29 29 29 3b 0a 20 20 20 20 20 interp)));.
0260: 7d 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 }.Index: generic
0270: 2f 74 63 6c 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d /tclDecls.h.====
0280: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0290: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
02c0: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
02d0: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
02e0: 69 63 2f 74 63 6c 44 65 63 6c 73 2e 68 2c 76 0a ic/tclDecls.h,v.
02f0: 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 retrieving revis
0300: 69 6f 6e 20 31 2e 31 32 38 0a 64 69 66 66 20 2d ion 1.128.diff -
0310: 75 20 2d 72 31 2e 31 32 38 20 74 63 6c 44 65 63 u -r1.128 tclDec
0320: 6c 73 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 ls.h.--- generic
0330: 2f 74 63 6c 44 65 63 6c 73 2e 68 09 32 33 20 46 /tclDecls.h.23 F
0340: 65 62 20 32 30 30 37 20 32 33 3a 30 32 3a 35 33 eb 2007 23:02:53
0350: 20 2d 30 30 30 30 09 31 2e 31 32 38 0a 2b 2b 2b -0000.1.128.+++
0360: 20 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c generic/tclDecl
0370: 73 2e 68 09 32 34 20 4f 63 74 20 32 30 30 37 20 s.h.24 Oct 2007
0380: 31 36 3a 31 34 3a 34 30 20 2d 30 30 30 30 0a 40 16:14:40 -0000.@
0390: 40 20 2d 34 30 37 38 2c 36 20 2b 34 30 37 38 2c @ -4078,6 +4078,
03a0: 38 20 40 40 0a 20 20 20 20 20 76 6f 69 64 20 28 8 @@. void (
03b0: 2a 74 63 6c 5f 41 70 70 65 6e 64 50 72 69 6e 74 *tcl_AppendPrint
03c0: 66 54 6f 4f 62 6a 29 20 28 54 63 6c 5f 4f 62 6a fToObj) (Tcl_Obj
03d0: 20 2a 20 6f 62 6a 50 74 72 2c 20 43 4f 4e 53 54 * objPtr, CONST
03e0: 20 63 68 61 72 20 2a 20 66 6f 72 6d 61 74 2c 20 char * format,
03f0: 2e 2e 2e 29 3b 20 2f 2a 20 35 37 39 20 2a 2f 0a ...); /* 579 */.
0400: 20 7d 20 54 63 6c 53 74 75 62 73 3b 0a 20 0a 2b } TclStubs;. .+
0410: 23 69 66 20 64 65 66 69 6e 65 64 28 55 53 45 5f #if defined(USE_
0420: 54 43 4c 5f 53 54 55 42 53 29 20 26 26 20 21 64 TCL_STUBS) && !d
0430: 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 efined(USE_TCL_S
0440: 54 55 42 5f 50 52 4f 43 53 29 0a 2b 0a 20 23 69 TUB_PROCS).+. #i
0450: 66 64 65 66 20 5f 5f 63 70 6c 75 73 70 6c 75 73 fdef __cplusplus
0460: 0a 20 65 78 74 65 72 6e 20 22 43 22 20 7b 0a 20 . extern "C" {.
0470: 23 65 6e 64 69 66 0a 40 40 20 2d 34 30 38 36 2c #endif.@@ -4086,
0480: 36 20 2b 34 30 38 38 2c 38 20 40 40 0a 20 7d 0a 6 +4088,8 @@. }.
0490: 20 23 65 6e 64 69 66 0a 20 0a 2b 23 65 6e 64 69 #endif. .+#endi
04a0: 66 20 2f 2a 20 64 65 66 69 6e 65 64 28 55 53 45 f /* defined(USE
04b0: 5f 54 43 4c 5f 53 54 55 42 53 29 20 26 26 20 21 _TCL_STUBS) && !
04c0: 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f defined(USE_TCL_
04d0: 53 54 55 42 5f 50 52 4f 43 53 29 20 2a 2f 0a 2b STUB_PROCS) */.+
04e0: 0a 20 23 69 66 20 64 65 66 69 6e 65 64 28 55 53 . #if defined(US
04f0: 45 5f 54 43 4c 5f 53 54 55 42 53 29 20 26 26 20 E_TCL_STUBS) &&
0500: 21 64 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c !defined(USE_TCL
0510: 5f 53 54 55 42 5f 50 52 4f 43 53 29 0a 20 0a 20 _STUB_PROCS). .
0520: 2f 2a 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 /*.Index: generi
0530: 63 2f 74 63 6c 49 6e 74 44 65 63 6c 73 2e 68 0a c/tclIntDecls.h.
0540: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0550: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0560: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0570: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0580: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
0590: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
05a0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 44 65 63 eneric/tclIntDec
05b0: 6c 73 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e ls.h,v.retrievin
05c0: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 30 35 g revision 1.105
05d0: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 30 35 .diff -u -r1.105
05e0: 20 74 63 6c 49 6e 74 44 65 63 6c 73 2e 68 0a 2d tclIntDecls.h.-
05f0: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e -- generic/tclIn
0600: 74 44 65 63 6c 73 2e 68 09 36 20 53 65 70 20 32 tDecls.h.6 Sep 2
0610: 30 30 37 20 31 38 3a 31 33 3a 32 30 20 2d 30 30 007 18:13:20 -00
0620: 30 30 09 31 2e 31 30 35 0a 2b 2b 2b 20 67 65 6e 00.1.105.+++ gen
0630: 65 72 69 63 2f 74 63 6c 49 6e 74 44 65 63 6c 73 eric/tclIntDecls
0640: 2e 68 09 32 34 20 4f 63 74 20 32 30 30 37 20 31 .h.24 Oct 2007 1
0650: 36 3a 31 34 3a 34 31 20 2d 30 30 30 30 0a 40 40 6:14:41 -0000.@@
0660: 20 2d 31 33 31 36 2c 36 20 2b 31 33 31 36 2c 38 -1316,6 +1316,8
0670: 20 40 40 0a 20 20 20 20 20 76 6f 69 64 20 28 2a @@. void (*
0680: 74 63 6c 42 61 63 6b 67 72 6f 75 6e 64 45 78 63 tclBackgroundExc
0690: 65 70 74 69 6f 6e 29 20 28 54 63 6c 5f 49 6e 74 eption) (Tcl_Int
06a0: 65 72 70 20 2a 20 69 6e 74 65 72 70 2c 20 69 6e erp * interp, in
06b0: 74 20 63 6f 64 65 29 3b 20 2f 2a 20 32 33 36 20 t code); /* 236
06c0: 2a 2f 0a 20 7d 20 54 63 6c 49 6e 74 53 74 75 62 */. } TclIntStub
06d0: 73 3b 0a 20 0a 2b 23 69 66 20 64 65 66 69 6e 65 s;. .+#if define
06e0: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 d(USE_TCL_STUBS)
06f0: 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 && !defined(USE
0700: 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 _TCL_STUB_PROCS)
0710: 0a 2b 0a 20 23 69 66 64 65 66 20 5f 5f 63 70 6c .+. #ifdef __cpl
0720: 75 73 70 6c 75 73 0a 20 65 78 74 65 72 6e 20 22 usplus. extern "
0730: 43 22 20 7b 0a 20 23 65 6e 64 69 66 0a 40 40 20 C" {. #endif.@@
0740: 2d 31 33 32 34 2c 36 20 2b 31 33 32 36 2c 38 20 -1324,6 +1326,8
0750: 40 40 0a 20 7d 0a 20 23 65 6e 64 69 66 0a 20 0a @@. }. #endif. .
0760: 2b 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e +#endif /* defin
0770: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
0780: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
0790: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
07a0: 29 20 2a 2f 0a 2b 0a 20 23 69 66 20 64 65 66 69 ) */.+. #if defi
07b0: 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 ned(USE_TCL_STUB
07c0: 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 S) && !defined(U
07d0: 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 SE_TCL_STUB_PROC
07e0: 53 29 0a 20 0a 20 2f 2a 0a 49 6e 64 65 78 3a 20 S). . /*.Index:
07f0: 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 6c generic/tclIntPl
0800: 61 74 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d 3d 3d atDecls.h.======
0810: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0820: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0830: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0840: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0850: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0860: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0870: 2f 74 63 6c 49 6e 74 50 6c 61 74 44 65 63 6c 73 /tclIntPlatDecls
0880: 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .h,v.retrieving
0890: 72 65 76 69 73 69 6f 6e 20 31 2e 33 30 0a 64 69 revision 1.30.di
08a0: 66 66 20 2d 75 20 2d 72 31 2e 33 30 20 74 63 6c ff -u -r1.30 tcl
08b0: 49 6e 74 50 6c 61 74 44 65 63 6c 73 2e 68 0a 2d IntPlatDecls.h.-
08c0: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e -- generic/tclIn
08d0: 74 50 6c 61 74 44 65 63 6c 73 2e 68 09 31 35 20 tPlatDecls.h.15
08e0: 4e 6f 76 20 32 30 30 36 20 31 34 3a 35 38 3a 32 Nov 2006 14:58:2
08f0: 37 20 2d 30 30 30 30 09 31 2e 33 30 0a 2b 2b 2b 7 -0000.1.30.+++
0900: 20 67 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 50 generic/tclIntP
0910: 6c 61 74 44 65 63 6c 73 2e 68 09 32 34 20 4f 63 latDecls.h.24 Oc
0920: 74 20 32 30 30 37 20 31 36 3a 31 34 3a 34 31 20 t 2007 16:14:41
0930: 2d 30 30 30 30 0a 40 40 20 2d 33 35 31 2c 36 20 -0000.@@ -351,6
0940: 2b 33 35 31 2c 38 20 40 40 0a 20 23 65 6e 64 69 +351,8 @@. #endi
0950: 66 20 2f 2a 20 4d 41 43 5f 4f 53 58 5f 54 43 4c f /* MAC_OSX_TCL
0960: 20 2a 2f 0a 20 7d 20 54 63 6c 49 6e 74 50 6c 61 */. } TclIntPla
0970: 74 53 74 75 62 73 3b 0a 20 0a 2b 23 69 66 20 64 tStubs;. .+#if d
0980: 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 efined(USE_TCL_S
0990: 54 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 TUBS) && !define
09a0: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 d(USE_TCL_STUB_P
09b0: 52 4f 43 53 29 0a 2b 0a 20 23 69 66 64 65 66 20 ROCS).+. #ifdef
09c0: 5f 5f 63 70 6c 75 73 70 6c 75 73 0a 20 65 78 74 __cplusplus. ext
09d0: 65 72 6e 20 22 43 22 20 7b 0a 20 23 65 6e 64 69 ern "C" {. #endi
09e0: 66 0a 40 40 20 2d 33 35 39 2c 36 20 2b 33 36 31 f.@@ -359,6 +361
09f0: 2c 38 20 40 40 0a 20 7d 0a 20 23 65 6e 64 69 66 ,8 @@. }. #endif
0a00: 0a 20 0a 2b 23 65 6e 64 69 66 20 2f 2a 20 64 65 . .+#endif /* de
0a10: 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 fined(USE_TCL_ST
0a20: 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 UBS) && !defined
0a30: 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 (USE_TCL_STUB_PR
0a40: 4f 43 53 29 20 2a 2f 0a 2b 0a 20 23 69 66 20 64 OCS) */.+. #if d
0a50: 65 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 efined(USE_TCL_S
0a60: 54 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 TUBS) && !define
0a70: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 d(USE_TCL_STUB_P
0a80: 52 4f 43 53 29 0a 20 0a 20 2f 2a 0a 49 6e 64 65 ROCS). . /*.Inde
0a90: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 50 6c x: generic/tclPl
0aa0: 61 74 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d 3d 3d atDecls.h.======
0ab0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ac0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ad0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0ae0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 =============.RC
0af0: 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 S file: /cvsroot
0b00: 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 /tcl/tcl/generic
0b10: 2f 74 63 6c 50 6c 61 74 44 65 63 6c 73 2e 68 2c /tclPlatDecls.h,
0b20: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
0b30: 69 73 69 6f 6e 20 31 2e 32 35 0a 64 69 66 66 20 ision 1.25.diff
0b40: 2d 75 20 2d 72 31 2e 32 35 20 74 63 6c 50 6c 61 -u -r1.25 tclPla
0b50: 74 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 67 65 6e tDecls.h.--- gen
0b60: 65 72 69 63 2f 74 63 6c 50 6c 61 74 44 65 63 6c eric/tclPlatDecl
0b70: 73 2e 68 09 31 35 20 4e 6f 76 20 32 30 30 36 20 s.h.15 Nov 2006
0b80: 31 34 3a 35 38 3a 32 37 20 2d 30 30 30 30 09 31 14:58:27 -0000.1
0b90: 2e 32 35 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f .25.+++ generic/
0ba0: 74 63 6c 50 6c 61 74 44 65 63 6c 73 2e 68 09 32 tclPlatDecls.h.2
0bb0: 34 20 4f 63 74 20 32 30 30 37 20 31 36 3a 31 34 4 Oct 2007 16:14
0bc0: 3a 34 31 20 2d 30 30 30 30 0a 40 40 20 2d 39 34 :41 -0000.@@ -94
0bd0: 2c 36 20 2b 39 34 2c 38 20 40 40 0a 20 23 65 6e ,6 +94,8 @@. #en
0be0: 64 69 66 20 2f 2a 20 4d 41 43 5f 4f 53 58 5f 54 dif /* MAC_OSX_T
0bf0: 43 4c 20 2a 2f 0a 20 7d 20 54 63 6c 50 6c 61 74 CL */. } TclPlat
0c00: 53 74 75 62 73 3b 0a 20 0a 2b 23 69 66 20 64 65 Stubs;. .+#if de
0c10: 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 fined(USE_TCL_ST
0c20: 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 UBS) && !defined
0c30: 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 (USE_TCL_STUB_PR
0c40: 4f 43 53 29 0a 2b 0a 20 23 69 66 64 65 66 20 5f OCS).+. #ifdef _
0c50: 5f 63 70 6c 75 73 70 6c 75 73 0a 20 65 78 74 65 _cplusplus. exte
0c60: 72 6e 20 22 43 22 20 7b 0a 20 23 65 6e 64 69 66 rn "C" {. #endif
0c70: 0a 40 40 20 2d 31 30 32 2c 36 20 2b 31 30 34 2c .@@ -102,6 +104,
0c80: 38 20 40 40 0a 20 7d 0a 20 23 65 6e 64 69 66 0a 8 @@. }. #endif.
0c90: 20 0a 2b 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 .+#endif /* def
0ca0: 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 ined(USE_TCL_STU
0cb0: 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 BS) && !defined(
0cc0: 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f USE_TCL_STUB_PRO
0cd0: 43 53 29 20 2a 2f 0a 2b 0a 20 23 69 66 20 64 65 CS) */.+. #if de
0ce0: 66 69 6e 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 fined(USE_TCL_ST
0cf0: 55 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 UBS) && !defined
0d00: 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 (USE_TCL_STUB_PR
0d10: 4f 43 53 29 0a 20 0a 20 2f 2a 0a 49 6e 64 65 78 OCS). . /*.Index
0d20: 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 54 6f 6d : generic/tclTom
0d30: 4d 61 74 68 44 65 63 6c 73 2e 68 0a 3d 3d 3d 3d MathDecls.h.====
0d40: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0d70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
0d80: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0d90: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
0da0: 69 63 2f 74 63 6c 54 6f 6d 4d 61 74 68 44 65 63 ic/tclTomMathDec
0db0: 6c 73 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e ls.h,v.retrievin
0dc0: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 0a 64 g revision 1.2.d
0dd0: 69 66 66 20 2d 75 20 2d 72 31 2e 32 20 74 63 6c iff -u -r1.2 tcl
0de0: 54 6f 6d 4d 61 74 68 44 65 63 6c 73 2e 68 0a 2d TomMathDecls.h.-
0df0: 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 54 6f -- generic/tclTo
0e00: 6d 4d 61 74 68 44 65 63 6c 73 2e 68 09 31 35 20 mMathDecls.h.15
0e10: 4e 6f 76 20 32 30 30 36 20 31 34 3a 35 38 3a 32 Nov 2006 14:58:2
0e20: 37 20 2d 30 30 30 30 09 31 2e 32 0a 2b 2b 2b 20 7 -0000.1.2.+++
0e30: 67 65 6e 65 72 69 63 2f 74 63 6c 54 6f 6d 4d 61 generic/tclTomMa
0e40: 74 68 44 65 63 6c 73 2e 68 09 32 34 20 4f 63 74 thDecls.h.24 Oct
0e50: 20 32 30 30 37 20 31 36 3a 31 34 3a 34 32 20 2d 2007 16:14:42 -
0e60: 30 30 30 30 0a 40 40 20 2d 35 32 30 2c 36 20 2b 0000.@@ -520,6 +
0e70: 35 32 30 2c 38 20 40 40 0a 20 20 20 20 20 69 6e 520,8 @@. in
0e80: 74 20 28 2a 74 63 6c 42 4e 5f 73 5f 6d 70 5f 73 t (*tclBN_s_mp_s
0e90: 75 62 29 20 28 6d 70 5f 69 6e 74 2a 20 61 2c 20 ub) (mp_int* a,
0ea0: 6d 70 5f 69 6e 74 2a 20 62 2c 20 6d 70 5f 69 6e mp_int* b, mp_in
0eb0: 74 2a 20 63 29 3b 20 2f 2a 20 36 30 20 2a 2f 0a t* c); /* 60 */.
0ec0: 20 7d 20 54 63 6c 54 6f 6d 4d 61 74 68 53 74 75 } TclTomMathStu
0ed0: 62 73 3b 0a 20 0a 2b 23 69 66 20 64 65 66 69 6e bs;. .+#if defin
0ee0: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
0ef0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
0f00: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
0f10: 29 0a 2b 0a 20 23 69 66 64 65 66 20 5f 5f 63 70 ).+. #ifdef __cp
0f20: 6c 75 73 70 6c 75 73 0a 20 65 78 74 65 72 6e 20 lusplus. extern
0f30: 22 43 22 20 7b 0a 20 23 65 6e 64 69 66 0a 40 40 "C" {. #endif.@@
0f40: 20 2d 35 32 38 2c 36 20 2b 35 33 30 2c 38 20 40 -528,6 +530,8 @
0f50: 40 0a 20 7d 0a 20 23 65 6e 64 69 66 0a 20 0a 2b @. }. #endif. .+
0f60: 23 65 6e 64 69 66 20 2f 2a 20 64 65 66 69 6e 65 #endif /* define
0f70: 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 29 d(USE_TCL_STUBS)
0f80: 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 45 && !defined(USE
0f90: 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 29 _TCL_STUB_PROCS)
0fa0: 20 2a 2f 0a 2b 0a 20 23 69 66 20 64 65 66 69 6e */.+. #if defin
0fb0: 65 64 28 55 53 45 5f 54 43 4c 5f 53 54 55 42 53 ed(USE_TCL_STUBS
0fc0: 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 55 53 ) && !defined(US
0fd0: 45 5f 54 43 4c 5f 53 54 55 42 5f 50 52 4f 43 53 E_TCL_STUB_PROCS
0fe0: 29 0a 20 0a 20 2f 2a 0a 49 6e 64 65 78 3a 20 74 ). . /*.Index: t
0ff0: 6f 6f 6c 73 2f 67 65 6e 53 74 75 62 73 2e 74 63 ools/genStubs.tc
1000: 6c 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d l.==============
1010: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1020: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1030: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1040: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
1050: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
1060: 2f 74 6f 6f 6c 73 2f 67 65 6e 53 74 75 62 73 2e /tools/genStubs.
1070: 74 63 6c 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 tcl,v.retrieving
1080: 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 30 0a 64 revision 1.20.d
1090: 69 66 66 20 2d 75 20 2d 72 31 2e 32 30 20 67 65 iff -u -r1.20 ge
10a0: 6e 53 74 75 62 73 2e 74 63 6c 0a 2d 2d 2d 20 74 nStubs.tcl.--- t
10b0: 6f 6f 6c 73 2f 67 65 6e 53 74 75 62 73 2e 74 63 ools/genStubs.tc
10c0: 6c 09 32 33 20 46 65 62 20 32 30 30 37 20 32 33 l.23 Feb 2007 23
10d0: 3a 30 32 3a 35 34 20 2d 30 30 30 30 09 31 2e 32 :02:54 -0000.1.2
10e0: 30 0a 2b 2b 2b 20 74 6f 6f 6c 73 2f 67 65 6e 53 0.+++ tools/genS
10f0: 74 75 62 73 2e 74 63 6c 09 32 34 20 4f 63 74 20 tubs.tcl.24 Oct
1100: 32 30 30 37 20 31 36 3a 31 34 3a 34 33 20 2d 30 2007 16:14:43 -0
1110: 30 30 30 0a 40 40 20 2d 38 30 33 2c 36 20 2b 38 000.@@ -803,6 +8
1120: 30 33 2c 37 20 40 40 0a 20 70 72 6f 63 20 67 65 03,7 @@. proc ge
1130: 6e 53 74 75 62 73 3a 3a 65 6d 69 74 48 65 61 64 nStubs::emitHead
1140: 65 72 20 7b 6e 61 6d 65 7d 20 7b 0a 20 20 20 20 er {name} {.
1150: 20 76 61 72 69 61 62 6c 65 20 6f 75 74 44 69 72 variable outDir
1160: 0a 20 20 20 20 20 76 61 72 69 61 62 6c 65 20 68 . variable h
1170: 6f 6f 6b 73 0a 2b 20 20 20 20 76 61 72 69 61 62 ooks.+ variab
1180: 6c 65 20 6c 69 62 72 61 72 79 4e 61 6d 65 0a 20 le libraryName.
1190: 0a 20 20 20 20 20 73 65 74 20 63 61 70 4e 61 6d . set capNam
11a0: 65 20 5b 73 74 72 69 6e 67 20 74 6f 75 70 70 65 e [string touppe
11b0: 72 20 5b 73 74 72 69 6e 67 20 69 6e 64 65 78 20 r [string index
11c0: 24 6e 61 6d 65 20 30 5d 5d 0a 20 20 20 20 20 61 $name 0]]. a
11d0: 70 70 65 6e 64 20 63 61 70 4e 61 6d 65 20 5b 73 ppend capName [s
11e0: 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6e 61 6d tring range $nam
11f0: 65 20 31 20 65 6e 64 5d 0a 40 40 20 2d 38 32 36 e 1 end].@@ -826
1200: 2c 39 20 2b 38 32 37 2c 31 32 20 40 40 0a 20 0a ,9 +827,12 @@. .
1210: 20 20 20 20 20 61 70 70 65 6e 64 20 74 65 78 74 append text
1220: 20 22 7d 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 "} ${capName}St
1230: 75 62 73 3b 5c 6e 22 0a 20 0a 2b 20 20 20 20 73 ubs;\n". .+ s
1240: 65 74 20 75 70 4e 61 6d 65 20 5b 73 74 72 69 6e et upName [strin
1250: 67 20 74 6f 75 70 70 65 72 20 24 6c 69 62 72 61 g toupper $libra
1260: 72 79 4e 61 6d 65 5d 0a 2b 20 20 20 20 61 70 70 ryName].+ app
1270: 65 6e 64 20 74 65 78 74 20 22 5c 6e 23 69 66 20 end text "\n#if
1280: 64 65 66 69 6e 65 64 28 55 53 45 5f 24 7b 75 70 defined(USE_${up
1290: 4e 61 6d 65 7d 5f 53 54 55 42 53 29 20 26 26 20 Name}_STUBS) &&
12a0: 21 64 65 66 69 6e 65 64 28 55 53 45 5f 24 7b 75 !defined(USE_${u
12b0: 70 4e 61 6d 65 7d 5f 53 54 55 42 5f 50 52 4f 43 pName}_STUB_PROC
12c0: 53 29 5c 6e 22 0a 20 20 20 20 20 61 70 70 65 6e S)\n". appen
12d0: 64 20 74 65 78 74 20 22 5c 6e 23 69 66 64 65 66 d text "\n#ifdef
12e0: 20 5f 5f 63 70 6c 75 73 70 6c 75 73 5c 6e 65 78 __cplusplus\nex
12f0: 74 65 72 6e 20 5c 22 43 5c 22 20 7b 5c 6e 23 65 tern \"C\" {\n#e
1300: 6e 64 69 66 5c 6e 22 0a 20 20 20 20 20 61 70 70 ndif\n". app
1310: 65 6e 64 20 74 65 78 74 20 22 65 78 74 65 72 6e end text "extern
1320: 20 24 7b 63 61 70 4e 61 6d 65 7d 53 74 75 62 73 ${capName}Stubs
1330: 20 2a 24 7b 6e 61 6d 65 7d 53 74 75 62 73 50 74 *${name}StubsPt
1340: 72 3b 5c 6e 22 0a 20 20 20 20 20 61 70 70 65 6e r;\n". appen
1350: 64 20 74 65 78 74 20 22 23 69 66 64 65 66 20 5f d text "#ifdef _
1360: 5f 63 70 6c 75 73 70 6c 75 73 5c 6e 7d 5c 6e 23 _cplusplus\n}\n#
1370: 65 6e 64 69 66 5c 6e 22 0a 2b 20 20 20 20 61 70 endif\n".+ ap
1380: 70 65 6e 64 20 74 65 78 74 20 22 5c 6e 23 65 6e pend text "\n#en
1390: 64 69 66 20 2f 2a 20 64 65 66 69 6e 65 64 28 55 dif /* defined(U
13a0: 53 45 5f 24 7b 75 70 4e 61 6d 65 7d 5f 53 54 55 SE_${upName}_STU
13b0: 42 53 29 20 26 26 20 21 64 65 66 69 6e 65 64 28 BS) && !defined(
13c0: 55 53 45 5f 24 7b 75 70 4e 61 6d 65 7d 5f 53 54 USE_${upName}_ST
13d0: 55 42 5f 50 52 4f 43 53 29 20 2a 2f 5c 6e 22 0a UB_PROCS) */\n".
13e0: 20 0a 20 20 20 20 20 65 6d 69 74 4d 61 63 72 6f . emitMacro
13f0: 73 20 24 6e 61 6d 65 20 74 65 78 74 0a 20 0a 49 s $name text. .I
1400: 6e 64 65 78 3a 20 75 6e 69 78 2f 4d 61 6b 65 66 ndex: unix/Makef
1410: 69 6c 65 2e 69 6e 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d ile.in.=========
1420: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1430: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1440: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1450: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 ==========.RCS f
1460: 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 ile: /cvsroot/tc
1470: 6c 2f 74 63 6c 2f 75 6e 69 78 2f 4d 61 6b 65 66 l/tcl/unix/Makef
1480: 69 6c 65 2e 69 6e 2c 76 0a 72 65 74 72 69 65 76 ile.in,v.retriev
1490: 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 32 ing revision 1.2
14a0: 32 33 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 32 23.diff -u -r1.2
14b0: 32 33 20 4d 61 6b 65 66 69 6c 65 2e 69 6e 0a 2d 23 Makefile.in.-
14c0: 2d 2d 20 75 6e 69 78 2f 4d 61 6b 65 66 69 6c 65 -- unix/Makefile
14d0: 2e 69 6e 09 31 38 20 4f 63 74 20 32 30 30 37 20 .in.18 Oct 2007
14e0: 31 37 3a 35 32 3a 31 38 20 2d 30 30 30 30 09 31 17:52:18 -0000.1
14f0: 2e 32 32 33 0a 2b 2b 2b 20 75 6e 69 78 2f 4d 61 .223.+++ unix/Ma
1500: 6b 65 66 69 6c 65 2e 69 6e 09 32 34 20 4f 63 74 kefile.in.24 Oct
1510: 20 32 30 30 37 20 31 36 3a 31 34 3a 34 33 20 2d 2007 16:14:43 -
1520: 30 30 30 30 0a 40 40 20 2d 32 39 31 2c 37 20 2b 0000.@@ -291,7 +
1530: 32 39 31 2c 37 20 40 40 0a 20 09 74 63 6c 52 65 291,7 @@. .tclRe
1540: 73 6f 6c 76 65 2e 6f 20 74 63 6c 52 65 73 75 6c solve.o tclResul
1550: 74 2e 6f 20 74 63 6c 53 63 61 6e 2e 6f 20 74 63 t.o tclScan.o tc
1560: 6c 53 74 72 69 6e 67 4f 62 6a 2e 6f 20 5c 0a 20 lStringObj.o \.
1570: 09 74 63 6c 53 74 72 54 6f 44 2e 6f 20 74 63 6c .tclStrToD.o tcl
1580: 54 68 72 65 61 64 2e 6f 20 5c 0a 20 09 74 63 6c Thread.o \. .tcl
1590: 54 68 72 65 61 64 41 6c 6c 6f 63 2e 6f 20 74 63 ThreadAlloc.o tc
15a0: 6c 54 68 72 65 61 64 4a 6f 69 6e 2e 6f 20 74 63 lThreadJoin.o tc
15b0: 6c 54 68 72 65 61 64 53 74 6f 72 61 67 65 2e 6f lThreadStorage.o
15c0: 20 74 63 6c 53 74 75 62 49 6e 69 74 2e 6f 20 5c tclStubInit.o \
15d0: 0a 2d 09 74 63 6c 53 74 75 62 4c 69 62 2e 6f 20 .-.tclStubLib.o
15e0: 74 63 6c 54 69 6d 65 72 2e 6f 20 74 63 6c 54 72 tclTimer.o tclTr
15f0: 61 63 65 2e 6f 20 74 63 6c 55 74 66 2e 6f 20 74 ace.o tclUtf.o t
1600: 63 6c 55 74 69 6c 2e 6f 20 74 63 6c 56 61 72 2e clUtil.o tclVar.
1610: 6f 20 5c 0a 2b 09 74 63 6c 54 69 6d 65 72 2e 6f o \.+.tclTimer.o
1620: 20 74 63 6c 54 72 61 63 65 2e 6f 20 74 63 6c 55 tclTrace.o tclU
1630: 74 66 2e 6f 20 74 63 6c 55 74 69 6c 2e 6f 20 74 tf.o tclUtil.o t
1640: 63 6c 56 61 72 2e 6f 20 5c 0a 20 09 74 63 6c 54 clVar.o \. .tclT
1650: 6f 6d 4d 61 74 68 49 6e 74 65 72 66 61 63 65 2e omMathInterface.
1660: 6f 0a 20 0a 20 54 4f 4d 4d 41 54 48 5f 4f 42 4a o. . TOMMATH_OBJ
1670: 53 20 3d 20 62 6e 63 6f 72 65 2e 6f 20 62 6e 5f S = bncore.o bn_
1680: 72 65 76 65 72 73 65 2e 6f 20 62 6e 5f 66 61 73 reverse.o bn_fas
1690: 74 5f 73 5f 6d 70 5f 6d 75 6c 5f 64 69 67 73 2e t_s_mp_mul_digs.
16a0: 6f 20 5c 0a 40 40 20 2d 34 30 38 2c 37 20 2b 34 o \.@@ -408,7 +4
16b0: 30 38 2c 36 20 40 40 0a 20 09 24 28 47 45 4e 45 08,6 @@. .$(GENE
16c0: 52 49 43 5f 44 49 52 29 2f 74 63 6c 52 65 73 75 RIC_DIR)/tclResu
16d0: 6c 74 2e 63 20 5c 0a 20 09 24 28 47 45 4e 45 52 lt.c \. .$(GENER
16e0: 49 43 5f 44 49 52 29 2f 74 63 6c 53 63 61 6e 2e IC_DIR)/tclScan.
16f0: 63 20 5c 0a 20 09 24 28 47 45 4e 45 52 49 43 5f c \. .$(GENERIC_
1700: 44 49 52 29 2f 74 63 6c 53 74 75 62 49 6e 69 74 DIR)/tclStubInit
1710: 2e 63 20 5c 0a 2d 09 24 28 47 45 4e 45 52 49 43 .c \.-.$(GENERIC
1720: 5f 44 49 52 29 2f 74 63 6c 53 74 75 62 4c 69 62 _DIR)/tclStubLib
1730: 2e 63 20 5c 0a 20 09 24 28 47 45 4e 45 52 49 43 .c \. .$(GENERIC
1740: 5f 44 49 52 29 2f 74 63 6c 53 74 72 69 6e 67 4f _DIR)/tclStringO
1750: 62 6a 2e 63 20 5c 0a 20 09 24 28 47 45 4e 45 52 bj.c \. .$(GENER
1760: 49 43 5f 44 49 52 29 2f 74 63 6c 53 74 72 54 6f IC_DIR)/tclStrTo
1770: 44 2e 63 20 5c 0a 20 09 24 28 47 45 4e 45 52 49 D.c \. .$(GENERI
1780: 43 5f 44 49 52 29 2f 74 63 6c 54 65 73 74 2e 63 C_DIR)/tclTest.c
1790: 20 5c 0a \.
