Artifact
517bf3cb1070fefcd7e820e67ad00faeaaa19aeb:
Attachment "matherr-patch.txt" to
ticket [555635ffff]
added by
jenglish
2002-05-14 05:00:49.
0000: 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 63 2f 74 Index: generic/t
0010: 63 6c 45 78 65 63 75 74 65 2e 63 0a 3d 3d 3d 3d clExecute.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 3d 3d 0a ===============.
0060: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
0070: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 ot/tcl/tcl/gener
0080: 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 2c ic/tclExecute.c,
0090: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
00a0: 69 73 69 6f 6e 20 31 2e 35 33 0a 64 69 66 66 20 ision 1.53.diff
00b0: 2d 75 20 2d 72 31 2e 35 33 20 74 63 6c 45 78 65 -u -r1.53 tclExe
00c0: 63 75 74 65 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 cute.c.--- gener
00d0: 69 63 2f 74 63 6c 45 78 65 63 75 74 65 2e 63 09 ic/tclExecute.c.
00e0: 31 38 20 41 70 72 20 32 30 30 32 20 31 33 3a 30 18 Apr 2002 13:0
00f0: 34 3a 32 30 20 2d 30 30 30 30 09 31 2e 35 33 0a 4:20 -0000.1.53.
0100: 2b 2b 2b 20 67 65 6e 65 72 69 63 2f 74 63 6c 45 +++ generic/tclE
0110: 78 65 63 75 74 65 2e 63 09 31 33 20 4d 61 79 20 xecute.c.13 May
0120: 32 30 30 32 20 32 31 3a 30 35 3a 35 33 20 2d 30 2002 21:05:53 -0
0130: 30 30 30 0a 40 40 20 2d 36 36 2c 33 33 20 2b 36 000.@@ -66,33 +6
0140: 36 2c 36 20 40 40 0a 20 69 6e 74 20 74 63 6c 54 6,6 @@. int tclT
0150: 72 61 63 65 45 78 65 63 20 3d 20 30 3b 0a 20 23 raceExec = 0;. #
0160: 65 6e 64 69 66 0a 20 0a 2d 74 79 70 65 64 65 66 endif. .-typedef
0170: 20 73 74 72 75 63 74 20 54 68 72 65 61 64 53 70 struct ThreadSp
0180: 65 63 69 66 69 63 44 61 74 61 20 7b 0a 2d 20 20 ecificData {.-
0190: 20 20 2f 2a 0a 2d 20 20 20 20 20 2a 20 54 68 65 /*.- * The
01a0: 20 66 6f 6c 6c 6f 77 69 6e 67 20 67 6c 6f 62 61 following globa
01b0: 6c 20 76 61 72 69 61 62 6c 65 20 69 73 20 75 73 l variable is us
01c0: 65 20 74 6f 20 73 69 67 6e 61 6c 20 6d 61 74 68 e to signal math
01d0: 65 72 72 20 74 68 61 74 20 54 63 6c 0a 2d 20 20 err that Tcl.-
01e0: 20 20 20 2a 20 69 73 20 72 65 73 70 6f 6e 73 69 * is responsi
01f0: 62 6c 65 20 66 6f 72 20 74 68 65 20 61 72 69 74 ble for the arit
0200: 68 6d 65 74 69 63 2c 20 73 6f 20 65 72 72 6f 72 hmetic, so error
0210: 73 20 63 61 6e 20 62 65 20 68 61 6e 64 6c 65 64 s can be handled
0220: 20 69 6e 20 61 0a 2d 20 20 20 20 20 2a 20 66 61 in a.- * fa
0230: 73 68 69 6f 6e 20 61 70 70 72 6f 70 72 69 61 74 shion appropriat
0240: 65 20 66 6f 72 20 54 63 6c 2e 20 20 5a 65 72 6f e for Tcl. Zero
0250: 20 6d 65 61 6e 73 20 6e 6f 20 54 63 6c 20 6d 61 means no Tcl ma
0260: 74 68 20 69 73 20 69 6e 0a 2d 20 20 20 20 20 2a th is in.- *
0270: 20 70 72 6f 67 72 65 73 73 3b 20 20 6e 6f 6e 2d progress; non-
0280: 7a 65 72 6f 20 6d 65 61 6e 73 20 54 63 6c 20 69 zero means Tcl i
0290: 73 20 64 6f 69 6e 67 20 6d 61 74 68 2e 0a 2d 20 s doing math..-
02a0: 20 20 20 20 2a 2f 0a 2d 20 20 20 20 0a 2d 20 20 */.- .-
02b0: 20 20 69 6e 74 20 6d 61 74 68 49 6e 50 72 6f 67 int mathInProg
02c0: 72 65 73 73 3b 0a 2d 0a 2d 7d 20 54 68 72 65 61 ress;.-.-} Threa
02d0: 64 53 70 65 63 69 66 69 63 44 61 74 61 3b 0a 2d dSpecificData;.-
02e0: 0a 2d 73 74 61 74 69 63 20 54 63 6c 5f 54 68 72 .-static Tcl_Thr
02f0: 65 61 64 44 61 74 61 4b 65 79 20 64 61 74 61 4b eadDataKey dataK
0300: 65 79 3b 0a 2d 0a 2d 2f 2a 0a 2d 20 2a 20 54 68 ey;.-.-/*.- * Th
0310: 65 20 76 61 72 69 61 62 6c 65 20 62 65 6c 6f 77 e variable below
0320: 20 73 65 72 76 65 73 20 6e 6f 20 75 73 65 66 75 serves no usefu
0330: 6c 20 70 75 72 70 6f 73 65 20 65 78 63 65 70 74 l purpose except
0340: 20 74 6f 20 67 65 6e 65 72 61 74 65 0a 2d 20 2a to generate.- *
0350: 20 61 20 72 65 66 65 72 65 6e 63 65 20 74 6f 20 a reference to
0360: 6d 61 74 68 65 72 72 2c 20 73 6f 20 74 68 61 74 matherr, so that
0370: 20 74 68 65 20 54 63 6c 20 76 65 72 73 69 6f 6e the Tcl version
0380: 20 6f 66 20 6d 61 74 68 65 72 72 20 69 73 0a 2d of matherr is.-
0390: 20 2a 20 6c 69 6e 6b 65 64 20 69 6e 20 72 61 74 * linked in rat
03a0: 68 65 72 20 74 68 61 6e 20 74 68 65 20 73 79 73 her than the sys
03b0: 74 65 6d 20 76 65 72 73 69 6f 6e 2e 20 57 69 74 tem version. Wit
03c0: 68 6f 75 74 20 74 68 69 73 20 72 65 66 65 72 65 hout this refere
03d0: 6e 63 65 0a 2d 20 2a 20 74 68 65 20 6e 65 65 64 nce.- * the need
03e0: 20 66 6f 72 20 6d 61 74 68 65 72 72 20 77 6f 6e for matherr won
03f0: 27 74 20 62 65 20 64 69 73 63 6f 76 65 72 65 64 't be discovered
0400: 20 64 75 72 69 6e 67 20 6c 69 6e 6b 69 6e 67 20 during linking
0410: 75 6e 74 69 6c 20 61 66 74 65 72 0a 2d 20 2a 20 until after.- *
0420: 6c 69 62 74 63 6c 2e 61 20 68 61 73 20 62 65 65 libtcl.a has bee
0430: 6e 20 70 72 6f 63 65 73 73 65 64 2c 20 73 6f 20 n processed, so
0440: 54 63 6c 27 73 20 76 65 72 73 69 6f 6e 20 77 6f Tcl's version wo
0450: 6e 27 74 20 62 65 20 75 73 65 64 2e 0a 2d 20 2a n't be used..- *
0460: 2f 0a 2d 0a 2d 23 69 66 64 65 66 20 4e 45 45 44 /.-.-#ifdef NEED
0470: 5f 4d 41 54 48 45 52 52 0a 2d 65 78 74 65 72 6e _MATHERR.-extern
0480: 20 69 6e 74 20 6d 61 74 68 65 72 72 28 29 3b 0a int matherr();.
0490: 2d 69 6e 74 20 28 2a 74 63 6c 4d 61 74 68 65 72 -int (*tclMather
04a0: 72 50 74 72 29 28 29 20 3d 20 6d 61 74 68 65 72 rPtr)() = mather
04b0: 72 3b 0a 2d 23 65 6e 64 69 66 0a 2d 0a 20 2f 2a r;.-#endif.-. /*
04c0: 0a 20 20 2a 20 4d 61 70 70 69 6e 67 20 66 72 6f . * Mapping fro
04d0: 6d 20 65 78 70 72 65 73 73 69 6f 6e 20 69 6e 73 m expression ins
04e0: 74 72 75 63 74 69 6f 6e 20 6f 70 63 6f 64 65 73 truction opcodes
04f0: 20 74 6f 20 73 74 72 69 6e 67 73 3b 20 75 73 65 to strings; use
0500: 64 20 66 6f 72 20 65 72 72 6f 72 0a 20 20 2a 20 d for error. *
0510: 6d 65 73 73 61 67 65 73 2e 20 4e 6f 74 65 20 74 messages. Note t
0520: 68 61 74 20 74 68 65 73 65 20 65 6e 74 72 69 65 hat these entrie
0530: 73 20 6d 75 73 74 20 6d 61 74 63 68 20 74 68 65 s must match the
0540: 20 6f 72 64 65 72 20 61 6e 64 20 6e 75 6d 62 65 order and numbe
0550: 72 20 6f 66 20 74 68 65 0a 40 40 20 2d 33 39 31 r of the.@@ -391
0560: 32 2c 37 20 2b 33 38 38 35 2c 36 20 40 40 0a 20 2,7 +3885,6 @@.
0570: 09 09 20 2a 2f 0a 20 0a 20 09 09 42 75 69 6c 74 .. */. . ..Built
0580: 69 6e 46 75 6e 63 20 2a 6d 61 74 68 46 75 6e 63 inFunc *mathFunc
0590: 50 74 72 3b 0a 2d 09 09 54 68 72 65 61 64 53 70 Ptr;.-..ThreadSp
05a0: 65 63 69 66 69 63 44 61 74 61 20 2a 74 73 64 50 ecificData *tsdP
05b0: 74 72 20 3d 20 54 43 4c 5f 54 53 44 5f 49 4e 49 tr = TCL_TSD_INI
05c0: 54 28 26 64 61 74 61 4b 65 79 29 3b 0a 20 0a 20 T(&dataKey);. .
05d0: 09 09 69 66 20 28 28 6f 70 6e 64 20 3c 20 30 29 ..if ((opnd < 0)
05e0: 20 7c 7c 20 28 6f 70 6e 64 20 3e 20 4c 41 53 54 || (opnd > LAST
05f0: 5f 42 55 49 4c 54 49 4e 5f 46 55 4e 43 29 29 20 _BUILTIN_FUNC))
0600: 7b 0a 20 09 09 20 20 20 20 54 52 41 43 45 28 28 {. .. TRACE((
0610: 22 55 4e 52 45 43 4f 47 4e 49 5a 45 44 20 42 55 "UNRECOGNIZED BU
0620: 49 4c 54 49 4e 20 46 55 4e 43 20 43 4f 44 45 20 ILTIN FUNC CODE
0630: 25 64 5c 6e 22 2c 20 6f 70 6e 64 29 29 3b 0a 40 %d\n", opnd));.@
0640: 40 20 2d 33 39 32 30 2c 31 30 20 2b 33 38 39 32 @ -3920,10 +3892
0650: 2c 38 20 40 40 0a 20 09 09 7d 0a 20 09 09 6d 61 ,8 @@. ..}. ..ma
0660: 74 68 46 75 6e 63 50 74 72 20 3d 20 26 28 62 75 thFuncPtr = &(bu
0670: 69 6c 74 69 6e 46 75 6e 63 54 61 62 6c 65 5b 6f iltinFuncTable[o
0680: 70 6e 64 5d 29 3b 0a 20 09 09 44 45 43 41 43 48 pnd]);. ..DECACH
0690: 45 5f 53 54 41 43 4b 5f 49 4e 46 4f 28 29 3b 0a E_STACK_INFO();.
06a0: 2d 09 09 74 73 64 50 74 72 2d 3e 6d 61 74 68 49 -..tsdPtr->mathI
06b0: 6e 50 72 6f 67 72 65 73 73 2b 2b 3b 0a 20 09 09 nProgress++;. ..
06c0: 72 65 73 75 6c 74 20 3d 20 28 2a 6d 61 74 68 46 result = (*mathF
06d0: 75 6e 63 50 74 72 2d 3e 70 72 6f 63 29 28 69 6e uncPtr->proc)(in
06e0: 74 65 72 70 2c 20 65 65 50 74 72 2c 0a 20 09 09 terp, eePtr,. ..
06f0: 20 20 20 20 20 20 20 20 6d 61 74 68 46 75 6e 63 mathFunc
0700: 50 74 72 2d 3e 63 6c 69 65 6e 74 44 61 74 61 29 Ptr->clientData)
0710: 3b 0a 2d 09 09 74 73 64 50 74 72 2d 3e 6d 61 74 ;.-..tsdPtr->mat
0720: 68 49 6e 50 72 6f 67 72 65 73 73 2d 2d 3b 0a 20 hInProgress--;.
0730: 09 09 43 41 43 48 45 5f 53 54 41 43 4b 5f 49 4e ..CACHE_STACK_IN
0740: 46 4f 28 29 3b 0a 20 09 09 69 66 20 28 72 65 73 FO();. ..if (res
0750: 75 6c 74 20 21 3d 20 54 43 4c 5f 4f 4b 29 20 7b ult != TCL_OK) {
0760: 0a 20 09 09 20 20 20 20 67 6f 74 6f 20 63 68 65 . .. goto che
0770: 63 6b 46 6f 72 43 61 74 63 68 3b 0a 40 40 20 2d ckForCatch;.@@ -
0780: 33 39 34 34 2c 31 33 20 2b 33 39 31 34 2c 31 30 3944,13 +3914,10
0790: 20 40 40 0a 20 09 09 09 09 20 20 20 20 2a 20 69 @@. .... * i
07a0: 73 20 74 68 65 20 30 2d 74 68 20 61 72 67 75 6d s the 0-th argum
07b0: 65 6e 74 2e 20 2a 2f 0a 20 09 09 54 63 6c 5f 4f ent. */. ..Tcl_O
07c0: 62 6a 20 2a 2a 6f 62 6a 76 3b 09 20 20 20 2f 2a bj **objv;. /*
07d0: 20 54 68 65 20 61 72 72 61 79 20 6f 66 20 61 72 The array of ar
07e0: 67 75 6d 65 6e 74 73 2e 20 54 68 65 20 66 75 6e guments. The fun
07f0: 63 74 69 6f 6e 0a 20 09 09 09 09 20 20 20 20 2a ction. .... *
0800: 20 6e 61 6d 65 20 69 73 20 6f 62 6a 76 5b 30 5d name is objv[0]
0810: 2e 20 2a 2f 0a 2d 09 09 54 68 72 65 61 64 53 70 . */.-..ThreadSp
0820: 65 63 69 66 69 63 44 61 74 61 20 2a 74 73 64 50 ecificData *tsdP
0830: 74 72 20 3d 20 54 43 4c 5f 54 53 44 5f 49 4e 49 tr = TCL_TSD_INI
0840: 54 28 26 64 61 74 61 4b 65 79 29 3b 0a 20 0a 20 T(&dataKey);. .
0850: 09 09 6f 62 6a 76 20 3d 20 26 28 73 74 61 63 6b ..objv = &(stack
0860: 50 74 72 5b 73 74 61 63 6b 54 6f 70 20 2d 20 28 Ptr[stackTop - (
0870: 6f 62 6a 63 2d 31 29 5d 29 3b 20 2f 2a 20 22 6f objc-1)]); /* "o
0880: 62 6a 76 5b 30 5d 22 20 2a 2f 0a 20 09 09 44 45 bjv[0]" */. ..DE
0890: 43 41 43 48 45 5f 53 54 41 43 4b 5f 49 4e 46 4f CACHE_STACK_INFO
08a0: 28 29 3b 0a 2d 09 09 74 73 64 50 74 72 2d 3e 6d ();.-..tsdPtr->m
08b0: 61 74 68 49 6e 50 72 6f 67 72 65 73 73 2b 2b 3b athInProgress++;
08c0: 0a 20 09 09 72 65 73 75 6c 74 20 3d 20 45 78 70 . ..result = Exp
08d0: 72 43 61 6c 6c 4d 61 74 68 46 75 6e 63 28 69 6e rCallMathFunc(in
08e0: 74 65 72 70 2c 20 65 65 50 74 72 2c 20 6f 62 6a terp, eePtr, obj
08f0: 63 2c 20 6f 62 6a 76 29 3b 0a 2d 09 09 74 73 64 c, objv);.-..tsd
0900: 50 74 72 2d 3e 6d 61 74 68 49 6e 50 72 6f 67 72 Ptr->mathInProgr
0910: 65 73 73 2d 2d 3b 0a 20 09 09 43 41 43 48 45 5f ess--;. ..CACHE_
0920: 53 54 41 43 4b 5f 49 4e 46 4f 28 29 3b 0a 20 09 STACK_INFO();. .
0930: 09 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 .if (result != T
0940: 43 4c 5f 4f 4b 29 20 7b 0a 20 09 09 20 20 20 20 CL_OK) {. ..
0950: 67 6f 74 6f 20 63 68 65 63 6b 46 6f 72 43 61 74 goto checkForCat
0960: 63 68 3b 0a 40 40 20 2d 35 36 35 31 2c 37 20 2b ch;.@@ -5651,7 +
0970: 35 36 31 38 2c 36 20 40 40 0a 20 20 20 20 20 6c 5618,6 @@. l
0980: 6f 6e 67 20 69 3b 0a 20 20 20 20 20 64 6f 75 62 ong i;. doub
0990: 6c 65 20 64 3b 0a 20 20 20 20 20 69 6e 74 20 6a le d;. int j
09a0: 2c 20 6b 2c 20 72 65 73 75 6c 74 3b 0a 2d 20 20 , k, result;.-
09b0: 20 20 54 68 72 65 61 64 53 70 65 63 69 66 69 63 ThreadSpecific
09c0: 44 61 74 61 20 2a 74 73 64 50 74 72 20 3d 20 54 Data *tsdPtr = T
09d0: 43 4c 5f 54 53 44 5f 49 4e 49 54 28 26 64 61 74 CL_TSD_INIT(&dat
09e0: 61 4b 65 79 29 3b 0a 20 0a 20 20 20 20 20 54 63 aKey);. . Tc
09f0: 6c 5f 52 65 73 65 74 52 65 73 75 6c 74 28 69 6e l_ResetResult(in
0a00: 74 65 72 70 29 3b 0a 20 0a 40 40 20 2d 35 37 34 terp);. .@@ -574
0a10: 39 2c 31 30 20 2b 35 37 31 35 2c 38 20 40 40 0a 9,10 +5715,8 @@.
0a20: 20 20 20 20 20 20 2a 20 49 6e 76 6f 6b 65 20 74 * Invoke t
0a30: 68 65 20 66 75 6e 63 74 69 6f 6e 20 61 6e 64 20 he function and
0a40: 63 6f 70 79 20 69 74 73 20 72 65 73 75 6c 74 20 copy its result
0a50: 62 61 63 6b 20 69 6e 74 6f 20 76 61 6c 75 65 50 back into valueP
0a60: 74 72 2e 0a 20 20 20 20 20 20 2a 2f 0a 20 0a 2d tr.. */. .-
0a70: 20 20 20 20 74 73 64 50 74 72 2d 3e 6d 61 74 68 tsdPtr->math
0a80: 49 6e 50 72 6f 67 72 65 73 73 2b 2b 3b 0a 20 20 InProgress++;.
0a90: 20 20 20 72 65 73 75 6c 74 20 3d 20 28 2a 6d 61 result = (*ma
0aa0: 74 68 46 75 6e 63 50 74 72 2d 3e 70 72 6f 63 29 thFuncPtr->proc)
0ab0: 28 6d 61 74 68 46 75 6e 63 50 74 72 2d 3e 63 6c (mathFuncPtr->cl
0ac0: 69 65 6e 74 44 61 74 61 2c 20 69 6e 74 65 72 70 ientData, interp
0ad0: 2c 20 61 72 67 73 2c 0a 20 09 20 20 20 20 26 66 , args,. . &f
0ae0: 75 6e 63 52 65 73 75 6c 74 29 3b 0a 2d 20 20 20 uncResult);.-
0af0: 20 74 73 64 50 74 72 2d 3e 6d 61 74 68 49 6e 50 tsdPtr->mathInP
0b00: 72 6f 67 72 65 73 73 2d 2d 3b 0a 20 20 20 20 20 rogress--;.
0b10: 69 66 20 28 72 65 73 75 6c 74 20 21 3d 20 54 43 if (result != TC
0b20: 4c 5f 4f 4b 29 20 7b 0a 20 09 67 6f 74 6f 20 64 L_OK) {. .goto d
0b30: 6f 6e 65 3b 0a 20 20 20 20 20 7d 0a 40 40 20 2d one;. }.@@ -
0b40: 35 38 34 30 2c 33 30 20 2b 35 38 30 34 2c 36 20 5840,30 +5804,6
0b50: 40 40 0a 20 09 54 63 6c 5f 41 70 70 65 6e 64 54 @@. .Tcl_AppendT
0b60: 6f 4f 62 6a 28 54 63 6c 5f 47 65 74 4f 62 6a 52 oObj(Tcl_GetObjR
0b70: 65 73 75 6c 74 28 69 6e 74 65 72 70 29 2c 20 6d esult(interp), m
0b80: 73 67 2c 20 2d 31 29 3b 0a 20 09 54 63 6c 5f 53 sg, -1);. .Tcl_S
0b90: 65 74 45 72 72 6f 72 43 6f 64 65 28 69 6e 74 65 etErrorCode(inte
0ba0: 72 70 2c 20 22 41 52 49 54 48 22 2c 20 22 55 4e rp, "ARITH", "UN
0bb0: 4b 4e 4f 57 4e 22 2c 20 6d 73 67 2c 20 28 63 68 KNOWN", msg, (ch
0bc0: 61 72 20 2a 29 20 4e 55 4c 4c 29 3b 0a 20 20 20 ar *) NULL);.
0bd0: 20 20 7d 0a 2d 7d 0a 2d 0c 0a 2d 2f 2a 0a 2d 20 }.-}.-..-/*.-
0be0: 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d *---------------
0bf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0c20: 2d 2d 2d 2d 2d 2d 2d 0a 2d 20 2a 0a 2d 20 2a 20 -------.- *.- *
0c30: 54 63 6c 4d 61 74 68 49 6e 50 72 6f 67 72 65 73 TclMathInProgres
0c40: 73 20 2d 2d 0a 2d 20 2a 0a 2d 20 2a 09 54 68 69 s --.- *.- *.Thi
0c50: 73 20 70 72 6f 63 65 64 75 72 65 20 69 73 20 63 s procedure is c
0c60: 61 6c 6c 65 64 20 74 6f 20 66 69 6e 64 20 6f 75 alled to find ou
0c70: 74 20 69 66 20 54 63 6c 20 69 73 20 64 6f 69 6e t if Tcl is doin
0c80: 67 20 6d 61 74 68 0a 2d 20 2a 09 69 6e 20 74 68 g math.- *.in th
0c90: 69 73 20 74 68 72 65 61 64 2e 0a 2d 20 2a 0a 2d is thread..- *.-
0ca0: 20 2a 20 52 65 73 75 6c 74 73 3a 0a 2d 20 2a 09 * Results:.- *.
0cb0: 30 20 6f 72 20 31 2e 0a 2d 20 2a 0a 2d 20 2a 20 0 or 1..- *.- *
0cc0: 53 69 64 65 20 65 66 66 65 63 74 73 3a 0a 2d 20 Side effects:.-
0cd0: 2a 09 4e 6f 6e 65 2e 0a 2d 20 2a 0a 2d 20 2a 2d *.None..- *.- *-
0ce0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0cf0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d00: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d10: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0d20: 2d 2d 2d 2d 2d 0a 2d 20 2a 2f 0a 2d 0a 2d 69 6e -----.- */.-.-in
0d30: 74 0a 2d 54 63 6c 4d 61 74 68 49 6e 50 72 6f 67 t.-TclMathInProg
0d40: 72 65 73 73 28 29 0a 2d 7b 0a 2d 20 20 20 20 54 ress().-{.- T
0d50: 68 72 65 61 64 53 70 65 63 69 66 69 63 44 61 74 hreadSpecificDat
0d60: 61 20 2a 74 73 64 50 74 72 20 3d 20 54 43 4c 5f a *tsdPtr = TCL_
0d70: 54 53 44 5f 49 4e 49 54 28 26 64 61 74 61 4b 65 TSD_INIT(&dataKe
0d80: 79 29 3b 0a 2d 20 20 20 20 72 65 74 75 72 6e 20 y);.- return
0d90: 74 73 64 50 74 72 2d 3e 6d 61 74 68 49 6e 50 72 tsdPtr->mathInPr
0da0: 6f 67 72 65 73 73 3b 0a 20 7d 0a 20 0c 0a 20 23 ogress;. }. .. #
0db0: 69 66 64 65 66 20 54 43 4c 5f 43 4f 4d 50 49 4c ifdef TCL_COMPIL
0dc0: 45 5f 53 54 41 54 53 0a 49 6e 64 65 78 3a 20 67 E_STATS.Index: g
0dd0: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 0a eneric/tclInt.h.
0de0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0df0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e00: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e10: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0e20: 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 ===.RCS file: /c
0e30: 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 67 vsroot/tcl/tcl/g
0e40: 65 6e 65 72 69 63 2f 74 63 6c 49 6e 74 2e 68 2c eneric/tclInt.h,
0e50: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
0e60: 69 73 69 6f 6e 20 31 2e 38 37 0a 64 69 66 66 20 ision 1.87.diff
0e70: 2d 75 20 2d 72 31 2e 38 37 20 74 63 6c 49 6e 74 -u -r1.87 tclInt
0e80: 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 69 63 2f 74 .h.--- generic/t
0e90: 63 6c 49 6e 74 2e 68 09 31 33 20 4d 61 79 20 32 clInt.h.13 May 2
0ea0: 30 30 32 20 31 33 3a 32 30 3a 30 30 20 2d 30 30 002 13:20:00 -00
0eb0: 30 30 09 31 2e 38 37 0a 2b 2b 2b 20 67 65 6e 65 00.1.87.+++ gene
0ec0: 72 69 63 2f 74 63 6c 49 6e 74 2e 68 09 31 33 20 ric/tclInt.h.13
0ed0: 4d 61 79 20 32 30 30 32 20 32 31 3a 30 35 3a 35 May 2002 21:05:5
0ee0: 33 20 2d 30 30 30 30 0a 40 40 20 2d 31 37 37 38 3 -0000.@@ -1778
0ef0: 2c 37 20 2b 31 37 37 38 2c 36 20 40 40 0a 20 09 ,7 +1778,6 @@. .
0f00: 09 09 09 09 09 20 54 63 6c 5f 4f 62 6a 20 2a 43 ..... Tcl_Obj *C
0f10: 4f 4e 53 54 20 69 6e 64 65 78 41 72 72 61 79 5b ONST indexArray[
0f20: 5d 2c 0a 20 09 09 09 09 09 09 20 54 63 6c 5f 4f ],. ...... Tcl_O
0f30: 62 6a 2a 20 76 61 6c 75 65 50 74 72 0a 20 09 09 bj* valuePtr. ..
0f40: 09 09 09 09 20 29 29 3b 0a 2d 45 58 54 45 52 4e .... ));.-EXTERN
0f50: 20 69 6e 74 09 09 54 63 6c 4d 61 74 68 49 6e 50 int..TclMathInP
0f60: 72 6f 67 72 65 73 73 20 5f 41 4e 53 49 5f 41 52 rogress _ANSI_AR
0f70: 47 53 5f 28 28 76 6f 69 64 29 29 3b 0a 20 45 58 GS_((void));. EX
0f80: 54 45 52 4e 20 54 63 6c 5f 4f 62 6a 20 2a 09 54 TERN Tcl_Obj *.T
0f90: 63 6c 4e 65 77 50 72 6f 63 42 6f 64 79 4f 62 6a clNewProcBodyObj
0fa0: 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 50 72 _ANSI_ARGS_((Pr
0fb0: 6f 63 20 2a 70 72 6f 63 50 74 72 29 29 3b 0a 20 oc *procPtr));.
0fc0: 45 58 54 45 52 4e 20 69 6e 74 09 09 54 63 6c 4f EXTERN int..TclO
0fd0: 62 6a 43 6f 6d 6d 61 6e 64 43 6f 6d 70 6c 65 74 bjCommandComplet
0fe0: 65 20 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 54 e _ANSI_ARGS_((T
0ff0: 63 6c 5f 4f 62 6a 20 2a 63 6d 64 50 74 72 29 29 cl_Obj *cmdPtr))
1000: 3b 0a 20 45 58 54 45 52 4e 20 69 6e 74 09 09 54 ;. EXTERN int..T
1010: 63 6c 4f 62 6a 49 6e 74 65 72 70 50 72 6f 63 20 clObjInterpProc
1020: 5f 41 4e 53 49 5f 41 52 47 53 5f 28 28 43 6c 69 _ANSI_ARGS_((Cli
1030: 65 6e 74 44 61 74 61 20 63 6c 69 65 6e 74 44 61 entData clientDa
1040: 74 61 2c 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f ta,.Index: unix/
1050: 4d 61 6b 65 66 69 6c 65 2e 69 6e 0a 3d 3d 3d 3d Makefile.in.====
1060: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1070: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1080: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1090: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a ===============.
10a0: 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 6f RCS file: /cvsro
10b0: 6f 74 2f 74 63 6c 2f 74 63 6c 2f 75 6e 69 78 2f ot/tcl/tcl/unix/
10c0: 4d 61 6b 65 66 69 6c 65 2e 69 6e 2c 76 0a 72 65 Makefile.in,v.re
10d0: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
10e0: 6e 20 31 2e 39 38 0a 64 69 66 66 20 2d 75 20 2d n 1.98.diff -u -
10f0: 72 31 2e 39 38 20 4d 61 6b 65 66 69 6c 65 2e 69 r1.98 Makefile.i
1100: 6e 0a 2d 2d 2d 20 75 6e 69 78 2f 4d 61 6b 65 66 n.--- unix/Makef
1110: 69 6c 65 2e 69 6e 09 32 33 20 41 70 72 20 32 30 ile.in.23 Apr 20
1120: 30 32 20 30 35 3a 34 31 3a 30 33 20 2d 30 30 30 02 05:41:03 -000
1130: 30 09 31 2e 39 38 0a 2b 2b 2b 20 75 6e 69 78 2f 0.1.98.+++ unix/
1140: 4d 61 6b 65 66 69 6c 65 2e 69 6e 09 31 33 20 4d Makefile.in.13 M
1150: 61 79 20 32 30 30 32 20 32 31 3a 30 35 3a 35 34 ay 2002 21:05:54
1160: 20 2d 30 30 30 30 0a 40 40 20 2d 31 32 33 2c 37 -0000.@@ -123,7
1170: 20 2b 31 32 33 2c 37 20 40 40 0a 20 23 20 74 68 +123,7 @@. # th
1180: 65 20 63 75 72 72 65 6e 74 20 6f 6e 65 20 64 6f e current one do
1190: 65 73 29 2e 0a 20 47 45 4e 45 52 49 43 5f 46 4c es).. GENERIC_FL
11a0: 41 47 53 20 3d 0a 20 23 47 45 4e 45 52 49 43 5f AGS =. #GENERIC_
11b0: 46 4c 41 47 53 20 3d 20 2d 44 54 43 4c 5f 47 45 FLAGS = -DTCL_GE
11c0: 4e 45 52 49 43 5f 4f 4e 4c 59 0a 2d 55 4e 49 58 NERIC_ONLY.-UNIX
11d0: 5f 4f 42 4a 53 20 3d 20 74 63 6c 4d 74 68 65 72 _OBJS = tclMther
11e0: 72 2e 6f 20 74 63 6c 55 6e 69 78 43 68 61 6e 2e r.o tclUnixChan.
11f0: 6f 20 74 63 6c 55 6e 69 78 45 76 65 6e 74 2e 6f o tclUnixEvent.o
1200: 20 74 63 6c 55 6e 69 78 46 43 6d 64 2e 6f 20 5c tclUnixFCmd.o \
1210: 0a 2b 55 4e 49 58 5f 4f 42 4a 53 20 3d 20 74 63 .+UNIX_OBJS = tc
1220: 6c 55 6e 69 78 43 68 61 6e 2e 6f 20 74 63 6c 55 lUnixChan.o tclU
1230: 6e 69 78 45 76 65 6e 74 2e 6f 20 74 63 6c 55 6e nixEvent.o tclUn
1240: 69 78 46 43 6d 64 2e 6f 20 5c 0a 20 09 74 63 6c ixFCmd.o \. .tcl
1250: 55 6e 69 78 46 69 6c 65 2e 6f 20 74 63 6c 55 6e UnixFile.o tclUn
1260: 69 78 50 69 70 65 2e 6f 20 74 63 6c 55 6e 69 78 ixPipe.o tclUnix
1270: 53 6f 63 6b 2e 6f 20 5c 0a 20 09 74 63 6c 55 6e Sock.o \. .tclUn
1280: 69 78 54 69 6d 65 2e 6f 20 74 63 6c 55 6e 69 78 ixTime.o tclUnix
1290: 49 6e 69 74 2e 6f 20 74 63 6c 55 6e 69 78 54 68 Init.o tclUnixTh
12a0: 72 64 2e 6f 20 0a 20 23 55 4e 49 58 5f 4f 42 4a rd.o . #UNIX_OBJ
12b0: 53 20 3d 0a 40 40 20 2d 33 37 38 2c 37 20 2b 33 S =.@@ -378,7 +3
12c0: 37 38 2c 36 20 40 40 0a 20 0a 20 55 4e 49 58 5f 78,6 @@. . UNIX_
12d0: 53 52 43 53 20 3d 20 5c 0a 20 09 24 28 55 4e 49 SRCS = \. .$(UNI
12e0: 58 5f 44 49 52 29 2f 74 63 6c 41 70 70 49 6e 69 X_DIR)/tclAppIni
12f0: 74 2e 63 20 5c 0a 2d 09 24 28 55 4e 49 58 5f 44 t.c \.-.$(UNIX_D
1300: 49 52 29 2f 74 63 6c 4d 74 68 65 72 72 2e 63 20 IR)/tclMtherr.c
1310: 5c 0a 20 09 24 28 55 4e 49 58 5f 44 49 52 29 2f \. .$(UNIX_DIR)/
1320: 74 63 6c 55 6e 69 78 43 68 61 6e 2e 63 20 5c 0a tclUnixChan.c \.
1330: 20 09 24 28 55 4e 49 58 5f 44 49 52 29 2f 74 63 .$(UNIX_DIR)/tc
1340: 6c 55 6e 69 78 45 76 65 6e 74 2e 63 20 5c 0a 20 lUnixEvent.c \.
1350: 09 24 28 55 4e 49 58 5f 44 49 52 29 2f 74 63 6c .$(UNIX_DIR)/tcl
1360: 55 6e 69 78 46 43 6d 64 2e 63 20 5c 0a 40 40 20 UnixFCmd.c \.@@
1370: 2d 38 38 38 2c 39 20 2b 38 38 37 2c 36 20 40 40 -888,9 +887,6 @@
1380: 0a 20 0a 20 74 63 6c 4d 61 69 6e 2e 6f 3a 20 24 . . tclMain.o: $
1390: 28 47 45 4e 45 52 49 43 5f 44 49 52 29 2f 74 63 (GENERIC_DIR)/tc
13a0: 6c 4d 61 69 6e 2e 63 0a 20 09 24 28 43 43 29 20 lMain.c. .$(CC)
13b0: 2d 63 20 24 28 43 43 5f 53 57 49 54 43 48 45 53 -c $(CC_SWITCHES
13c0: 29 20 24 28 47 45 4e 45 52 49 43 5f 44 49 52 29 ) $(GENERIC_DIR)
13d0: 2f 74 63 6c 4d 61 69 6e 2e 63 0a 2d 0a 2d 74 63 /tclMain.c.-.-tc
13e0: 6c 4d 74 68 65 72 72 2e 6f 3a 20 24 28 55 4e 49 lMtherr.o: $(UNI
13f0: 58 5f 44 49 52 29 2f 74 63 6c 4d 74 68 65 72 72 X_DIR)/tclMtherr
1400: 2e 63 0a 2d 09 24 28 43 43 29 20 2d 63 20 24 28 .c.-.$(CC) -c $(
1410: 43 43 5f 53 57 49 54 43 48 45 53 29 20 24 28 55 CC_SWITCHES) $(U
1420: 4e 49 58 5f 44 49 52 29 2f 74 63 6c 4d 74 68 65 NIX_DIR)/tclMthe
1430: 72 72 2e 63 0a 20 0a 20 74 63 6c 4e 61 6d 65 73 rr.c. . tclNames
1440: 70 2e 6f 3a 20 24 28 47 45 4e 45 52 49 43 5f 44 p.o: $(GENERIC_D
1450: 49 52 29 2f 74 63 6c 4e 61 6d 65 73 70 2e 63 0a IR)/tclNamesp.c.
1460: 20 09 24 28 43 43 29 20 2d 63 20 24 28 43 43 5f .$(CC) -c $(CC_
1470: 53 57 49 54 43 48 45 53 29 20 24 28 47 45 4e 45 SWITCHES) $(GENE
1480: 52 49 43 5f 44 49 52 29 2f 74 63 6c 4e 61 6d 65 RIC_DIR)/tclName
1490: 73 70 2e 63 0a 49 6e 64 65 78 3a 20 75 6e 69 78 sp.c.Index: unix
14a0: 2f 74 63 6c 41 70 70 49 6e 69 74 2e 63 0a 3d 3d /tclAppInit.c.==
14b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
14c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
14d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
14e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
14f0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1500: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 75 6e 69 root/tcl/tcl/uni
1510: 78 2f 74 63 6c 41 70 70 49 6e 69 74 2e 63 2c 76 x/tclAppInit.c,v
1520: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
1530: 73 69 6f 6e 20 31 2e 31 30 0a 64 69 66 66 20 2d sion 1.10.diff -
1540: 75 20 2d 72 31 2e 31 30 20 74 63 6c 41 70 70 49 u -r1.10 tclAppI
1550: 6e 69 74 2e 63 0a 2d 2d 2d 20 75 6e 69 78 2f 74 nit.c.--- unix/t
1560: 63 6c 41 70 70 49 6e 69 74 2e 63 09 31 32 20 46 clAppInit.c.12 F
1570: 65 62 20 32 30 30 32 20 31 34 3a 32 33 3a 33 33 eb 2002 14:23:33
1580: 20 2d 30 30 30 30 09 31 2e 31 30 0a 2b 2b 2b 20 -0000.1.10.+++
1590: 75 6e 69 78 2f 74 63 6c 41 70 70 49 6e 69 74 2e unix/tclAppInit.
15a0: 63 09 31 33 20 4d 61 79 20 32 30 30 32 20 32 31 c.13 May 2002 21
15b0: 3a 30 35 3a 35 34 20 2d 30 30 30 30 0a 40 40 20 :05:54 -0000.@@
15c0: 2d 31 36 2c 31 35 20 2b 31 36 2c 36 20 40 40 0a -16,15 +16,6 @@.
15d0: 20 0a 20 23 69 6e 63 6c 75 64 65 20 22 74 63 6c . #include "tcl
15e0: 2e 68 22 0a 20 0a 2d 2f 2a 0a 2d 20 2a 20 54 68 .h". .-/*.- * Th
15f0: 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 76 61 72 69 e following vari
1600: 61 62 6c 65 20 69 73 20 61 20 73 70 65 63 69 61 able is a specia
1610: 6c 20 68 61 63 6b 20 74 68 61 74 20 69 73 20 6e l hack that is n
1620: 65 65 64 65 64 20 69 6e 20 6f 72 64 65 72 20 66 eeded in order f
1630: 6f 72 0a 2d 20 2a 20 53 75 6e 20 73 68 61 72 65 or.- * Sun share
1640: 64 20 6c 69 62 72 61 72 69 65 73 20 74 6f 20 62 d libraries to b
1650: 65 20 75 73 65 64 20 66 6f 72 20 54 63 6c 2e 0a e used for Tcl..
1660: 2d 20 2a 2f 0a 2d 0a 2d 65 78 74 65 72 6e 20 69 - */.-.-extern i
1670: 6e 74 20 6d 61 74 68 65 72 72 28 29 3b 0a 2d 69 nt matherr();.-i
1680: 6e 74 20 2a 74 63 6c 44 75 6d 6d 79 4d 61 74 68 nt *tclDummyMath
1690: 50 74 72 20 3d 20 28 69 6e 74 20 2a 29 20 6d 61 Ptr = (int *) ma
16a0: 74 68 65 72 72 3b 0a 2d 0a 2d 0a 20 23 69 66 64 therr;.-.-. #ifd
16b0: 65 66 20 54 43 4c 5f 54 45 53 54 0a 20 0a 20 23 ef TCL_TEST. . #
16c0: 69 6e 63 6c 75 64 65 20 22 74 63 6c 49 6e 74 2e include "tclInt.
16d0: 68 22 0a 49 6e 64 65 78 3a 20 77 69 6e 2f 74 63 h".Index: win/tc
16e0: 6c 57 69 6e 4d 74 68 65 72 72 2e 63 0a 3d 3d 3d lWinMtherr.c.===
16f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1700: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1710: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1720: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
1730: 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 72 .RCS file: /cvsr
1740: 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 77 69 6e 2f oot/tcl/tcl/win/
1750: 74 63 6c 57 69 6e 4d 74 68 65 72 72 2e 63 2c 76 tclWinMtherr.c,v
1760: 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 69 .retrieving revi
1770: 73 69 6f 6e 20 31 2e 34 0a 64 69 66 66 20 2d 75 sion 1.4.diff -u
1780: 20 2d 72 31 2e 34 20 74 63 6c 57 69 6e 4d 74 68 -r1.4 tclWinMth
1790: 65 72 72 2e 63 0a 2d 2d 2d 20 77 69 6e 2f 74 63 err.c.--- win/tc
17a0: 6c 57 69 6e 4d 74 68 65 72 72 2e 63 09 31 35 20 lWinMtherr.c.15
17b0: 46 65 62 20 32 30 30 32 20 31 34 3a 32 38 3a 35 Feb 2002 14:28:5
17c0: 31 20 2d 30 30 30 30 09 31 2e 34 0a 2b 2b 2b 20 1 -0000.1.4.+++
17d0: 77 69 6e 2f 74 63 6c 57 69 6e 4d 74 68 65 72 72 win/tclWinMtherr
17e0: 2e 63 09 31 33 20 4d 61 79 20 32 30 30 32 20 32 .c.13 May 2002 2
17f0: 31 3a 30 35 3a 35 34 20 2d 30 30 30 30 0a 40 40 1:05:54 -0000.@@
1800: 20 2d 34 30 2c 39 20 2b 34 30 2c 36 20 40 40 0a -40,9 +40,6 @@.
1810: 20 5f 6d 61 74 68 65 72 72 28 78 50 74 72 29 0a _matherr(xPtr).
1820: 20 20 20 20 20 73 74 72 75 63 74 20 65 78 63 65 struct exce
1830: 70 74 69 6f 6e 20 2a 78 50 74 72 3b 09 2f 2a 20 ption *xPtr;./*
1840: 44 65 73 63 72 69 62 65 73 20 65 72 72 6f 72 20 Describes error
1850: 74 68 61 74 20 6f 63 63 75 72 72 65 64 2e 20 2a that occurred. *
1860: 2f 0a 20 7b 0a 2d 20 20 20 20 69 66 20 28 21 54 /. {.- if (!T
1870: 63 6c 4d 61 74 68 49 6e 50 72 6f 67 72 65 73 73 clMathInProgress
1880: 28 29 29 20 7b 0a 2d 09 72 65 74 75 72 6e 20 30 ()) {.-.return 0
1890: 3b 0a 2d 20 20 20 20 7d 0a 20 20 20 20 20 69 66 ;.- }. if
18a0: 20 28 28 78 50 74 72 2d 3e 74 79 70 65 20 3d 3d ((xPtr->type ==
18b0: 20 44 4f 4d 41 49 4e 29 0a 20 23 69 66 64 65 66 DOMAIN). #ifdef
18c0: 20 5f 5f 42 4f 52 4c 41 4e 44 43 5f 5f 0a 20 09 __BORLANDC__. .
18d0: 20 20 20 20 7c 7c 20 28 78 50 74 72 2d 3e 74 79 || (xPtr->ty
18e0: 70 65 20 3d 3d 20 54 4c 4f 53 53 29 0a pe == TLOSS).
