Attachment "tip298.patch" to
ticket [1601243fff]
added by
dgp
2006-11-27 20:15:35.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 2e 64 65 63 6c 73 0a 3d 3d 3d 3d 3d 3d 3d cl.decls.=======
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 0a 52 43 53 ============.RCS
0060: 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f file: /cvsroot/
0070: 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f tcl/tcl/generic/
0080: 74 63 6c 2e 64 65 63 6c 73 2c 76 0a 72 65 74 72 tcl.decls,v.retr
0090: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
00a0: 31 2e 31 32 33 0a 64 69 66 66 20 2d 75 20 2d 72 1.123.diff -u -r
00b0: 31 2e 31 32 33 20 74 63 6c 2e 64 65 63 6c 73 0a 1.123 tcl.decls.
00c0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 2e --- generic/tcl.
00d0: 64 65 63 6c 73 09 31 35 20 4e 6f 76 20 32 30 30 decls.15 Nov 200
00e0: 36 20 32 30 3a 30 38 3a 34 32 20 2d 30 30 30 30 6 20:08:42 -0000
00f0: 09 31 2e 31 32 33 0a 2b 2b 2b 20 67 65 6e 65 72 .1.123.+++ gener
0100: 69 63 2f 74 63 6c 2e 64 65 63 6c 73 09 32 37 20 ic/tcl.decls.27
0110: 4e 6f 76 20 32 30 30 36 20 31 33 3a 31 33 3a 32 Nov 2006 13:13:2
0120: 30 20 2d 30 30 30 30 0a 40 40 20 2d 32 30 30 35 0 -0000.@@ -2005
0130: 2c 37 20 2b 32 30 30 35 2c 37 20 40 40 0a 20 20 ,7 +2005,7 @@.
0140: 20 20 20 69 6e 74 20 54 63 6c 5f 47 65 74 42 69 int Tcl_GetBi
0150: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 20 54 63 6c gnumFromObj( Tcl
0160: 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 2c _Interp* interp,
0170: 20 54 63 6c 5f 4f 62 6a 2a 20 6f 62 6a 2c 20 6d Tcl_Obj* obj, m
0180: 70 5f 69 6e 74 2a 20 76 61 6c 75 65 20 29 0a 20 p_int* value ).
0190: 7d 0a 20 64 65 63 6c 61 72 65 20 35 35 39 20 67 }. declare 559 g
01a0: 65 6e 65 72 69 63 20 7b 0a 2d 20 20 20 20 69 6e eneric {.- in
01b0: 74 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 t Tcl_GetBignumA
01c0: 6e 64 43 6c 65 61 72 4f 62 6a 28 20 54 63 6c 5f ndClearObj( Tcl_
01d0: 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 2c 20 Interp* interp,
01e0: 54 63 6c 5f 4f 62 6a 2a 20 6f 62 6a 2c 20 6d 70 Tcl_Obj* obj, mp
01f0: 5f 69 6e 74 2a 20 76 61 6c 75 65 20 29 0a 2b 20 _int* value ).+
0200: 20 20 20 69 6e 74 20 54 63 6c 5f 54 61 6b 65 42 int Tcl_TakeB
0210: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 20 54 63 ignumFromObj( Tc
0220: 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 72 70 l_Interp* interp
0230: 2c 20 54 63 6c 5f 4f 62 6a 2a 20 6f 62 6a 2c 20 , Tcl_Obj* obj,
0240: 6d 70 5f 69 6e 74 2a 20 76 61 6c 75 65 20 29 0a mp_int* value ).
0250: 20 7d 0a 20 0a 20 23 20 54 49 50 20 23 32 30 38 }. . # TIP #208
0260: 20 28 27 63 68 61 6e 27 20 43 6f 6d 6d 61 6e 64 ('chan' Command
0270: 29 20 6a 65 66 66 68 0a 49 6e 64 65 78 3a 20 67 ) jeffh.Index: g
0280: 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c 73 2e eneric/tclDecls.
0290: 68 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d h.==============
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 3d ================
02c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
02d0: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
02e0: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
02f0: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c /generic/tclDecl
0300: 73 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 s.h,v.retrieving
0310: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 32 36 0a revision 1.126.
0320: 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 32 36 20 diff -u -r1.126
0330: 74 63 6c 44 65 63 6c 73 2e 68 0a 2d 2d 2d 20 67 tclDecls.h.--- g
0340: 65 6e 65 72 69 63 2f 74 63 6c 44 65 63 6c 73 2e eneric/tclDecls.
0350: 68 09 31 35 20 4e 6f 76 20 32 30 30 36 20 32 30 h.15 Nov 2006 20
0360: 3a 30 38 3a 34 33 20 2d 30 30 30 30 09 31 2e 31 :08:43 -0000.1.1
0370: 32 36 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 26.+++ generic/t
0380: 63 6c 44 65 63 6c 73 2e 68 09 32 37 20 4e 6f 76 clDecls.h.27 Nov
0390: 20 32 30 30 36 20 31 33 3a 31 33 3a 32 30 20 2d 2006 13:13:20 -
03a0: 30 30 30 30 0a 40 40 20 2d 33 33 32 39 2c 31 30 0000.@@ -3329,10
03b0: 20 2b 33 33 32 39 2c 31 30 20 40 40 0a 20 45 58 +3329,10 @@. EX
03c0: 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 5f 47 65 TERN int..Tcl_Ge
03d0: 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 20 28 tBignumFromObj (
03e0: 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 Tcl_Interp* inte
03f0: 72 70 2c 20 0a 20 09 09 09 09 54 63 6c 5f 4f 62 rp, . ....Tcl_Ob
0400: 6a 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a 20 j* obj, mp_int*
0410: 76 61 6c 75 65 29 3b 0a 20 23 65 6e 64 69 66 0a value);. #endif.
0420: 2d 23 69 66 6e 64 65 66 20 54 63 6c 5f 47 65 74 -#ifndef Tcl_Get
0430: 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 BignumAndClearOb
0440: 6a 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2d j_TCL_DECLARED.-
0450: 23 64 65 66 69 6e 65 20 54 63 6c 5f 47 65 74 42 #define Tcl_GetB
0460: 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a ignumAndClearObj
0470: 5f 54 43 4c 5f 44 45 43 4c 41 52 45 44 0a 2b 23 _TCL_DECLARED.+#
0480: 69 66 6e 64 65 66 20 54 63 6c 5f 54 61 6b 65 42 ifndef Tcl_TakeB
0490: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 5f 54 43 4c ignumFromObj_TCL
04a0: 5f 44 45 43 4c 41 52 45 44 0a 2b 23 64 65 66 69 _DECLARED.+#defi
04b0: 6e 65 20 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 ne Tcl_TakeBignu
04c0: 6d 46 72 6f 6d 4f 62 6a 5f 54 43 4c 5f 44 45 43 mFromObj_TCL_DEC
04d0: 4c 41 52 45 44 0a 20 2f 2a 20 35 35 39 20 2a 2f LARED. /* 559 */
04e0: 0a 2d 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 .-EXTERN int..Tc
04f0: 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c l_GetBignumAndCl
0500: 65 61 72 4f 62 6a 20 28 54 63 6c 5f 49 6e 74 65 earObj (Tcl_Inte
0510: 72 70 2a 20 69 6e 74 65 72 70 2c 20 0a 2b 45 58 rp* interp, .+EX
0520: 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 5f 54 61 TERN int..Tcl_Ta
0530: 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 20 keBignumFromObj
0540: 28 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 (Tcl_Interp* int
0550: 65 72 70 2c 20 0a 20 09 09 09 09 54 63 6c 5f 4f erp, . ....Tcl_O
0560: 62 6a 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a bj* obj, mp_int*
0570: 20 76 61 6c 75 65 29 3b 0a 20 23 65 6e 64 69 66 value);. #endif
0580: 0a 20 23 69 66 6e 64 65 66 20 54 63 6c 5f 54 72 . #ifndef Tcl_Tr
0590: 75 6e 63 61 74 65 43 68 61 6e 6e 65 6c 5f 54 43 uncateChannel_TC
05a0: 4c 5f 44 45 43 4c 41 52 45 44 0a 40 40 20 2d 34 L_DECLARED.@@ -4
05b0: 30 35 34 2c 37 20 2b 34 30 35 34 2c 37 20 40 40 054,7 +4054,7 @@
05c0: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 2a 20 28 . Tcl_Obj* (
05d0: 2a 74 63 6c 5f 44 62 4e 65 77 42 69 67 6e 75 6d *tcl_DbNewBignum
05e0: 4f 62 6a 29 20 28 6d 70 5f 69 6e 74 2a 20 76 61 Obj) (mp_int* va
05f0: 6c 75 65 2c 20 43 4f 4e 53 54 20 63 68 61 72 2a lue, CONST char*
0600: 20 66 69 6c 65 2c 20 69 6e 74 20 6c 69 6e 65 29 file, int line)
0610: 3b 20 2f 2a 20 35 35 36 20 2a 2f 0a 20 20 20 20 ; /* 556 */.
0620: 20 76 6f 69 64 20 28 2a 74 63 6c 5f 53 65 74 42 void (*tcl_SetB
0630: 69 67 6e 75 6d 4f 62 6a 29 20 28 54 63 6c 5f 4f ignumObj) (Tcl_O
0640: 62 6a 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a bj* obj, mp_int*
0650: 20 76 61 6c 75 65 29 3b 20 2f 2a 20 35 35 37 20 value); /* 557
0660: 2a 2f 0a 20 20 20 20 20 69 6e 74 20 28 2a 74 63 */. int (*tc
0670: 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f l_GetBignumFromO
0680: 62 6a 29 20 28 54 63 6c 5f 49 6e 74 65 72 70 2a bj) (Tcl_Interp*
0690: 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 6a interp, Tcl_Obj
06a0: 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a 20 76 * obj, mp_int* v
06b0: 61 6c 75 65 29 3b 20 2f 2a 20 35 35 38 20 2a 2f alue); /* 558 */
06c0: 0a 2d 20 20 20 20 69 6e 74 20 28 2a 74 63 6c 5f .- int (*tcl_
06d0: 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 GetBignumAndClea
06e0: 72 4f 62 6a 29 20 28 54 63 6c 5f 49 6e 74 65 72 rObj) (Tcl_Inter
06f0: 70 2a 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f p* interp, Tcl_O
0700: 62 6a 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a bj* obj, mp_int*
0710: 20 76 61 6c 75 65 29 3b 20 2f 2a 20 35 35 39 20 value); /* 559
0720: 2a 2f 0a 2b 20 20 20 20 69 6e 74 20 28 2a 74 63 */.+ int (*tc
0730: 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d l_TakeBignumFrom
0740: 4f 62 6a 29 20 28 54 63 6c 5f 49 6e 74 65 72 70 Obj) (Tcl_Interp
0750: 2a 20 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4f 62 * interp, Tcl_Ob
0760: 6a 2a 20 6f 62 6a 2c 20 6d 70 5f 69 6e 74 2a 20 j* obj, mp_int*
0770: 76 61 6c 75 65 29 3b 20 2f 2a 20 35 35 39 20 2a value); /* 559 *
0780: 2f 0a 20 20 20 20 20 69 6e 74 20 28 2a 74 63 6c /. int (*tcl
0790: 5f 54 72 75 6e 63 61 74 65 43 68 61 6e 6e 65 6c _TruncateChannel
07a0: 29 20 28 54 63 6c 5f 43 68 61 6e 6e 65 6c 20 63 ) (Tcl_Channel c
07b0: 68 61 6e 2c 20 54 63 6c 5f 57 69 64 65 49 6e 74 han, Tcl_WideInt
07c0: 20 6c 65 6e 67 74 68 29 3b 20 2f 2a 20 35 36 30 length); /* 560
07d0: 20 2a 2f 0a 20 20 20 20 20 54 63 6c 5f 44 72 69 */. Tcl_Dri
07e0: 76 65 72 54 72 75 6e 63 61 74 65 50 72 6f 63 20 verTruncateProc
07f0: 2a 20 28 2a 74 63 6c 5f 43 68 61 6e 6e 65 6c 54 * (*tcl_ChannelT
0800: 72 75 6e 63 61 74 65 50 72 6f 63 29 20 28 54 63 runcateProc) (Tc
0810: 6c 5f 43 68 61 6e 6e 65 6c 54 79 70 65 20 2a 20 l_ChannelType *
0820: 63 68 61 6e 54 79 70 65 50 74 72 29 3b 20 2f 2a chanTypePtr); /*
0830: 20 35 36 31 20 2a 2f 0a 20 20 20 20 20 76 6f 69 561 */. voi
0840: 64 20 28 2a 74 63 6c 5f 53 65 74 43 68 61 6e 6e d (*tcl_SetChann
0850: 65 6c 45 72 72 6f 72 49 6e 74 65 72 70 29 20 28 elErrorInterp) (
0860: 54 63 6c 5f 49 6e 74 65 72 70 2a 20 69 6e 74 65 Tcl_Interp* inte
0870: 72 70 2c 20 54 63 6c 5f 4f 62 6a 2a 20 6d 73 67 rp, Tcl_Obj* msg
0880: 29 3b 20 2f 2a 20 35 36 32 20 2a 2f 0a 40 40 20 ); /* 562 */.@@
0890: 2d 36 33 35 31 2c 39 20 2b 36 33 35 31 2c 39 20 -6351,9 +6351,9
08a0: 40 40 0a 20 23 64 65 66 69 6e 65 20 54 63 6c 5f @@. #define Tcl_
08b0: 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a GetBignumFromObj
08c0: 20 5c 0a 20 09 28 74 63 6c 53 74 75 62 73 50 74 \. .(tclStubsPt
08d0: 72 2d 3e 74 63 6c 5f 47 65 74 42 69 67 6e 75 6d r->tcl_GetBignum
08e0: 46 72 6f 6d 4f 62 6a 29 20 2f 2a 20 35 35 38 20 FromObj) /* 558
08f0: 2a 2f 0a 20 23 65 6e 64 69 66 0a 2d 23 69 66 6e */. #endif.-#ifn
0900: 64 65 66 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 def Tcl_GetBignu
0910: 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 0a 2d 23 64 mAndClearObj.-#d
0920: 65 66 69 6e 65 20 54 63 6c 5f 47 65 74 42 69 67 efine Tcl_GetBig
0930: 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 20 5c numAndClearObj \
0940: 0a 2d 09 28 74 63 6c 53 74 75 62 73 50 74 72 2d .-.(tclStubsPtr-
0950: 3e 74 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e >tcl_GetBignumAn
0960: 64 43 6c 65 61 72 4f 62 6a 29 20 2f 2a 20 35 35 dClearObj) /* 55
0970: 39 20 2a 2f 0a 2b 23 69 66 6e 64 65 66 20 54 63 9 */.+#ifndef Tc
0980: 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d l_TakeBignumFrom
0990: 4f 62 6a 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c Obj.+#define Tcl
09a0: 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f _TakeBignumFromO
09b0: 62 6a 20 5c 0a 2b 09 28 74 63 6c 53 74 75 62 73 bj \.+.(tclStubs
09c0: 50 74 72 2d 3e 74 63 6c 5f 54 61 6b 65 42 69 67 Ptr->tcl_TakeBig
09d0: 6e 75 6d 46 72 6f 6d 4f 62 6a 29 20 2f 2a 20 35 numFromObj) /* 5
09e0: 35 39 20 2a 2f 0a 20 23 65 6e 64 69 66 0a 20 23 59 */. #endif. #
09f0: 69 66 6e 64 65 66 20 54 63 6c 5f 54 72 75 6e 63 ifndef Tcl_Trunc
0a00: 61 74 65 43 68 61 6e 6e 65 6c 0a 20 23 64 65 66 ateChannel. #def
0a10: 69 6e 65 20 54 63 6c 5f 54 72 75 6e 63 61 74 65 ine Tcl_Truncate
0a20: 43 68 61 6e 6e 65 6c 20 5c 0a 49 6e 64 65 78 3a Channel \.Index:
0a30: 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 65 63 generic/tclExec
0a40: 75 74 65 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ute.c.==========
0a50: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0a60: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0a70: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0a80: 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 =========.RCS fi
0a90: 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c le: /cvsroot/tcl
0aa0: 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c /tcl/generic/tcl
0ab0: 45 78 65 63 75 74 65 2e 63 2c 76 0a 72 65 74 72 Execute.c,v.retr
0ac0: 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 ieving revision
0ad0: 31 2e 32 35 32 0a 64 69 66 66 20 2d 75 20 2d 72 1.252.diff -u -r
0ae0: 31 2e 32 35 32 20 74 63 6c 45 78 65 63 75 74 65 1.252 tclExecute
0af0: 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .c.--- generic/t
0b00: 63 6c 45 78 65 63 75 74 65 2e 63 09 31 37 20 4e clExecute.c.17 N
0b10: 6f 76 20 32 30 30 36 20 32 31 3a 32 32 3a 31 38 ov 2006 21:22:18
0b20: 20 2d 30 30 30 30 09 31 2e 32 35 32 0a 2b 2b 2b -0000.1.252.+++
0b30: 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 78 65 63 generic/tclExec
0b40: 75 74 65 2e 63 09 32 37 20 4e 6f 76 20 32 30 30 ute.c.27 Nov 200
0b50: 36 20 31 33 3a 31 33 3a 32 31 20 2d 30 30 30 30 6 13:13:21 -0000
0b60: 0a 40 40 20 2d 31 31 30 32 2c 37 20 2b 31 31 30 .@@ -1102,7 +110
0b70: 32 2c 37 20 40 40 0a 20 20 20 20 20 7d 0a 20 23 2,7 @@. }. #
0b80: 65 6e 64 69 66 0a 20 0a 2d 20 20 20 20 54 63 6c endif. .- Tcl
0b90: 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 _GetBignumAndCle
0ba0: 61 72 4f 62 6a 28 69 6e 74 65 72 70 2c 20 76 61 arObj(interp, va
0bb0: 6c 75 65 50 74 72 2c 20 26 76 61 6c 75 65 29 3b luePtr, &value);
0bc0: 0a 2b 20 20 20 20 54 63 6c 5f 54 61 6b 65 42 69 .+ Tcl_TakeBi
0bd0: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 69 6e 74 65 gnumFromObj(inte
0be0: 72 70 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 76 rp, valuePtr, &v
0bf0: 61 6c 75 65 29 3b 0a 20 20 20 20 20 54 63 6c 5f alue);. Tcl_
0c00: 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a GetBignumFromObj
0c10: 28 69 6e 74 65 72 70 2c 20 69 6e 63 72 50 74 72 (interp, incrPtr
0c20: 2c 20 26 69 6e 63 72 29 3b 0a 20 20 20 20 20 6d , &incr);. m
0c30: 70 5f 61 64 64 28 26 76 61 6c 75 65 2c 20 26 69 p_add(&value, &i
0c40: 6e 63 72 2c 20 26 76 61 6c 75 65 29 3b 0a 20 20 ncr, &value);.
0c50: 20 20 20 6d 70 5f 63 6c 65 61 72 28 26 69 6e 63 mp_clear(&inc
0c60: 72 29 3b 0a 40 40 20 2d 33 34 36 35 2c 31 31 20 r);.@@ -3465,11
0c70: 2b 33 34 36 35 2c 37 20 40 40 0a 20 09 09 6c 32 +3465,7 @@. ..l2
0c80: 20 3d 20 28 6c 6f 6e 67 29 20 64 32 3b 0a 20 09 = (long) d2;. .
0c90: 09 67 6f 74 6f 20 6c 6f 6e 67 43 6f 6d 70 61 72 .goto longCompar
0ca0: 65 3b 0a 20 09 20 20 20 20 63 61 73 65 20 54 43 e;. . case TC
0cb0: 4c 5f 4e 55 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 L_NUMBER_BIG:.-.
0cc0: 09 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 .if (Tcl_IsShare
0cd0: 64 28 76 61 6c 75 65 32 50 74 72 29 29 20 7b 0a d(value2Ptr)) {.
0ce0: 2d 09 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 -.. Tcl_GetBi
0cf0: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c gnumFromObj(NULL
0d00: 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 , value2Ptr, &bi
0d10: 67 32 29 3b 0a 2d 09 09 7d 20 65 6c 73 65 20 7b g2);.-..} else {
0d20: 0a 2d 09 09 20 20 20 20 54 63 6c 5f 47 65 74 42 .-.. Tcl_GetB
0d30: 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a ignumAndClearObj
0d40: 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 (NULL, value2Ptr
0d50: 2c 20 26 62 69 67 32 29 3b 0a 2d 09 09 7d 0a 2b , &big2);.-..}.+
0d60: 09 09 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d ..Tcl_TakeBignum
0d70: 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 FromObj(NULL, va
0d80: 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b lue2Ptr, &big2);
0d90: 0a 20 09 09 69 66 20 28 6d 70 5f 63 6d 70 5f 64 . ..if (mp_cmp_d
0da0: 28 26 62 69 67 32 2c 20 30 29 20 3d 3d 20 4d 50 (&big2, 0) == MP
0db0: 5f 4c 54 29 20 7b 0a 20 09 09 20 20 20 20 63 6f _LT) {. .. co
0dc0: 6d 70 61 72 65 20 3d 20 4d 50 5f 47 54 3b 0a 20 mpare = MP_GT;.
0dd0: 09 09 7d 20 65 6c 73 65 20 7b 0a 40 40 20 2d 33 ..} else {.@@ -3
0de0: 35 31 30 2c 31 31 20 2b 33 35 30 36 2c 37 20 40 510,11 +3506,7 @
0df0: 40 0a 20 09 09 77 32 20 3d 20 28 54 63 6c 5f 57 @. ..w2 = (Tcl_W
0e00: 69 64 65 49 6e 74 29 20 64 32 3b 0a 20 09 09 67 ideInt) d2;. ..g
0e10: 6f 74 6f 20 77 69 64 65 43 6f 6d 70 61 72 65 3b oto wideCompare;
0e20: 0a 20 09 20 20 20 20 63 61 73 65 20 54 43 4c 5f . . case TCL_
0e30: 4e 55 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 09 69 NUMBER_BIG:.-..i
0e40: 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 f (Tcl_IsShared(
0e50: 76 61 6c 75 65 32 50 74 72 29 29 20 7b 0a 2d 09 value2Ptr)) {.-.
0e60: 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e . Tcl_GetBign
0e70: 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 umFromObj(NULL,
0e80: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
0e90: 29 3b 0a 2d 09 09 7d 20 65 6c 73 65 20 7b 0a 2d );.-..} else {.-
0ea0: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 .. Tcl_GetBig
0eb0: 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e numAndClearObj(N
0ec0: 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 ULL, value2Ptr,
0ed0: 26 62 69 67 32 29 3b 0a 2d 09 09 7d 0a 2b 09 09 &big2);.-..}.+..
0ee0: 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 Tcl_TakeBignumFr
0ef0: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 omObj(NULL, valu
0f00: 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 20 e2Ptr, &big2);.
0f10: 09 09 69 66 20 28 6d 70 5f 63 6d 70 5f 64 28 26 ..if (mp_cmp_d(&
0f20: 62 69 67 32 2c 20 30 29 20 3d 3d 20 4d 50 5f 4c big2, 0) == MP_L
0f30: 54 29 20 7b 0a 20 09 09 20 20 20 20 63 6f 6d 70 T) {. .. comp
0f40: 61 72 65 20 3d 20 4d 50 5f 47 54 3b 0a 20 09 09 are = MP_GT;. ..
0f50: 7d 20 65 6c 73 65 20 7b 0a 40 40 20 2d 33 35 37 } else {.@@ -357
0f60: 35 2c 31 31 20 2b 33 35 36 37 2c 37 20 40 40 0a 5,11 +3567,7 @@.
0f70: 20 09 09 20 20 20 20 63 6f 6d 70 61 72 65 20 3d .. compare =
0f80: 20 28 64 31 20 3e 20 30 2e 30 29 20 3f 20 4d 50 (d1 > 0.0) ? MP
0f90: 5f 47 54 20 3a 20 4d 50 5f 4c 54 3b 0a 20 09 09 _GT : MP_LT;. ..
0fa0: 20 20 20 20 62 72 65 61 6b 3b 0a 20 09 09 7d 0a break;. ..}.
0fb0: 2d 09 09 69 66 20 28 54 63 6c 5f 49 73 53 68 61 -..if (Tcl_IsSha
0fc0: 72 65 64 28 76 61 6c 75 65 32 50 74 72 29 29 20 red(value2Ptr))
0fd0: 7b 0a 2d 09 09 20 20 20 20 54 63 6c 5f 47 65 74 {.-.. Tcl_Get
0fe0: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 BignumFromObj(NU
0ff0: 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 26 LL, value2Ptr, &
1000: 62 69 67 32 29 3b 0a 2d 09 09 7d 20 65 6c 73 65 big2);.-..} else
1010: 20 7b 0a 2d 09 09 20 20 20 20 54 63 6c 5f 47 65 {.-.. Tcl_Ge
1020: 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f tBignumAndClearO
1030: 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 bj(NULL, value2P
1040: 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d 09 09 7d tr, &big2);.-..}
1050: 0a 2b 09 09 54 63 6c 5f 54 61 6b 65 42 69 67 6e .+..Tcl_TakeBign
1060: 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 umFromObj(NULL,
1070: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
1080: 29 3b 0a 20 09 09 69 66 20 28 28 64 31 20 3c 20 );. ..if ((d1 <
1090: 28 64 6f 75 62 6c 65 29 4c 4f 4e 47 5f 4d 41 58 (double)LONG_MAX
10a0: 29 20 26 26 20 28 64 31 20 3e 20 28 64 6f 75 62 ) && (d1 > (doub
10b0: 6c 65 29 4c 4f 4e 47 5f 4d 49 4e 29 29 20 7b 0a le)LONG_MIN)) {.
10c0: 20 09 09 20 20 20 20 69 66 20 28 6d 70 5f 63 6d .. if (mp_cm
10d0: 70 5f 64 28 26 62 69 67 32 2c 20 30 29 20 3d 3d p_d(&big2, 0) ==
10e0: 20 4d 50 5f 4c 54 29 20 7b 0a 20 09 09 09 63 6f MP_LT) {. ...co
10f0: 6d 70 61 72 65 20 3d 20 4d 50 5f 47 54 3b 0a 40 mpare = MP_GT;.@
1100: 40 20 2d 33 36 30 31 2c 31 31 20 2b 33 35 38 39 @ -3601,11 +3589
1110: 2c 37 20 40 40 0a 20 09 20 20 20 20 62 72 65 61 ,7 @@. . brea
1120: 6b 3b 0a 20 0a 20 09 63 61 73 65 20 54 43 4c 5f k;. . .case TCL_
1130: 4e 55 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 20 20 NUMBER_BIG:.-.
1140: 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 if (Tcl_IsShar
1150: 65 64 28 76 61 6c 75 65 50 74 72 29 29 20 7b 0a ed(valuePtr)) {.
1160: 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d -..Tcl_GetBignum
1170: 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 FromObj(NULL, va
1180: 6c 75 65 50 74 72 2c 20 26 62 69 67 31 29 3b 0a luePtr, &big1);.
1190: 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d -. } else {.-
11a0: 09 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 ..Tcl_GetBignumA
11b0: 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c ndClearObj(NULL,
11c0: 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 valuePtr, &big1
11d0: 29 3b 0a 2d 09 20 20 20 20 7d 0a 2b 09 20 20 20 );.-. }.+.
11e0: 20 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 Tcl_TakeBignumF
11f0: 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c romObj(NULL, val
1200: 75 65 50 74 72 2c 20 26 62 69 67 31 29 3b 0a 20 uePtr, &big1);.
1210: 09 20 20 20 20 73 77 69 74 63 68 20 28 74 79 70 . switch (typ
1220: 65 32 29 20 7b 0a 20 23 69 66 6e 64 65 66 20 4e e2) {. #ifndef N
1230: 4f 5f 57 49 44 45 5f 54 59 50 45 0a 20 09 20 20 O_WIDE_TYPE. .
1240: 20 20 63 61 73 65 20 54 43 4c 5f 4e 55 4d 42 45 case TCL_NUMBE
1250: 52 5f 57 49 44 45 3a 0a 40 40 20 2d 33 36 33 35 R_WIDE:.@@ -3635
1260: 2c 31 31 20 2b 33 36 31 39 2c 37 20 40 40 0a 20 ,11 +3619,7 @@.
1270: 09 09 54 63 6c 5f 49 6e 69 74 42 69 67 6e 75 6d ..Tcl_InitBignum
1280: 46 72 6f 6d 44 6f 75 62 6c 65 28 4e 55 4c 4c 2c FromDouble(NULL,
1290: 20 64 32 2c 20 26 62 69 67 32 29 3b 0a 20 09 09 d2, &big2);. ..
12a0: 67 6f 74 6f 20 62 69 67 43 6f 6d 70 61 72 65 3b goto bigCompare;
12b0: 0a 20 09 20 20 20 20 63 61 73 65 20 54 43 4c 5f . . case TCL_
12c0: 4e 55 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 09 69 NUMBER_BIG:.-..i
12d0: 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 f (Tcl_IsShared(
12e0: 76 61 6c 75 65 32 50 74 72 29 29 20 7b 0a 2d 09 value2Ptr)) {.-.
12f0: 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e . Tcl_GetBign
1300: 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 umFromObj(NULL,
1310: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
1320: 29 3b 0a 2d 09 09 7d 20 65 6c 73 65 20 7b 0a 2d );.-..} else {.-
1330: 09 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 .. Tcl_GetBig
1340: 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e numAndClearObj(N
1350: 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 ULL, value2Ptr,
1360: 26 62 69 67 32 29 3b 0a 2d 09 09 7d 0a 2b 09 09 &big2);.-..}.+..
1370: 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 Tcl_TakeBignumFr
1380: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 omObj(NULL, valu
1390: 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 20 e2Ptr, &big2);.
13a0: 09 20 20 20 20 62 69 67 43 6f 6d 70 61 72 65 3a . bigCompare:
13b0: 0a 20 09 09 63 6f 6d 70 61 72 65 20 3d 20 6d 70 . ..compare = mp
13c0: 5f 63 6d 70 28 26 62 69 67 31 2c 20 26 62 69 67 _cmp(&big1, &big
13d0: 32 29 3b 0a 20 09 09 6d 70 5f 63 6c 65 61 72 28 2);. ..mp_clear(
13e0: 26 62 69 67 31 29 3b 0a 40 40 20 2d 33 37 38 39 &big1);.@@ -3789
13f0: 2c 31 31 20 2b 33 37 36 39 2c 37 20 40 40 0a 20 ,11 +3769,7 @@.
1400: 23 65 6e 64 69 66 0a 20 09 09 7b 0a 20 09 09 20 #endif. ..{. ..
1410: 20 20 20 6d 70 5f 69 6e 74 20 62 69 67 32 3b 0a mp_int big2;.
1420: 2d 09 09 20 20 20 20 69 66 20 28 54 63 6c 5f 49 -.. if (Tcl_I
1430: 73 53 68 61 72 65 64 28 76 61 6c 75 65 32 50 74 sShared(value2Pt
1440: 72 29 29 20 7b 0a 2d 09 09 09 54 63 6c 5f 47 65 r)) {.-...Tcl_Ge
1450: 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e tBignumFromObj(N
1460: 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 ULL, value2Ptr,
1470: 26 62 69 67 32 29 3b 0a 2d 09 09 20 20 20 20 7d &big2);.-.. }
1480: 20 65 6c 73 65 20 7b 0a 2d 09 09 09 54 63 6c 5f else {.-...Tcl_
1490: 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 GetBignumAndClea
14a0: 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 rObj(NULL, value
14b0: 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d 09 2Ptr, &big2);.-.
14c0: 09 20 20 20 20 7d 0a 2b 09 09 20 20 20 20 54 63 . }.+.. Tc
14d0: 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d l_TakeBignumFrom
14e0: 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 Obj(NULL, value2
14f0: 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 20 0a 20 Ptr, &big2);. .
1500: 09 09 20 20 20 20 2f 2a 20 54 4f 44 4f 3a 20 69 .. /* TODO: i
1510: 6e 74 65 72 6e 61 6c 73 20 69 6e 74 72 75 73 69 nternals intrusi
1520: 6f 6e 20 2a 2f 0a 20 09 09 20 20 20 20 69 66 20 on */. .. if
1530: 28 28 6c 31 20 3e 20 30 29 20 5e 20 28 62 69 67 ((l1 > 0) ^ (big
1540: 32 2e 73 69 67 6e 20 3d 3d 20 4d 50 5f 5a 50 4f 2.sign == MP_ZPO
1550: 53 29 29 20 7b 0a 40 40 20 2d 33 38 33 37 2c 31 S)) {.@@ -3837,1
1560: 31 20 2b 33 38 31 33 2c 37 20 40 40 0a 20 09 09 1 +3813,7 @@. ..
1570: 7d 0a 20 09 09 7b 0a 20 09 09 20 20 20 20 6d 70 }. ..{. .. mp
1580: 5f 69 6e 74 20 62 69 67 32 3b 0a 2d 09 09 20 20 _int big2;.-..
1590: 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 if (Tcl_IsShar
15a0: 65 64 28 76 61 6c 75 65 32 50 74 72 29 29 20 7b ed(value2Ptr)) {
15b0: 0a 2d 09 09 09 54 63 6c 5f 47 65 74 42 69 67 6e .-...Tcl_GetBign
15c0: 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 umFromObj(NULL,
15d0: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
15e0: 29 3b 0a 2d 09 09 20 20 20 20 7d 20 65 6c 73 65 );.-.. } else
15f0: 20 7b 0a 2d 09 09 09 54 63 6c 5f 47 65 74 42 69 {.-...Tcl_GetBi
1600: 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 gnumAndClearObj(
1610: 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c NULL, value2Ptr,
1620: 20 26 62 69 67 32 29 3b 0a 2d 09 09 20 20 20 20 &big2);.-..
1630: 7d 0a 2b 09 09 20 20 20 20 54 63 6c 5f 54 61 6b }.+.. Tcl_Tak
1640: 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e eBignumFromObj(N
1650: 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 ULL, value2Ptr,
1660: 26 62 69 67 32 29 3b 0a 20 0a 20 09 09 20 20 20 &big2);. . ..
1670: 20 2f 2a 20 54 4f 44 4f 3a 20 69 6e 74 65 72 6e /* TODO: intern
1680: 61 6c 73 20 69 6e 74 72 75 73 69 6f 6e 20 2a 2f als intrusion */
1690: 0a 20 09 09 20 20 20 20 69 66 20 28 28 77 31 20 . .. if ((w1
16a0: 3e 20 28 28 54 63 6c 5f 57 69 64 65 49 6e 74 29 > ((Tcl_WideInt)
16b0: 20 30 29 29 20 5e 20 28 62 69 67 32 2e 73 69 67 0)) ^ (big2.sig
16c0: 6e 20 3d 3d 20 4d 50 5f 5a 50 4f 53 29 29 20 7b n == MP_ZPOS)) {
16d0: 0a 40 40 20 2d 34 30 34 31 2c 31 31 20 2b 34 30 .@@ -4041,11 +40
16e0: 31 33 2c 37 20 40 40 0a 20 09 7b 0a 20 09 20 20 13,7 @@. .{. .
16f0: 20 20 6d 70 5f 69 6e 74 20 62 69 67 2c 20 62 69 mp_int big, bi
1700: 67 52 65 73 75 6c 74 2c 20 62 69 67 52 65 6d 61 gResult, bigRema
1710: 69 6e 64 65 72 3b 0a 20 0a 2d 09 20 20 20 20 69 inder;. .-. i
1720: 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 f (Tcl_IsShared(
1730: 76 61 6c 75 65 50 74 72 29 29 20 7b 0a 2d 09 09 valuePtr)) {.-..
1740: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f Tcl_GetBignumFro
1750: 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 mObj(NULL, value
1760: 50 74 72 2c 20 26 62 69 67 29 3b 0a 2d 09 20 20 Ptr, &big);.-.
1770: 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 54 63 } else {.-..Tc
1780: 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c l_GetBignumAndCl
1790: 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c earObj(NULL, val
17a0: 75 65 50 74 72 2c 20 26 62 69 67 29 3b 0a 2d 09 uePtr, &big);.-.
17b0: 20 20 20 20 7d 0a 2b 09 20 20 20 20 54 63 6c 5f }.+. Tcl_
17c0: 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 TakeBignumFromOb
17d0: 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 72 j(NULL, valuePtr
17e0: 2c 20 26 62 69 67 29 3b 0a 20 0a 20 09 20 20 20 , &big);. . .
17f0: 20 6d 70 5f 69 6e 69 74 28 26 62 69 67 52 65 73 mp_init(&bigRes
1800: 75 6c 74 29 3b 0a 20 09 20 20 20 20 69 66 20 28 ult);. . if (
1810: 2a 70 63 20 3d 3d 20 49 4e 53 54 5f 4c 53 48 49 *pc == INST_LSHI
1820: 46 54 29 20 7b 0a 40 40 20 2d 34 31 30 36 2c 31 FT) {.@@ -4106,1
1830: 36 20 2b 34 30 37 34 2c 38 20 40 40 0a 20 09 20 6 +4074,8 @@. .
1840: 20 20 20 6d 70 5f 69 6e 74 20 2a 46 69 72 73 74 mp_int *First
1850: 2c 20 2a 53 65 63 6f 6e 64 3b 0a 20 09 20 20 20 , *Second;. .
1860: 20 69 6e 74 20 6e 75 6d 50 6f 73 3b 0a 20 0a 2d int numPos;. .-
1870: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 . if (Tcl_IsS
1880: 68 61 72 65 64 28 76 61 6c 75 65 50 74 72 29 29 hared(valuePtr))
1890: 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 {.-..Tcl_GetBig
18a0: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
18b0: 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 valuePtr, &big1
18c0: 29 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 );.-. } else
18d0: 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 6e {.-..Tcl_GetBign
18e0: 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 umAndClearObj(NU
18f0: 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 62 LL, valuePtr, &b
1900: 69 67 31 29 3b 0a 2d 09 20 20 20 20 7d 0a 2d 09 ig1);.-. }.-.
1910: 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 if (Tcl_IsSh
1920: 61 72 65 64 28 76 61 6c 75 65 32 50 74 72 29 29 ared(value2Ptr))
1930: 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 {.-..Tcl_GetBig
1940: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
1950: 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 value2Ptr, &big
1960: 32 29 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65 2);.-. } else
1970: 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 {.-..Tcl_GetBig
1980: 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e numAndClearObj(N
1990: 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 ULL, value2Ptr,
19a0: 26 62 69 67 32 29 3b 0a 2d 09 20 20 20 20 7d 0a &big2);.-. }.
19b0: 2b 09 20 20 20 20 54 63 6c 5f 54 61 6b 65 42 69 +. Tcl_TakeBi
19c0: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c gnumFromObj(NULL
19d0: 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 , valuePtr, &big
19e0: 31 29 3b 0a 2b 09 20 20 20 20 54 63 6c 5f 54 61 1);.+. Tcl_Ta
19f0: 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 keBignumFromObj(
1a00: 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c NULL, value2Ptr,
1a10: 20 26 62 69 67 32 29 3b 0a 20 0a 20 09 20 20 20 &big2);. . .
1a20: 20 2f 2a 0a 20 09 20 20 20 20 20 2a 20 43 6f 75 /*. . * Cou
1a30: 6e 74 20 68 6f 77 20 6d 61 6e 79 20 70 6f 73 69 nt how many posi
1a40: 74 69 76 65 20 61 72 67 75 6d 65 6e 74 73 20 77 tive arguments w
1a50: 65 20 68 61 76 65 2e 20 49 66 20 6f 6e 6c 79 20 e have. If only
1a60: 6f 6e 65 20 6f 66 20 74 68 65 0a 40 40 20 2d 34 one of the.@@ -4
1a70: 37 32 30 2c 31 31 20 2b 34 36 38 30 2c 37 20 40 720,11 +4680,7 @
1a80: 40 0a 20 23 65 6e 64 69 66 0a 20 09 20 20 20 20 @. #endif. .
1a90: 63 61 73 65 20 54 43 4c 5f 4e 55 4d 42 45 52 5f case TCL_NUMBER_
1aa0: 42 49 47 3a 20 7b 0a 20 09 09 6d 70 5f 69 6e 74 BIG: {. ..mp_int
1ab0: 20 62 69 67 32 3b 0a 2d 09 09 69 66 20 28 54 63 big2;.-..if (Tc
1ac0: 6c 5f 49 73 53 68 61 72 65 64 28 76 61 6c 75 65 l_IsShared(value
1ad0: 32 50 74 72 29 29 20 7b 0a 2d 09 09 20 20 20 20 2Ptr)) {.-..
1ae0: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f Tcl_GetBignumFro
1af0: 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 mObj(NULL, value
1b00: 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d 09 2Ptr, &big2);.-.
1b10: 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 20 20 20 .} else {.-..
1b20: 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e Tcl_GetBignumAn
1b30: 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 dClearObj(NULL,
1b40: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
1b50: 29 3b 0a 2d 09 09 7d 0a 2b 09 09 54 63 6c 5f 54 );.-..}.+..Tcl_T
1b60: 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a akeBignumFromObj
1b70: 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 (NULL, value2Ptr
1b80: 2c 20 26 62 69 67 32 29 3b 0a 20 09 09 6e 65 67 , &big2);. ..neg
1b90: 61 74 69 76 65 45 78 70 6f 6e 65 6e 74 20 3d 20 ativeExponent =
1ba0: 28 6d 70 5f 63 6d 70 5f 64 28 26 62 69 67 32 2c (mp_cmp_d(&big2,
1bb0: 20 30 29 20 3d 3d 20 4d 50 5f 4c 54 29 3b 0a 20 0) == MP_LT);.
1bc0: 09 09 6d 70 5f 6d 6f 64 5f 32 64 28 26 62 69 67 ..mp_mod_2d(&big
1bd0: 32 2c 20 31 2c 20 26 62 69 67 32 29 3b 0a 20 09 2, 1, &big2);. .
1be0: 09 6f 64 64 45 78 70 6f 6e 65 6e 74 20 3d 20 21 .oddExponent = !
1bf0: 6d 70 5f 69 73 7a 65 72 6f 28 26 62 69 67 32 29 mp_iszero(&big2)
1c00: 3b 0a 40 40 20 2d 34 38 36 36 2c 31 36 20 2b 34 ;.@@ -4866,16 +4
1c10: 38 32 32 2c 38 20 40 40 0a 20 09 7b 0a 20 09 20 822,8 @@. .{. .
1c20: 20 20 20 6d 70 5f 69 6e 74 20 62 69 67 31 2c 20 mp_int big1,
1c30: 62 69 67 32 2c 20 62 69 67 52 65 73 75 6c 74 2c big2, bigResult,
1c40: 20 62 69 67 52 65 6d 61 69 6e 64 65 72 3b 0a 20 bigRemainder;.
1c50: 09 20 20 20 20 54 52 41 43 45 28 28 22 25 73 20 . TRACE(("%s
1c60: 25 73 20 3d 3e 20 22 2c 20 4f 32 53 28 76 61 6c %s => ", O2S(val
1c70: 75 65 50 74 72 29 2c 20 4f 32 53 28 76 61 6c 75 uePtr), O2S(valu
1c80: 65 32 50 74 72 29 29 29 3b 0a 2d 09 20 20 20 20 e2Ptr)));.-.
1c90: 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 if (Tcl_IsShared
1ca0: 28 76 61 6c 75 65 50 74 72 29 29 20 7b 0a 2d 09 (valuePtr)) {.-.
1cb0: 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 .Tcl_GetBignumFr
1cc0: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 omObj(NULL, valu
1cd0: 65 50 74 72 2c 20 26 62 69 67 31 29 3b 0a 2d 09 ePtr, &big1);.-.
1ce0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 } else {.-..
1cf0: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 Tcl_GetBignumAnd
1d00: 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 ClearObj(NULL, v
1d10: 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 29 3b aluePtr, &big1);
1d20: 0a 2d 09 20 20 20 20 7d 0a 2d 09 20 20 20 20 69 .-. }.-. i
1d30: 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 28 f (Tcl_IsShared(
1d40: 76 61 6c 75 65 32 50 74 72 29 29 20 7b 0a 2d 09 value2Ptr)) {.-.
1d50: 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 .Tcl_GetBignumFr
1d60: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 omObj(NULL, valu
1d70: 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d e2Ptr, &big2);.-
1d80: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 . } else {.-.
1d90: 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e .Tcl_GetBignumAn
1da0: 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 dClearObj(NULL,
1db0: 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 32 value2Ptr, &big2
1dc0: 29 3b 0a 2d 09 20 20 20 20 7d 0a 2b 09 20 20 20 );.-. }.+.
1dd0: 20 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 Tcl_TakeBignumF
1de0: 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c romObj(NULL, val
1df0: 75 65 50 74 72 2c 20 26 62 69 67 31 29 3b 0a 2b uePtr, &big1);.+
1e00: 09 20 20 20 20 54 63 6c 5f 54 61 6b 65 42 69 67 . Tcl_TakeBig
1e10: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
1e20: 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 value2Ptr, &big
1e30: 32 29 3b 0a 20 09 20 20 20 20 6d 70 5f 69 6e 69 2);. . mp_ini
1e40: 74 28 26 62 69 67 52 65 73 75 6c 74 29 3b 0a 20 t(&bigResult);.
1e50: 09 20 20 20 20 73 77 69 74 63 68 20 28 2a 70 63 . switch (*pc
1e60: 29 20 7b 0a 20 09 20 20 20 20 63 61 73 65 20 49 ) {. . case I
1e70: 4e 53 54 5f 41 44 44 3a 0a 40 40 20 2d 34 39 38 NST_ADD:.@@ -498
1e80: 34 2c 31 31 20 2b 34 39 33 32 2c 37 20 40 40 0a 4,11 +4932,7 @@.
1e90: 20 09 20 20 20 20 4e 45 58 54 5f 49 4e 53 54 5f . NEXT_INST_
1ea0: 46 28 31 2c 20 30 2c 20 30 29 3b 0a 20 09 7d 0a F(1, 0, 0);. .}.
1eb0: 20 23 65 6e 64 69 66 0a 2d 09 69 66 20 28 54 63 #endif.-.if (Tc
1ec0: 6c 5f 49 73 53 68 61 72 65 64 28 76 61 6c 75 65 l_IsShared(value
1ed0: 50 74 72 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 Ptr)) {.-. Tc
1ee0: 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f l_GetBignumFromO
1ef0: 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 74 bj(NULL, valuePt
1f00: 72 2c 20 26 62 69 67 29 3b 0a 2d 09 7d 20 65 6c r, &big);.-.} el
1f10: 73 65 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f 47 se {.-. Tcl_G
1f20: 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 etBignumAndClear
1f30: 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 50 Obj(NULL, valueP
1f40: 74 72 2c 20 26 62 69 67 29 3b 0a 2d 09 7d 0a 2b tr, &big);.-.}.+
1f50: 09 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 .Tcl_TakeBignumF
1f60: 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c romObj(NULL, val
1f70: 75 65 50 74 72 2c 20 26 62 69 67 29 3b 0a 20 09 uePtr, &big);. .
1f80: 2f 2a 20 7e 61 20 3d 20 2d 20 61 20 2d 20 31 20 /* ~a = - a - 1
1f90: 2a 2f 0a 20 09 6d 70 5f 6e 65 67 28 26 62 69 67 */. .mp_neg(&big
1fa0: 2c 20 26 62 69 67 29 3b 0a 20 09 6d 70 5f 73 75 , &big);. .mp_su
1fb0: 62 5f 64 28 26 62 69 67 2c 20 31 2c 20 26 62 69 b_d(&big, 1, &bi
1fc0: 67 29 3b 0a 40 40 20 2d 35 30 37 33 2c 31 31 20 g);.@@ -5073,11
1fd0: 2b 35 30 31 37 2c 37 20 40 40 0a 20 09 09 62 72 +5017,7 @@. ..br
1fe0: 65 61 6b 3b 0a 20 23 65 6e 64 69 66 0a 20 09 20 eak;. #endif. .
1ff0: 20 20 20 63 61 73 65 20 54 43 4c 5f 4e 55 4d 42 case TCL_NUMB
2000: 45 52 5f 42 49 47 3a 0a 2d 09 09 69 66 20 28 54 ER_BIG:.-..if (T
2010: 63 6c 5f 49 73 53 68 61 72 65 64 28 76 61 6c 75 cl_IsShared(valu
2020: 65 50 74 72 29 29 20 7b 0a 2d 09 09 20 20 20 20 ePtr)) {.-..
2030: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f Tcl_GetBignumFro
2040: 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 mObj(NULL, value
2050: 50 74 72 2c 20 26 62 69 67 29 3b 0a 2d 09 09 7d Ptr, &big);.-..}
2060: 20 65 6c 73 65 20 7b 0a 2d 09 09 20 20 20 20 54 else {.-.. T
2070: 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 cl_GetBignumAndC
2080: 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 learObj(NULL, va
2090: 6c 75 65 50 74 72 2c 20 26 62 69 67 29 3b 0a 2d luePtr, &big);.-
20a0: 09 09 7d 0a 2b 09 09 54 63 6c 5f 54 61 6b 65 42 ..}.+..Tcl_TakeB
20b0: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c ignumFromObj(NUL
20c0: 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 L, valuePtr, &bi
20d0: 67 29 3b 0a 20 09 20 20 20 20 7d 0a 20 09 20 20 g);. . }. .
20e0: 20 20 6d 70 5f 6e 65 67 28 26 62 69 67 2c 20 26 mp_neg(&big, &
20f0: 62 69 67 29 3b 0a 20 09 20 20 20 20 69 66 20 28 big);. . if (
2100: 54 63 6c 5f 49 73 53 68 61 72 65 64 28 76 61 6c Tcl_IsShared(val
2110: 75 65 50 74 72 29 29 20 7b 0a 49 6e 64 65 78 3a uePtr)) {.Index:
2120: 20 67 65 6e 65 72 69 63 2f 74 63 6c 4d 61 74 68 generic/tclMath
2130: 4f 70 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d Op.c.===========
2140: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2150: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2160: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
2170: 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c ========.RCS fil
2180: 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f e: /cvsroot/tcl/
2190: 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 4d tcl/generic/tclM
21a0: 61 74 68 4f 70 2e 63 2c 76 0a 72 65 74 72 69 65 athOp.c,v.retrie
21b0: 76 69 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e ving revision 1.
21c0: 31 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 20 1.diff -u -r1.1
21d0: 74 63 6c 4d 61 74 68 4f 70 2e 63 0a 2d 2d 2d 20 tclMathOp.c.---
21e0: 67 65 6e 65 72 69 63 2f 74 63 6c 4d 61 74 68 4f generic/tclMathO
21f0: 70 2e 63 09 32 35 20 4e 6f 76 20 32 30 30 36 20 p.c.25 Nov 2006
2200: 31 37 3a 31 38 3a 31 30 20 2d 30 30 30 30 09 31 17:18:10 -0000.1
2210: 2e 31 0a 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 .1.+++ generic/t
2220: 63 6c 4d 61 74 68 4f 70 2e 63 09 32 37 20 4e 6f clMathOp.c.27 No
2230: 76 20 32 30 30 36 20 31 33 3a 31 33 3a 32 31 20 v 2006 13:13:21
2240: 2d 30 30 30 30 0a 40 40 20 2d 32 34 32 2c 31 31 -0000.@@ -242,11
2250: 20 2b 32 34 32 2c 37 20 40 40 0a 20 23 65 6e 64 +242,7 @@. #end
2260: 69 66 0a 20 09 63 61 73 65 20 54 43 4c 5f 4e 55 if. .case TCL_NU
2270: 4d 42 45 52 5f 42 49 47 3a 20 7b 0a 20 09 20 20 MBER_BIG: {. .
2280: 20 20 6d 70 5f 69 6e 74 20 62 69 67 32 3b 0a 2d mp_int big2;.-
2290: 09 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 53 . if (Tcl_IsS
22a0: 68 61 72 65 64 28 76 61 6c 75 65 32 50 74 72 29 hared(value2Ptr)
22b0: 29 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 ) {.-..Tcl_GetBi
22c0: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c gnumFromObj(NULL
22d0: 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 , value2Ptr, &bi
22e0: 67 32 29 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 g2);.-. } els
22f0: 65 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 e {.-..Tcl_GetBi
2300: 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 gnumAndClearObj(
2310: 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c NULL, value2Ptr,
2320: 20 26 62 69 67 32 29 3b 0a 2d 09 20 20 20 20 7d &big2);.-. }
2330: 0a 2b 09 20 20 20 20 54 63 6c 5f 54 61 6b 65 42 .+. Tcl_TakeB
2340: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c ignumFromObj(NUL
2350: 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 L, value2Ptr, &b
2360: 69 67 32 29 3b 0a 20 09 20 20 20 20 6e 65 67 61 ig2);. . nega
2370: 74 69 76 65 45 78 70 6f 6e 65 6e 74 20 3d 20 28 tiveExponent = (
2380: 6d 70 5f 63 6d 70 5f 64 28 26 62 69 67 32 2c 20 mp_cmp_d(&big2,
2390: 30 29 20 3d 3d 20 4d 50 5f 4c 54 29 3b 0a 20 09 0) == MP_LT);. .
23a0: 20 20 20 20 6d 70 5f 6d 6f 64 5f 32 64 28 26 62 mp_mod_2d(&b
23b0: 69 67 32 2c 20 31 2c 20 26 62 69 67 32 29 3b 0a ig2, 1, &big2);.
23c0: 20 09 20 20 20 20 6f 64 64 45 78 70 6f 6e 65 6e . oddExponen
23d0: 74 20 3d 20 21 6d 70 5f 69 73 7a 65 72 6f 28 26 t = !mp_iszero(&
23e0: 62 69 67 32 29 3b 0a 40 40 20 2d 33 37 35 2c 31 big2);.@@ -375,1
23f0: 36 20 2b 33 37 31 2c 38 20 40 40 0a 20 20 20 6f 6 +371,8 @@. o
2400: 76 65 72 66 6c 6f 77 3a 0a 20 20 20 20 20 7b 0a verflow:. {.
2410: 20 09 6d 70 5f 69 6e 74 20 62 69 67 31 2c 20 62 .mp_int big1, b
2420: 69 67 32 2c 20 62 69 67 52 65 73 75 6c 74 2c 20 ig2, bigResult,
2430: 62 69 67 52 65 6d 61 69 6e 64 65 72 3b 0a 2d 09 bigRemainder;.-.
2440: 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 if (Tcl_IsShared
2450: 28 76 61 6c 75 65 50 74 72 29 29 20 7b 0a 2d 09 (valuePtr)) {.-.
2460: 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 Tcl_GetBignu
2470: 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 76 mFromObj(NULL, v
2480: 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 29 3b aluePtr, &big1);
2490: 0a 2d 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 20 20 .-.} else {.-.
24a0: 20 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 Tcl_GetBignumA
24b0: 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c ndClearObj(NULL,
24c0: 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 valuePtr, &big1
24d0: 29 3b 0a 2d 09 7d 0a 2d 09 69 66 20 28 54 63 6c );.-.}.-.if (Tcl
24e0: 5f 49 73 53 68 61 72 65 64 28 76 61 6c 75 65 32 _IsShared(value2
24f0: 50 74 72 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 Ptr)) {.-. Tc
2500: 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f l_GetBignumFromO
2510: 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 50 bj(NULL, value2P
2520: 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d 09 7d 20 tr, &big2);.-.}
2530: 65 6c 73 65 20 7b 0a 2d 09 20 20 20 20 54 63 6c else {.-. Tcl
2540: 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 _GetBignumAndCle
2550: 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 arObj(NULL, valu
2560: 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d e2Ptr, &big2);.-
2570: 09 7d 0a 2b 09 54 63 6c 5f 54 61 6b 65 42 69 67 .}.+.Tcl_TakeBig
2580: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
2590: 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 valuePtr, &big1
25a0: 29 3b 0a 2b 09 54 63 6c 5f 54 61 6b 65 42 69 67 );.+.Tcl_TakeBig
25b0: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
25c0: 20 76 61 6c 75 65 32 50 74 72 2c 20 26 62 69 67 value2Ptr, &big
25d0: 32 29 3b 0a 20 09 6d 70 5f 69 6e 69 74 28 26 62 2);. .mp_init(&b
25e0: 69 67 52 65 73 75 6c 74 29 3b 0a 20 09 73 77 69 igResult);. .swi
25f0: 74 63 68 20 28 6f 70 63 6f 64 65 29 20 7b 0a 20 tch (opcode) {.
2600: 09 63 61 73 65 20 49 4e 53 54 5f 41 44 44 3a 0a .case INST_ADD:.
2610: 40 40 20 2d 35 33 33 2c 31 36 20 2b 35 32 31 2c @@ -533,16 +521,
2620: 39 20 40 40 0a 20 09 6d 70 5f 69 6e 74 20 2a 46 9 @@. .mp_int *F
2630: 69 72 73 74 2c 20 2a 53 65 63 6f 6e 64 3b 0a 20 irst, *Second;.
2640: 09 69 6e 74 20 6e 75 6d 50 6f 73 3b 0a 20 0a 2d .int numPos;. .-
2650: 09 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 .if (Tcl_IsShare
2660: 64 28 76 61 6c 75 65 50 74 72 29 29 20 7b 0a 2d d(valuePtr)) {.-
2670: 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e . Tcl_GetBign
2680: 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 umFromObj(NULL,
2690: 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 31 29 valuePtr, &big1)
26a0: 3b 0a 2d 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 20 ;.-.} else {.-.
26b0: 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d Tcl_GetBignum
26c0: 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c AndClearObj(NULL
26d0: 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 62 69 67 , valuePtr, &big
26e0: 31 29 3b 0a 2d 09 7d 0a 2d 09 69 66 20 28 54 63 1);.-.}.-.if (Tc
26f0: 6c 5f 49 73 53 68 61 72 65 64 28 76 61 6c 75 65 l_IsShared(value
2700: 32 50 74 72 29 29 20 7b 0a 2d 09 20 20 20 20 54 2Ptr)) {.-. T
2710: 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d cl_GetBignumFrom
2720: 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c 75 65 32 Obj(NULL, value2
2730: 50 74 72 2c 20 26 62 69 67 32 29 3b 0a 2d 09 7d Ptr, &big2);.-.}
2740: 20 65 6c 73 65 20 7b 0a 2d 09 20 20 20 20 54 63 else {.-. Tc
2750: 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c l_GetBignumAndCl
2760: 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 76 61 6c earObj(NULL, val
2770: 75 65 32 50 74 72 2c 20 26 62 69 67 32 29 3b 0a ue2Ptr, &big2);.
2780: 2d 09 7d 0a 2b 0a 2b 09 54 63 6c 5f 54 61 6b 65 -.}.+.+.Tcl_Take
2790: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 BignumFromObj(NU
27a0: 4c 4c 2c 20 76 61 6c 75 65 50 74 72 2c 20 26 62 LL, valuePtr, &b
27b0: 69 67 31 29 3b 0a 2b 09 54 63 6c 5f 54 61 6b 65 ig1);.+.Tcl_Take
27c0: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 BignumFromObj(NU
27d0: 4c 4c 2c 20 76 61 6c 75 65 32 50 74 72 2c 20 26 LL, value2Ptr, &
27e0: 62 69 67 32 29 3b 0a 20 0a 20 09 2f 2a 0a 20 09 big2);. . ./*. .
27f0: 20 2a 20 43 6f 75 6e 74 20 68 6f 77 20 6d 61 6e * Count how man
2800: 79 20 70 6f 73 69 74 69 76 65 20 61 72 67 75 6d y positive argum
2810: 65 6e 74 73 20 77 65 20 68 61 76 65 2e 20 49 66 ents we have. If
2820: 20 6f 6e 6c 79 20 6f 6e 65 20 6f 66 20 74 68 65 only one of the
2830: 0a 40 40 20 2d 38 36 37 2c 31 31 20 2b 38 34 38 .@@ -867,11 +848
2840: 2c 37 20 40 40 0a 20 09 20 20 20 20 6c 32 20 3d ,7 @@. . l2 =
2850: 20 28 6c 6f 6e 67 29 20 64 32 3b 0a 20 09 20 20 (long) d2;. .
2860: 20 20 67 6f 74 6f 20 6c 6f 6e 67 43 6f 6d 70 61 goto longCompa
2870: 72 65 3b 0a 20 09 63 61 73 65 20 54 43 4c 5f 4e re;. .case TCL_N
2880: 55 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 20 20 20 UMBER_BIG:.-.
2890: 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 if (Tcl_IsShare
28a0: 64 28 6e 75 6d 4f 62 6a 32 29 29 20 7b 0a 2d 09 d(numObj2)) {.-.
28b0: 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 .Tcl_GetBignumFr
28c0: 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6e 75 6d 4f omObj(NULL, numO
28d0: 62 6a 32 2c 20 26 62 69 67 32 29 3b 0a 2d 09 20 bj2, &big2);.-.
28e0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 54 } else {.-..T
28f0: 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 cl_GetBignumAndC
2900: 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 6e 75 learObj(NULL, nu
2910: 6d 4f 62 6a 32 2c 20 26 62 69 67 32 29 3b 0a 2d mObj2, &big2);.-
2920: 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 54 63 6c . }.+. Tcl
2930: 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f _TakeBignumFromO
2940: 62 6a 28 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 32 bj(NULL, numObj2
2950: 2c 20 26 62 69 67 32 29 3b 0a 20 09 20 20 20 20 , &big2);. .
2960: 69 66 20 28 6d 70 5f 63 6d 70 5f 64 28 26 62 69 if (mp_cmp_d(&bi
2970: 67 32 2c 20 30 29 20 3d 3d 20 4d 50 5f 4c 54 29 g2, 0) == MP_LT)
2980: 20 7b 0a 20 09 09 2a 72 65 73 75 6c 74 50 74 72 {. ..*resultPtr
2990: 20 3d 20 4d 50 5f 47 54 3b 0a 20 09 20 20 20 20 = MP_GT;. .
29a0: 7d 20 65 6c 73 65 20 7b 0a 40 40 20 2d 39 31 30 } else {.@@ -910
29b0: 2c 31 31 20 2b 38 38 37 2c 37 20 40 40 0a 20 09 ,11 +887,7 @@. .
29c0: 20 20 20 20 77 32 20 3d 20 28 54 63 6c 5f 57 69 w2 = (Tcl_Wi
29d0: 64 65 49 6e 74 29 20 64 32 3b 0a 20 09 20 20 20 deInt) d2;. .
29e0: 20 67 6f 74 6f 20 77 69 64 65 43 6f 6d 70 61 72 goto wideCompar
29f0: 65 3b 0a 20 09 63 61 73 65 20 54 43 4c 5f 4e 55 e;. .case TCL_NU
2a00: 4d 42 45 52 5f 42 49 47 3a 0a 2d 09 20 20 20 20 MBER_BIG:.-.
2a10: 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 65 64 if (Tcl_IsShared
2a20: 28 6e 75 6d 4f 62 6a 32 29 29 20 7b 0a 2d 09 09 (numObj2)) {.-..
2a30: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f Tcl_GetBignumFro
2a40: 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 mObj(NULL, numOb
2a50: 6a 32 2c 20 26 62 69 67 32 29 3b 0a 2d 09 20 20 j2, &big2);.-.
2a60: 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 54 63 } else {.-..Tc
2a70: 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c l_GetBignumAndCl
2a80: 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 6e 75 6d earObj(NULL, num
2a90: 4f 62 6a 32 2c 20 26 62 69 67 32 29 3b 0a 2d 09 Obj2, &big2);.-.
2aa0: 20 20 20 20 7d 0a 2b 09 20 20 20 20 54 63 6c 5f }.+. Tcl_
2ab0: 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 TakeBignumFromOb
2ac0: 6a 28 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 32 2c j(NULL, numObj2,
2ad0: 20 26 62 69 67 32 29 3b 0a 20 09 20 20 20 20 69 &big2);. . i
2ae0: 66 20 28 6d 70 5f 63 6d 70 5f 64 28 26 62 69 67 f (mp_cmp_d(&big
2af0: 32 2c 20 30 29 20 3d 3d 20 4d 50 5f 4c 54 29 20 2, 0) == MP_LT)
2b00: 7b 0a 20 09 09 2a 72 65 73 75 6c 74 50 74 72 20 {. ..*resultPtr
2b10: 3d 20 4d 50 5f 47 54 3b 0a 20 09 20 20 20 20 7d = MP_GT;. . }
2b20: 20 65 6c 73 65 20 7b 0a 40 40 20 2d 39 37 33 2c else {.@@ -973,
2b30: 31 31 20 2b 39 34 36 2c 37 20 40 40 0a 20 09 09 11 +946,7 @@. ..
2b40: 2a 72 65 73 75 6c 74 50 74 72 20 3d 20 28 64 31 *resultPtr = (d1
2b50: 20 3e 20 30 2e 30 29 20 3f 20 4d 50 5f 47 54 20 > 0.0) ? MP_GT
2b60: 3a 20 4d 50 5f 4c 54 3b 0a 20 09 09 72 65 74 75 : MP_LT;. ..retu
2b70: 72 6e 20 54 43 4c 5f 4f 4b 3b 0a 20 09 20 20 20 rn TCL_OK;. .
2b80: 20 7d 0a 2d 09 20 20 20 20 69 66 20 28 54 63 6c }.-. if (Tcl
2b90: 5f 49 73 53 68 61 72 65 64 28 6e 75 6d 4f 62 6a _IsShared(numObj
2ba0: 32 29 29 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 2)) {.-..Tcl_Get
2bb0: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 BignumFromObj(NU
2bc0: 4c 4c 2c 20 6e 75 6d 4f 62 6a 32 2c 20 26 62 69 LL, numObj2, &bi
2bd0: 67 32 29 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 g2);.-. } els
2be0: 65 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 e {.-..Tcl_GetBi
2bf0: 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 gnumAndClearObj(
2c00: 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 32 2c 20 26 NULL, numObj2, &
2c10: 62 69 67 32 29 3b 0a 2d 09 20 20 20 20 7d 0a 2b big2);.-. }.+
2c20: 09 20 20 20 20 54 63 6c 5f 54 61 6b 65 42 69 67 . Tcl_TakeBig
2c30: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
2c40: 20 6e 75 6d 4f 62 6a 32 2c 20 26 62 69 67 32 29 numObj2, &big2)
2c50: 3b 0a 20 09 20 20 20 20 69 66 20 28 28 64 31 20 ;. . if ((d1
2c60: 3c 20 28 64 6f 75 62 6c 65 29 4c 4f 4e 47 5f 4d < (double)LONG_M
2c70: 41 58 29 20 26 26 20 28 64 31 20 3e 20 28 64 6f AX) && (d1 > (do
2c80: 75 62 6c 65 29 4c 4f 4e 47 5f 4d 49 4e 29 29 20 uble)LONG_MIN))
2c90: 7b 0a 20 09 09 69 66 20 28 6d 70 5f 63 6d 70 5f {. ..if (mp_cmp_
2ca0: 64 28 26 62 69 67 32 2c 20 30 29 20 3d 3d 20 4d d(&big2, 0) == M
2cb0: 50 5f 4c 54 29 20 7b 0a 20 09 09 20 20 20 20 2a P_LT) {. .. *
2cc0: 72 65 73 75 6c 74 50 74 72 20 3d 20 4d 50 5f 47 resultPtr = MP_G
2cd0: 54 3b 0a 40 40 20 2d 39 39 39 2c 31 31 20 2b 39 T;.@@ -999,11 +9
2ce0: 36 38 2c 37 20 40 40 0a 20 09 72 65 74 75 72 6e 68,7 @@. .return
2cf0: 20 54 43 4c 5f 4f 4b 3b 0a 20 0a 20 20 20 20 20 TCL_OK;. .
2d00: 63 61 73 65 20 54 43 4c 5f 4e 55 4d 42 45 52 5f case TCL_NUMBER_
2d10: 42 49 47 3a 0a 2d 09 69 66 20 28 54 63 6c 5f 49 BIG:.-.if (Tcl_I
2d20: 73 53 68 61 72 65 64 28 6e 75 6d 4f 62 6a 31 29 sShared(numObj1)
2d30: 29 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f 47 65 ) {.-. Tcl_Ge
2d40: 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e tBignumFromObj(N
2d50: 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 31 2c 20 26 62 ULL, numObj1, &b
2d60: 69 67 31 29 3b 0a 2d 09 7d 20 65 6c 73 65 20 7b ig1);.-.} else {
2d70: 0a 2d 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 .-. Tcl_GetBi
2d80: 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 gnumAndClearObj(
2d90: 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 31 2c 20 26 NULL, numObj1, &
2da0: 62 69 67 31 29 3b 0a 2d 09 7d 0a 2b 09 54 63 6c big1);.-.}.+.Tcl
2db0: 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f _TakeBignumFromO
2dc0: 62 6a 28 4e 55 4c 4c 2c 20 6e 75 6d 4f 62 6a 31 bj(NULL, numObj1
2dd0: 2c 20 26 62 69 67 31 29 3b 0a 20 09 73 77 69 74 , &big1);. .swit
2de0: 63 68 20 28 74 79 70 65 32 29 20 7b 0a 20 23 69 ch (type2) {. #i
2df0: 66 6e 64 65 66 20 4e 4f 5f 57 49 44 45 5f 54 59 fndef NO_WIDE_TY
2e00: 50 45 0a 20 09 63 61 73 65 20 54 43 4c 5f 4e 55 PE. .case TCL_NU
2e10: 4d 42 45 52 5f 57 49 44 45 3a 0a 40 40 20 2d 31 MBER_WIDE:.@@ -1
2e20: 30 33 33 2c 31 31 20 2b 39 39 38 2c 37 20 40 40 033,11 +998,7 @@
2e30: 0a 20 09 20 20 20 20 54 63 6c 5f 49 6e 69 74 42 . . Tcl_InitB
2e40: 69 67 6e 75 6d 46 72 6f 6d 44 6f 75 62 6c 65 28 ignumFromDouble(
2e50: 4e 55 4c 4c 2c 20 64 32 2c 20 26 62 69 67 32 29 NULL, d2, &big2)
2e60: 3b 0a 20 09 20 20 20 20 67 6f 74 6f 20 62 69 67 ;. . goto big
2e70: 43 6f 6d 70 61 72 65 3b 0a 20 09 63 61 73 65 20 Compare;. .case
2e80: 54 43 4c 5f 4e 55 4d 42 45 52 5f 42 49 47 3a 0a TCL_NUMBER_BIG:.
2e90: 2d 09 20 20 20 20 69 66 20 28 54 63 6c 5f 49 73 -. if (Tcl_Is
2ea0: 53 68 61 72 65 64 28 6e 75 6d 4f 62 6a 32 29 29 Shared(numObj2))
2eb0: 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 {.-..Tcl_GetBig
2ec0: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
2ed0: 20 6e 75 6d 4f 62 6a 32 2c 20 26 62 69 67 32 29 numObj2, &big2)
2ee0: 3b 0a 2d 09 20 20 20 20 7d 20 65 6c 73 65 20 7b ;.-. } else {
2ef0: 0a 2d 09 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 .-..Tcl_GetBignu
2f00: 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c mAndClearObj(NUL
2f10: 4c 2c 20 6e 75 6d 4f 62 6a 32 2c 20 26 62 69 67 L, numObj2, &big
2f20: 32 29 3b 0a 2d 09 20 20 20 20 7d 0a 2b 09 20 20 2);.-. }.+.
2f30: 20 20 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d Tcl_TakeBignum
2f40: 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6e 75 FromObj(NULL, nu
2f50: 6d 4f 62 6a 32 2c 20 26 62 69 67 32 29 3b 0a 20 mObj2, &big2);.
2f60: 09 20 20 20 20 67 6f 74 6f 20 62 69 67 43 6f 6d . goto bigCom
2f70: 70 61 72 65 3b 0a 20 09 7d 0a 20 20 20 20 20 7d pare;. .}. }
2f80: 0a 40 40 20 2d 31 31 32 32 2c 31 31 20 2b 31 30 .@@ -1122,11 +10
2f90: 38 33 2c 37 20 40 40 0a 20 20 20 20 20 64 65 66 83,7 @@. def
2fa0: 61 75 6c 74 3a 20 7b 0a 20 09 6d 70 5f 69 6e 74 ault: {. .mp_int
2fb0: 20 62 69 67 3b 0a 20 0a 2d 09 69 66 20 28 54 63 big;. .-.if (Tc
2fc0: 6c 5f 49 73 53 68 61 72 65 64 28 6f 62 6a 76 5b l_IsShared(objv[
2fd0: 31 5d 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 6c 1])) {.-. Tcl
2fe0: 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 _GetBignumFromOb
2ff0: 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 31 5d 2c j(NULL, objv[1],
3000: 20 26 62 69 67 29 3b 0a 2d 09 7d 20 65 6c 73 65 &big);.-.} else
3010: 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f 47 65 74 {.-. Tcl_Get
3020: 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 BignumAndClearOb
3030: 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 31 5d 2c j(NULL, objv[1],
3040: 20 26 62 69 67 29 3b 0a 2d 09 7d 0a 2b 09 54 63 &big);.-.}.+.Tc
3050: 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d l_TakeBignumFrom
3060: 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 31 Obj(NULL, objv[1
3070: 5d 2c 20 26 62 69 67 29 3b 0a 20 09 2f 2a 20 7e ], &big);. ./* ~
3080: 61 20 3d 20 2d 20 61 20 2d 20 31 20 2a 2f 0a 20 a = - a - 1 */.
3090: 09 6d 70 5f 6e 65 67 28 26 62 69 67 2c 20 26 62 .mp_neg(&big, &b
30a0: 69 67 29 3b 0a 20 09 6d 70 5f 73 75 62 5f 64 28 ig);. .mp_sub_d(
30b0: 26 62 69 67 2c 20 31 2c 20 26 62 69 67 29 3b 0a &big, 1, &big);.
30c0: 40 40 20 2d 31 38 34 36 2c 31 31 20 2b 31 38 30 @@ -1846,11 +180
30d0: 33 2c 37 20 40 40 0a 20 20 20 20 20 7b 0a 20 09 3,7 @@. {. .
30e0: 6d 70 5f 69 6e 74 20 62 69 67 2c 20 62 69 67 52 mp_int big, bigR
30f0: 65 73 75 6c 74 3b 0a 20 0a 2d 09 69 66 20 28 54 esult;. .-.if (T
3100: 63 6c 5f 49 73 53 68 61 72 65 64 28 6f 62 6a 76 cl_IsShared(objv
3110: 5b 31 5d 29 29 20 7b 0a 2d 09 20 20 20 20 54 63 [1])) {.-. Tc
3120: 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f l_GetBignumFromO
3130: 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 31 5d bj(NULL, objv[1]
3140: 2c 20 26 62 69 67 29 3b 0a 2d 09 7d 20 65 6c 73 , &big);.-.} els
3150: 65 20 7b 0a 2d 09 20 20 20 20 54 63 6c 5f 47 65 e {.-. Tcl_Ge
3160: 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f tBignumAndClearO
3170: 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 31 5d bj(NULL, objv[1]
3180: 2c 20 26 62 69 67 29 3b 0a 2d 09 7d 0a 2b 09 54 , &big);.-.}.+.T
3190: 63 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f cl_TakeBignumFro
31a0: 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b mObj(NULL, objv[
31b0: 31 5d 2c 20 26 62 69 67 29 3b 0a 20 0a 20 09 6d 1], &big);. . .m
31c0: 70 5f 69 6e 69 74 28 26 62 69 67 52 65 73 75 6c p_init(&bigResul
31d0: 74 29 3b 0a 20 09 6d 70 5f 6d 75 6c 5f 32 64 28 t);. .mp_mul_2d(
31e0: 26 62 69 67 2c 20 73 68 69 66 74 2c 20 26 62 69 &big, shift, &bi
31f0: 67 52 65 73 75 6c 74 29 3b 0a 40 40 20 2d 32 30 gResult);.@@ -20
3200: 32 34 2c 31 31 20 2b 31 39 37 37 2c 37 20 40 40 24,11 +1977,7 @@
3210: 0a 20 20 20 20 20 7b 0a 20 09 6d 70 5f 69 6e 74 . {. .mp_int
3220: 20 62 69 67 2c 20 62 69 67 52 65 73 75 6c 74 2c big, bigResult,
3230: 20 62 69 67 52 65 6d 61 69 6e 64 65 72 3b 0a 20 bigRemainder;.
3240: 0a 2d 09 69 66 20 28 54 63 6c 5f 49 73 53 68 61 .-.if (Tcl_IsSha
3250: 72 65 64 28 6f 62 6a 76 5b 31 5d 29 29 20 7b 0a red(objv[1])) {.
3260: 2d 09 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 -. Tcl_GetBig
3270: 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c numFromObj(NULL,
3280: 20 6f 62 6a 76 5b 31 5d 2c 20 26 62 69 67 29 3b objv[1], &big);
3290: 0a 2d 09 7d 20 65 6c 73 65 20 7b 0a 2d 09 20 20 .-.} else {.-.
32a0: 20 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 Tcl_GetBignumA
32b0: 6e 64 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c ndClearObj(NULL,
32c0: 20 6f 62 6a 76 5b 31 5d 2c 20 26 62 69 67 29 3b objv[1], &big);
32d0: 0a 2d 09 7d 0a 2b 09 54 63 6c 5f 54 61 6b 65 42 .-.}.+.Tcl_TakeB
32e0: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 4c ignumFromObj(NUL
32f0: 4c 2c 20 6f 62 6a 76 5b 31 5d 2c 20 26 62 69 67 L, objv[1], &big
3300: 29 3b 0a 20 0a 20 09 6d 70 5f 69 6e 69 74 28 26 );. . .mp_init(&
3310: 62 69 67 52 65 73 75 6c 74 29 3b 0a 20 09 6d 70 bigResult);. .mp
3320: 5f 69 6e 69 74 28 26 62 69 67 52 65 6d 61 69 6e _init(&bigRemain
3330: 64 65 72 29 3b 0a 40 40 20 2d 32 31 37 33 2c 31 der);.@@ -2173,1
3340: 31 20 2b 32 31 32 32 2c 37 20 40 40 0a 20 23 65 1 +2122,7 @@. #e
3350: 6e 64 69 66 0a 20 09 7b 0a 20 09 20 20 20 20 6d ndif. .{. . m
3360: 70 5f 69 6e 74 20 62 69 67 32 3b 0a 2d 09 20 20 p_int big2;.-.
3370: 20 20 69 66 20 28 54 63 6c 5f 49 73 53 68 61 72 if (Tcl_IsShar
3380: 65 64 28 6f 62 6a 76 5b 32 5d 29 29 20 7b 0a 2d ed(objv[2])) {.-
3390: 09 09 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 ..Tcl_GetBignumF
33a0: 72 6f 6d 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a romObj(NULL, obj
33b0: 76 5b 32 5d 2c 20 26 62 69 67 32 29 3b 0a 2d 09 v[2], &big2);.-.
33c0: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 2d 09 09 } else {.-..
33d0: 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d 41 6e 64 Tcl_GetBignumAnd
33e0: 43 6c 65 61 72 4f 62 6a 28 4e 55 4c 4c 2c 20 6f ClearObj(NULL, o
33f0: 62 6a 76 5b 32 5d 2c 20 26 62 69 67 32 29 3b 0a bjv[2], &big2);.
3400: 2d 09 20 20 20 20 7d 0a 2b 09 20 20 20 20 54 63 -. }.+. Tc
3410: 6c 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d l_TakeBignumFrom
3420: 4f 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 32 Obj(NULL, objv[2
3430: 5d 2c 20 26 62 69 67 32 29 3b 0a 20 0a 20 09 20 ], &big2);. . .
3440: 20 20 20 2f 2a 20 54 4f 44 4f 3a 20 69 6e 74 65 /* TODO: inte
3450: 72 6e 61 6c 73 20 69 6e 74 72 75 73 69 6f 6e 20 rnals intrusion
3460: 2a 2f 0a 20 09 20 20 20 20 69 66 20 28 28 6c 31 */. . if ((l1
3470: 20 3e 20 30 29 20 5e 20 28 62 69 67 32 2e 73 69 > 0) ^ (big2.si
3480: 67 6e 20 3d 3d 20 4d 50 5f 5a 50 4f 53 29 29 20 gn == MP_ZPOS))
3490: 7b 0a 40 40 20 2d 32 32 31 36 2c 31 31 20 2b 32 {.@@ -2216,11 +2
34a0: 31 36 31 2c 37 20 40 40 0a 20 09 20 20 20 20 54 161,7 @@. . T
34b0: 63 6c 5f 53 65 74 4f 62 6a 52 65 73 75 6c 74 28 cl_SetObjResult(
34c0: 69 6e 74 65 72 70 2c 20 54 63 6c 5f 4e 65 77 57 interp, Tcl_NewW
34d0: 69 64 65 49 6e 74 4f 62 6a 28 77 52 65 6d 61 69 ideIntObj(wRemai
34e0: 6e 64 65 72 29 29 3b 0a 20 09 7d 20 65 6c 73 65 nder));. .} else
34f0: 20 7b 0a 20 09 20 20 20 20 6d 70 5f 69 6e 74 20 {. . mp_int
3500: 62 69 67 32 3b 0a 2d 09 20 20 20 20 69 66 20 28 big2;.-. if (
3510: 54 63 6c 5f 49 73 53 68 61 72 65 64 28 6f 62 6a Tcl_IsShared(obj
3520: 76 5b 32 5d 29 29 20 7b 0a 2d 09 09 54 63 6c 5f v[2])) {.-..Tcl_
3530: 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a GetBignumFromObj
3540: 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 32 5d 2c 20 (NULL, objv[2],
3550: 26 62 69 67 32 29 3b 0a 2d 09 20 20 20 20 7d 20 &big2);.-. }
3560: 65 6c 73 65 20 7b 0a 2d 09 09 54 63 6c 5f 47 65 else {.-..Tcl_Ge
3570: 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f tBignumAndClearO
3580: 62 6a 28 4e 55 4c 4c 2c 20 6f 62 6a 76 5b 32 5d bj(NULL, objv[2]
3590: 2c 20 26 62 69 67 32 29 3b 0a 2d 09 20 20 20 20 , &big2);.-.
35a0: 7d 0a 2b 09 20 20 20 20 54 63 6c 5f 54 61 6b 65 }.+. Tcl_Take
35b0: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 4e 55 BignumFromObj(NU
35c0: 4c 4c 2c 20 6f 62 6a 76 5b 32 5d 2c 20 26 62 69 LL, objv[2], &bi
35d0: 67 32 29 3b 0a 20 0a 20 09 20 20 20 20 2f 2a 20 g2);. . . /*
35e0: 54 4f 44 4f 3a 20 69 6e 74 65 72 6e 61 6c 73 20 TODO: internals
35f0: 69 6e 74 72 75 73 69 6f 6e 20 2a 2f 0a 20 09 20 intrusion */. .
3600: 20 20 20 69 66 20 28 28 77 31 20 3e 20 28 28 54 if ((w1 > ((T
3610: 63 6c 5f 57 69 64 65 49 6e 74 29 20 30 29 29 20 cl_WideInt) 0))
3620: 5e 20 28 62 69 67 32 2e 73 69 67 6e 20 3d 3d 20 ^ (big2.sign ==
3630: 4d 50 5f 5a 50 4f 53 29 29 20 7b 0a 49 6e 64 65 MP_ZPOS)) {.Inde
3640: 78 3a 20 67 65 6e 65 72 69 63 2f 74 63 6c 4f 62 x: generic/tclOb
3650: 6a 2e 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d j.c.============
3660: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3670: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3680: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3690: 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 =======.RCS file
36a0: 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 : /cvsroot/tcl/t
36b0: 63 6c 2f 67 65 6e 65 72 69 63 2f 74 63 6c 4f 62 cl/generic/tclOb
36c0: 6a 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 j.c,v.retrieving
36d0: 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 31 35 0a revision 1.115.
36e0: 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 31 35 20 diff -u -r1.115
36f0: 74 63 6c 4f 62 6a 2e 63 0a 2d 2d 2d 20 67 65 6e tclObj.c.--- gen
3700: 65 72 69 63 2f 74 63 6c 4f 62 6a 2e 63 09 31 35 eric/tclObj.c.15
3710: 20 4e 6f 76 20 32 30 30 36 20 32 30 3a 30 38 3a Nov 2006 20:08:
3720: 34 35 20 2d 30 30 30 30 09 31 2e 31 31 35 0a 2b 45 -0000.1.115.+
3730: 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 4f 62 ++ generic/tclOb
3740: 6a 2e 63 09 32 37 20 4e 6f 76 20 32 30 30 36 20 j.c.27 Nov 2006
3750: 31 33 3a 31 33 3a 32 31 20 2d 30 30 30 30 0a 40 13:13:21 -0000.@
3760: 40 20 2d 32 37 34 34 2c 31 32 20 2b 32 37 34 34 @ -2744,12 +2744
3770: 2c 36 20 40 40 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d ,6 @@. *-------
3780: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3790: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37a0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
37b0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a ---------------.
37c0: 20 20 2a 2f 0a 20 0a 2d 2f 2a 0a 2d 20 2a 20 54 */. .-/*.- * T
37d0: 4f 44 4f 3a 20 43 6f 6e 73 69 64 65 72 20 61 20 ODO: Consider a
37e0: 73 6d 61 72 74 65 72 20 54 63 6c 5f 47 65 74 42 smarter Tcl_GetB
37f0: 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 4f 62 6a ignumAndClearObj
3800: 28 29 20 74 68 61 74 20 64 6f 65 73 6e 27 74 0a () that doesn't.
3810: 2d 20 2a 20 72 65 71 75 69 72 65 20 63 61 6c 6c - * require call
3820: 65 72 20 74 6f 20 63 68 65 63 6b 20 66 6f 72 20 er to check for
3830: 61 20 73 68 61 72 65 64 20 54 63 6c 5f 4f 62 6a a shared Tcl_Obj
3840: 2c 20 62 75 74 20 66 61 6c 6c 73 20 62 61 63 6b , but falls back
3850: 20 74 6f 0a 2d 20 2a 20 54 63 6c 5f 47 65 74 42 to.- * Tcl_GetB
3860: 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 29 20 77 ignumFromObj() w
3870: 68 65 6e 20 73 68 61 72 69 6e 67 20 69 73 20 61 hen sharing is a
3880: 6e 20 69 73 73 75 65 2e 0a 2d 20 2a 2f 0a 2d 0a n issue..- */.-.
3890: 20 73 74 61 74 69 63 20 69 6e 74 0a 20 47 65 74 static int. Get
38a0: 42 69 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 0a 20 BignumFromObj(.
38b0: 20 20 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a Tcl_Interp *
38c0: 69 6e 74 65 72 70 2c 09 09 2f 2a 20 54 63 6c 20 interp,../* Tcl
38d0: 69 6e 74 65 72 70 72 65 74 65 72 20 66 6f 72 20 interpreter for
38e0: 65 72 72 6f 72 20 72 65 70 6f 72 74 69 6e 67 20 error reporting
38f0: 2a 2f 0a 40 40 20 2d 32 37 35 39 2c 31 34 20 2b */.@@ -2759,14 +
3900: 32 37 35 33 2c 31 31 20 40 40 0a 20 7b 0a 20 20 2753,11 @@. {.
3910: 20 20 20 64 6f 20 7b 0a 20 09 69 66 20 28 6f 62 do {. .if (ob
3920: 6a 50 74 72 2d 3e 74 79 70 65 50 74 72 20 3d 3d jPtr->typePtr ==
3930: 20 26 74 63 6c 42 69 67 6e 75 6d 54 79 70 65 29 &tclBignumType)
3940: 20 7b 0a 2d 09 20 20 20 20 69 66 20 28 63 6f 70 {.-. if (cop
3950: 79 29 20 7b 0a 2b 09 20 20 20 20 69 66 20 28 63 y) {.+. if (c
3960: 6f 70 79 20 7c 7c 20 54 63 6c 5f 49 73 53 68 61 opy || Tcl_IsSha
3970: 72 65 64 28 6f 62 6a 50 74 72 29 29 20 7b 0a 20 red(objPtr)) {.
3980: 09 09 6d 70 5f 69 6e 74 20 74 65 6d 70 3b 0a 20 ..mp_int temp;.
3990: 09 09 55 4e 50 41 43 4b 5f 42 49 47 4e 55 4d 28 ..UNPACK_BIGNUM(
39a0: 6f 62 6a 50 74 72 2c 20 74 65 6d 70 29 3b 0a 20 objPtr, temp);.
39b0: 09 09 6d 70 5f 69 6e 69 74 5f 63 6f 70 79 28 62 ..mp_init_copy(b
39c0: 69 67 6e 75 6d 56 61 6c 75 65 2c 20 26 74 65 6d ignumValue, &tem
39d0: 70 29 3b 0a 20 09 20 20 20 20 7d 20 65 6c 73 65 p);. . } else
39e0: 20 7b 0a 2d 09 09 69 66 20 28 54 63 6c 5f 49 73 {.-..if (Tcl_Is
39f0: 53 68 61 72 65 64 28 6f 62 6a 50 74 72 29 29 20 Shared(objPtr))
3a00: 7b 0a 2d 09 09 20 20 20 20 54 63 6c 5f 50 61 6e {.-.. Tcl_Pan
3a10: 69 63 28 22 54 63 6c 5f 47 65 74 42 69 67 6e 75 ic("Tcl_GetBignu
3a20: 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 20 63 61 6c mAndClearObj cal
3a30: 6c 65 64 20 6f 6e 20 73 68 61 72 65 64 20 54 63 led on shared Tc
3a40: 6c 5f 4f 62 6a 22 29 3b 0a 2d 09 09 7d 0a 20 09 l_Obj");.-..}. .
3a50: 09 55 4e 50 41 43 4b 5f 42 49 47 4e 55 4d 28 6f .UNPACK_BIGNUM(o
3a60: 62 6a 50 74 72 2c 20 2a 62 69 67 6e 75 6d 56 61 bjPtr, *bignumVa
3a70: 6c 75 65 29 3b 0a 20 09 09 6f 62 6a 50 74 72 2d lue);. ..objPtr-
3a80: 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 70 74 72 >internalRep.ptr
3a90: 41 6e 64 4c 6f 6e 67 52 65 70 2e 70 74 72 20 3d AndLongRep.ptr =
3aa0: 20 4e 55 4c 4c 3b 0a 20 09 09 6f 62 6a 50 74 72 NULL;. ..objPtr
3ab0: 2d 3e 69 6e 74 65 72 6e 61 6c 52 65 70 2e 70 74 ->internalRep.pt
3ac0: 72 41 6e 64 4c 6f 6e 67 52 65 70 2e 76 61 6c 75 rAndLongRep.valu
3ad0: 65 20 3d 20 30 3b 0a 40 40 20 2d 32 38 34 31 2c e = 0;.@@ -2841,
3ae0: 37 20 2b 32 38 33 32 2c 37 20 40 40 0a 20 2f 2a 7 +2832,7 @@. /*
3af0: 0a 20 20 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d . *------------
3b00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b20: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
3b30: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 20 20 2a 0a 2d ----------. *.-
3b40: 20 2a 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 6d * Tcl_GetBignum
3b50: 41 6e 64 43 6c 65 61 72 4f 62 6a 20 2d 2d 0a 2b AndClearObj --.+
3b60: 20 2a 20 54 63 6c 5f 54 61 6b 65 42 69 67 6e 75 * Tcl_TakeBignu
3b70: 6d 46 72 6f 6d 4f 62 6a 20 2d 2d 0a 20 20 2a 0a mFromObj --. *.
3b80: 20 20 2a 09 54 68 69 73 20 66 75 6e 63 74 69 6f *.This functio
3b90: 6e 20 72 65 74 72 69 65 76 65 73 20 61 20 27 62 n retrieves a 'b
3ba0: 69 67 6e 75 6d 27 20 76 61 6c 75 65 20 66 72 6f ignum' value fro
3bb0: 6d 20 61 20 54 63 6c 20 6f 62 6a 65 63 74 2c 20 m a Tcl object,
3bc0: 63 6f 6e 76 65 72 74 69 6e 67 0a 20 20 2a 09 74 converting. *.t
3bd0: 68 65 20 6f 62 6a 65 63 74 20 69 66 20 6e 65 63 he object if nec
3be0: 65 73 73 61 72 79 2e 0a 40 40 20 2d 32 38 36 35 essary..@@ -2865
3bf0: 2c 37 20 2b 32 38 35 36 2c 37 20 40 40 0a 20 20 ,7 +2856,7 @@.
3c00: 2a 2f 0a 20 0a 20 69 6e 74 0a 2d 54 63 6c 5f 47 */. . int.-Tcl_G
3c10: 65 74 42 69 67 6e 75 6d 41 6e 64 43 6c 65 61 72 etBignumAndClear
3c20: 4f 62 6a 28 0a 2b 54 63 6c 5f 54 61 6b 65 42 69 Obj(.+Tcl_TakeBi
3c30: 67 6e 75 6d 46 72 6f 6d 4f 62 6a 28 0a 20 20 20 gnumFromObj(.
3c40: 20 20 54 63 6c 5f 49 6e 74 65 72 70 20 2a 69 6e Tcl_Interp *in
3c50: 74 65 72 70 2c 09 09 2f 2a 20 54 63 6c 20 69 6e terp,../* Tcl in
3c60: 74 65 72 70 72 65 74 65 72 20 66 6f 72 20 65 72 terpreter for er
3c70: 72 6f 72 20 72 65 70 6f 72 74 69 6e 67 20 2a 2f ror reporting */
3c80: 0a 20 20 20 20 20 54 63 6c 5f 4f 62 6a 20 2a 6f . Tcl_Obj *o
3c90: 62 6a 50 74 72 2c 09 09 2f 2a 20 4f 62 6a 65 63 bjPtr,../* Objec
3ca0: 74 20 74 6f 20 72 65 61 64 20 2a 2f 0a 20 20 20 t to read */.
3cb0: 20 20 6d 70 5f 69 6e 74 20 2a 62 69 67 6e 75 6d mp_int *bignum
3cc0: 56 61 6c 75 65 29 09 2f 2a 20 52 65 74 75 72 6e Value)./* Return
3cd0: 65 64 20 62 69 67 6e 75 6d 20 76 61 6c 75 65 2e ed bignum value.
3ce0: 20 2a 2f 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 */.Index: gener
3cf0: 69 63 2f 74 63 6c 53 74 75 62 49 6e 69 74 2e 63 ic/tclStubInit.c
3d00: 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d .===============
3d10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d20: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d30: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
3d40: 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f ====.RCS file: /
3d50: 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f cvsroot/tcl/tcl/
3d60: 67 65 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 49 generic/tclStubI
3d70: 6e 69 74 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 nit.c,v.retrievi
3d80: 6e 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 33 ng revision 1.13
3d90: 37 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 33 7.diff -u -r1.13
3da0: 37 20 74 63 6c 53 74 75 62 49 6e 69 74 2e 63 0a 7 tclStubInit.c.
3db0: 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 63 6c 53 --- generic/tclS
3dc0: 74 75 62 49 6e 69 74 2e 63 09 31 35 20 4e 6f 76 tubInit.c.15 Nov
3dd0: 20 32 30 30 36 20 32 30 3a 30 38 3a 34 35 20 2d 2006 20:08:45 -
3de0: 30 30 30 30 09 31 2e 31 33 37 0a 2b 2b 2b 20 67 0000.1.137.+++ g
3df0: 65 6e 65 72 69 63 2f 74 63 6c 53 74 75 62 49 6e eneric/tclStubIn
3e00: 69 74 2e 63 09 32 37 20 4e 6f 76 20 32 30 30 36 it.c.27 Nov 2006
3e10: 20 31 33 3a 31 33 3a 32 31 20 2d 30 30 30 30 0a 13:13:21 -0000.
3e20: 40 40 20 2d 31 30 36 31 2c 37 20 2b 31 30 36 31 @@ -1061,7 +1061
3e30: 2c 37 20 40 40 0a 20 20 20 20 20 54 63 6c 5f 44 ,7 @@. Tcl_D
3e40: 62 4e 65 77 42 69 67 6e 75 6d 4f 62 6a 2c 20 2f bNewBignumObj, /
3e50: 2a 20 35 35 36 20 2a 2f 0a 20 20 20 20 20 54 63 * 556 */. Tc
3e60: 6c 5f 53 65 74 42 69 67 6e 75 6d 4f 62 6a 2c 20 l_SetBignumObj,
3e70: 2f 2a 20 35 35 37 20 2a 2f 0a 20 20 20 20 20 54 /* 557 */. T
3e80: 63 6c 5f 47 65 74 42 69 67 6e 75 6d 46 72 6f 6d cl_GetBignumFrom
3e90: 4f 62 6a 2c 20 2f 2a 20 35 35 38 20 2a 2f 0a 2d Obj, /* 558 */.-
3ea0: 20 20 20 20 54 63 6c 5f 47 65 74 42 69 67 6e 75 Tcl_GetBignu
3eb0: 6d 41 6e 64 43 6c 65 61 72 4f 62 6a 2c 20 2f 2a mAndClearObj, /*
3ec0: 20 35 35 39 20 2a 2f 0a 2b 20 20 20 20 54 63 6c 559 */.+ Tcl
3ed0: 5f 54 61 6b 65 42 69 67 6e 75 6d 46 72 6f 6d 4f _TakeBignumFromO
3ee0: 62 6a 2c 20 2f 2a 20 35 35 39 20 2a 2f 0a 20 20 bj, /* 559 */.
3ef0: 20 20 20 54 63 6c 5f 54 72 75 6e 63 61 74 65 43 Tcl_TruncateC
3f00: 68 61 6e 6e 65 6c 2c 20 2f 2a 20 35 36 30 20 2a hannel, /* 560 *
3f10: 2f 0a 20 20 20 20 20 54 63 6c 5f 43 68 61 6e 6e /. Tcl_Chann
3f20: 65 6c 54 72 75 6e 63 61 74 65 50 72 6f 63 2c 20 elTruncateProc,
3f30: 2f 2a 20 35 36 31 20 2a 2f 0a 20 20 20 20 20 54 /* 561 */. T
3f40: 63 6c 5f 53 65 74 43 68 61 6e 6e 65 6c 45 72 72 cl_SetChannelErr
3f50: 6f 72 49 6e 74 65 72 70 2c 20 2f 2a 20 35 36 32 orInterp, /* 562
3f60: 20 2a 2f 0a */.
