Artifact
55aa53a2bca16afea6137f1d14012c3314051af4:
Attachment "tip138.patch" to
ticket [731356ffff]
added by
dgp
2003-11-15 05:28:00.
0000: 49 6e 64 65 78 3a 20 64 6f 63 2f 48 61 73 68 2e Index: doc/Hash.
0010: 33 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3.==============
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 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0060: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0070: 2f 64 6f 63 2f 48 61 73 68 2e 33 2c 76 0a 72 65 /doc/Hash.3,v.re
0080: 74 72 69 65 76 69 6e 67 20 72 65 76 69 73 69 6f trieving revisio
0090: 6e 20 31 2e 31 31 0a 64 69 66 66 20 2d 75 20 2d n 1.11.diff -u -
00a0: 72 31 2e 31 31 20 48 61 73 68 2e 33 0a 2d 2d 2d r1.11 Hash.3.---
00b0: 20 64 6f 63 2f 48 61 73 68 2e 33 09 31 38 20 4a doc/Hash.3.18 J
00c0: 75 6c 20 32 30 30 33 20 31 36 3a 35 36 3a 34 31 ul 2003 16:56:41
00d0: 20 2d 30 30 30 30 09 31 2e 31 31 0a 2b 2b 2b 20 -0000.1.11.+++
00e0: 64 6f 63 2f 48 61 73 68 2e 33 09 31 34 20 4e 6f doc/Hash.3.14 No
00f0: 76 20 32 30 30 33 20 32 32 3a 32 36 3a 33 30 20 v 2003 22:26:30
0100: 2d 30 30 30 30 0a 40 40 20 2d 32 35 36 2c 36 20 -0000.@@ -256,6
0110: 2b 32 35 36 2c 31 35 20 40 40 0a 20 62 65 63 61 +256,15 @@. beca
0120: 75 73 65 20 74 68 65 79 20 64 6f 20 6e 6f 74 20 use they do not
0130: 75 73 65 20 74 68 65 20 6c 6f 77 65 72 20 62 69 use the lower bi
0140: 74 73 2e 20 49 66 20 74 68 69 73 20 66 6c 61 67 ts. If this flag
0150: 20 69 73 20 73 65 74 20 74 68 65 6e 20 74 68 65 is set then the
0160: 0a 20 68 61 73 68 20 74 61 62 6c 65 20 77 69 6c . hash table wil
0170: 6c 20 61 74 74 65 6d 70 74 20 74 6f 20 72 65 63 l attempt to rec
0180: 74 69 66 79 20 74 68 69 73 20 62 79 20 72 61 6e tify this by ran
0190: 64 6f 6d 69 73 69 6e 67 20 74 68 65 20 62 69 74 domising the bit
01a0: 73 20 61 6e 64 20 0a 20 74 68 65 6e 20 75 73 69 s and . then usi
01b0: 6e 67 20 74 68 65 20 75 70 70 65 72 20 4e 20 62 ng the upper N b
01c0: 69 74 73 20 61 73 20 74 68 65 20 69 6e 64 65 78 its as the index
01d0: 20 69 6e 74 6f 20 74 68 65 20 74 61 62 6c 65 2e into the table.
01e0: 0a 2b 2e 49 50 20 5c 66 42 54 43 4c 5f 48 41 53 .+.IP \fBTCL_HAS
01f0: 48 5f 4b 45 59 5f 53 59 53 54 45 4d 5f 48 41 53 H_KEY_SYSTEM_HAS
0200: 48 5c 66 52 20 32 35 0a 2b 49 66 20 74 68 69 73 H\fR 25.+If this
0210: 20 66 6c 61 67 20 69 73 20 73 65 74 2c 20 74 68 flag is set, th
0220: 65 6e 20 54 63 6c 20 77 69 6c 6c 20 75 73 65 20 en Tcl will use
0230: 74 68 65 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f 63 the memory alloc
0240: 61 74 69 6f 6e 20 0a 2b 70 72 6f 63 65 64 75 72 ation .+procedur
0250: 65 73 20 70 72 6f 76 69 64 65 64 20 62 79 20 74 es provided by t
0260: 68 65 20 6f 70 65 72 61 74 69 6e 67 20 73 79 73 he operating sys
0270: 74 65 6d 20 77 68 65 6e 20 61 6c 6c 6f 63 61 74 tem when allocat
0280: 69 6e 67 0a 2b 61 6e 64 20 66 72 65 65 69 6e 67 ing.+and freeing
0290: 20 6d 65 6d 6f 72 79 20 75 73 65 64 20 74 6f 20 memory used to
02a0: 73 74 6f 72 65 20 74 68 65 20 68 61 73 68 20 74 store the hash t
02b0: 61 62 6c 65 20 64 61 74 61 20 73 74 72 75 63 74 able data struct
02c0: 75 72 65 73 2c 0a 2b 61 6e 64 20 6e 6f 74 20 61 ures,.+and not a
02d0: 6e 79 20 6f 66 20 54 63 6c 27 73 20 6f 77 6e 20 ny of Tcl's own
02e0: 63 75 73 74 6f 6d 69 7a 65 64 20 6d 65 6d 6f 72 customized memor
02f0: 79 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 72 6f 75 y allocation rou
0300: 74 69 6e 65 73 2e 0a 2b 54 68 69 73 20 69 73 20 tines..+This is
0310: 69 6d 70 6f 72 74 61 6e 74 20 69 66 20 74 68 65 important if the
0320: 20 68 61 73 68 20 74 61 62 6c 65 20 69 73 20 74 hash table is t
0330: 6f 20 62 65 20 75 73 65 64 20 69 6e 20 74 68 65 o be used in the
0340: 0a 2b 69 6d 70 6c 65 6d 65 6e 74 61 74 69 6f 6e .+implementation
0350: 20 6f 66 20 61 20 63 75 73 74 6f 6d 20 73 65 74 of a custom set
0360: 20 6f 66 20 61 6c 6c 6f 63 61 74 69 6f 6e 20 72 of allocation r
0370: 6f 75 74 69 6e 65 73 2c 20 6f 72 20 73 6f 6d 65 outines, or some
0380: 74 68 69 6e 67 0a 2b 74 68 61 74 20 61 20 63 75 thing.+that a cu
0390: 73 74 6f 6d 20 73 65 74 20 6f 66 20 61 6c 6c 6f stom set of allo
03a0: 63 61 74 69 6f 6e 20 72 6f 75 74 69 6e 65 73 20 cation routines
03b0: 6d 69 67 68 74 20 64 65 70 65 6e 64 20 6f 6e 2c might depend on,
03c0: 20 69 6e 0a 2b 6f 72 64 65 72 20 74 6f 20 61 76 in.+order to av
03d0: 6f 69 64 20 61 6e 79 20 63 69 72 63 75 6c 61 72 oid any circular
03e0: 20 64 65 70 65 6e 64 65 6e 63 79 2e 0a 20 2e 50 dependency.. .P
03f0: 50 0a 20 54 68 65 20 5c 66 49 68 61 73 68 4b 65 P. The \fIhashKe
0400: 79 50 72 6f 63 5c 66 52 20 6d 65 6d 62 65 72 20 yProc\fR member
0410: 63 6f 6e 74 61 69 6e 73 20 74 68 65 20 61 64 64 contains the add
0420: 72 65 73 73 20 6f 66 20 61 20 66 75 6e 63 74 69 ress of a functi
0430: 6f 6e 20 0a 20 63 61 6c 6c 65 64 20 74 6f 20 63 on . called to c
0440: 61 6c 63 75 6c 61 74 65 20 61 20 68 61 73 68 20 alculate a hash
0450: 76 61 6c 75 65 20 66 6f 72 20 74 68 65 20 6b 65 value for the ke
0460: 79 2e 0a 49 6e 64 65 78 3a 20 67 65 6e 65 72 69 y..Index: generi
0470: 63 2f 74 63 6c 2e 68 0a 3d 3d 3d 3d 3d 3d 3d 3d c/tcl.h.========
0480: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0490: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
04a0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
04b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 0a 52 43 53 20 ===========.RCS
04c0: 66 69 6c 65 3a 20 2f 63 76 73 72 6f 6f 74 2f 74 file: /cvsroot/t
04d0: 63 6c 2f 74 63 6c 2f 67 65 6e 65 72 69 63 2f 74 cl/tcl/generic/t
04e0: 63 6c 2e 68 2c 76 0a 72 65 74 72 69 65 76 69 6e cl.h,v.retrievin
04f0: 67 20 72 65 76 69 73 69 6f 6e 20 31 2e 31 36 37 g revision 1.167
0500: 0a 64 69 66 66 20 2d 75 20 2d 72 31 2e 31 36 37 .diff -u -r1.167
0510: 20 74 63 6c 2e 68 0a 2d 2d 2d 20 67 65 6e 65 72 tcl.h.--- gener
0520: 69 63 2f 74 63 6c 2e 68 09 31 34 20 4e 6f 76 20 ic/tcl.h.14 Nov
0530: 32 30 30 33 20 32 30 3a 34 34 3a 34 34 20 2d 30 2003 20:44:44 -0
0540: 30 30 30 09 31 2e 31 36 37 0a 2b 2b 2b 20 67 65 000.1.167.+++ ge
0550: 6e 65 72 69 63 2f 74 63 6c 2e 68 09 31 34 20 4e neric/tcl.h.14 N
0560: 6f 76 20 32 30 30 33 20 32 32 3a 32 36 3a 33 30 ov 2003 22:26:30
0570: 20 2d 30 30 30 30 0a 40 40 20 2d 31 31 36 39 2c -0000.@@ -1169,
0580: 38 20 2b 31 31 36 39 2c 31 33 20 40 40 0a 20 20 8 +1169,13 @@.
0590: 2a 09 09 09 09 68 61 73 68 20 74 61 62 6c 65 20 *....hash table
05a0: 77 69 6c 6c 20 61 74 74 65 6d 70 74 20 74 6f 20 will attempt to
05b0: 72 65 63 74 69 66 79 20 74 68 69 73 20 62 79 0a rectify this by.
05c0: 20 20 2a 09 09 09 09 72 61 6e 64 6f 6d 69 73 69 *....randomisi
05d0: 6e 67 20 74 68 65 20 62 69 74 73 20 61 6e 64 20 ng the bits and
05e0: 74 68 65 6e 20 75 73 69 6e 67 20 74 68 65 20 75 then using the u
05f0: 70 70 65 72 0a 20 20 2a 09 09 09 09 4e 20 62 69 pper. *....N bi
0600: 74 73 20 61 73 20 74 68 65 20 69 6e 64 65 78 20 ts as the index
0610: 69 6e 74 6f 20 74 68 65 20 74 61 62 6c 65 2e 0a into the table..
0620: 2b 20 2a 20 54 43 4c 5f 48 41 53 48 5f 4b 45 59 + * TCL_HASH_KEY
0630: 5f 53 59 53 54 45 4d 5f 48 41 53 48 3a 0a 2b 20 _SYSTEM_HASH:.+
0640: 2a 09 09 09 09 49 66 20 74 68 69 73 20 66 6c 61 *....If this fla
0650: 67 20 69 73 20 73 65 74 20 74 68 65 6e 20 61 6c g is set then al
0660: 6c 20 6d 65 6d 6f 72 79 20 69 6e 74 65 72 6e 61 l memory interna
0670: 6c 6c 79 0a 2b 20 2a 20 20 20 20 20 20 20 20 20 lly.+ *
0680: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
0690: 20 20 20 20 20 61 6c 6c 6f 63 61 74 65 64 20 66 allocated f
06a0: 6f 72 20 74 68 65 20 68 61 73 68 20 74 61 62 6c or the hash tabl
06b0: 65 20 74 68 61 74 20 69 73 20 6e 6f 74 20 66 6f e that is not fo
06c0: 72 20 61 6e 0a 2b 20 2a 20 20 20 20 20 20 20 20 r an.+ *
06d0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20
06e0: 20 20 20 20 20 20 65 6e 74 72 79 20 77 69 6c 6c entry will
06f0: 20 75 73 65 20 74 68 65 20 73 79 73 74 65 6d 20 use the system
0700: 68 65 61 70 2e 0a 20 20 2a 2f 0a 20 23 64 65 66 heap.. */. #def
0710: 69 6e 65 20 54 43 4c 5f 48 41 53 48 5f 4b 45 59 ine TCL_HASH_KEY
0720: 5f 52 41 4e 44 4f 4d 49 5a 45 5f 48 41 53 48 20 _RANDOMIZE_HASH
0730: 30 78 31 0a 2b 23 64 65 66 69 6e 65 20 54 43 4c 0x1.+#define TCL
0740: 5f 48 41 53 48 5f 4b 45 59 5f 53 59 53 54 45 4d _HASH_KEY_SYSTEM
0750: 5f 48 41 53 48 20 20 20 20 30 78 32 0a 20 0a 20 _HASH 0x2. .
0760: 2f 2a 0a 20 20 2a 20 53 74 72 75 63 74 75 72 65 /*. * Structure
0770: 20 64 65 66 69 6e 69 74 69 6f 6e 20 66 6f 72 20 definition for
0780: 74 68 65 20 6d 65 74 68 6f 64 73 20 61 73 73 6f the methods asso
0790: 63 69 61 74 65 64 20 77 69 74 68 20 61 20 68 61 ciated with a ha
07a0: 73 68 20 74 61 62 6c 65 0a 49 6e 64 65 78 3a 20 sh table.Index:
07b0: 67 65 6e 65 72 69 63 2f 74 63 6c 48 61 73 68 2e generic/tclHash.
07c0: 63 0a 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d c.==============
07d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
07e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
07f0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
0800: 3d 3d 3d 3d 3d 0a 52 43 53 20 66 69 6c 65 3a 20 =====.RCS file:
0810: 2f 63 76 73 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c /cvsroot/tcl/tcl
0820: 2f 67 65 6e 65 72 69 63 2f 74 63 6c 48 61 73 68 /generic/tclHash
0830: 2e 63 2c 76 0a 72 65 74 72 69 65 76 69 6e 67 20 .c,v.retrieving
0840: 72 65 76 69 73 69 6f 6e 20 31 2e 31 33 0a 64 69 revision 1.13.di
0850: 66 66 20 2d 75 20 2d 72 31 2e 31 33 20 74 63 6c ff -u -r1.13 tcl
0860: 48 61 73 68 2e 63 0a 2d 2d 2d 20 67 65 6e 65 72 Hash.c.--- gener
0870: 69 63 2f 74 63 6c 48 61 73 68 2e 63 09 32 34 20 ic/tclHash.c.24
0880: 4a 75 6e 20 32 30 30 33 20 31 39 3a 35 36 3a 31 Jun 2003 19:56:1
0890: 32 20 2d 30 30 30 30 09 31 2e 31 33 0a 2b 2b 2b 2 -0000.1.13.+++
08a0: 20 67 65 6e 65 72 69 63 2f 74 63 6c 48 61 73 68 generic/tclHash
08b0: 2e 63 09 31 34 20 4e 6f 76 20 32 30 30 33 20 32 .c.14 Nov 2003 2
08c0: 32 3a 32 36 3a 33 31 20 2d 30 30 30 30 0a 40 40 2:26:31 -0000.@@
08d0: 20 2d 31 34 2c 36 20 2b 31 34 2c 37 20 40 40 0a -14,6 +14,7 @@.
08e0: 20 20 2a 2f 0a 20 0a 20 23 69 6e 63 6c 75 64 65 */. . #include
08f0: 20 22 74 63 6c 49 6e 74 2e 68 22 0a 2b 23 69 6e "tclInt.h".+#in
0900: 63 6c 75 64 65 20 22 74 63 6c 50 6f 72 74 2e 68 clude "tclPort.h
0910: 22 0a 20 0a 20 2f 2a 0a 20 20 2a 20 50 72 65 76 ". . /*. * Prev
0920: 65 6e 74 20 6d 61 63 72 6f 73 20 66 72 6f 6d 20 ent macros from
0930: 63 6c 61 73 68 69 6e 67 20 77 69 74 68 20 66 75 clashing with fu
0940: 6e 63 74 69 6f 6e 20 64 65 66 69 6e 69 74 69 6f nction definitio
0950: 6e 73 2e 0a 40 40 20 2d 36 32 36 2c 38 20 2b 36 ns..@@ -626,8 +6
0960: 32 37 2c 31 32 20 40 40 0a 20 20 20 20 20 20 2a 27,12 @@. *
0970: 2f 0a 20 0a 20 20 20 20 20 69 66 20 28 74 61 62 /. . if (tab
0980: 6c 65 50 74 72 2d 3e 62 75 63 6b 65 74 73 20 21 lePtr->buckets !
0990: 3d 20 74 61 62 6c 65 50 74 72 2d 3e 73 74 61 74 = tablePtr->stat
09a0: 69 63 42 75 63 6b 65 74 73 29 20 7b 0a 2b 20 20 icBuckets) {.+
09b0: 20 20 20 20 20 20 69 66 20 28 74 79 70 65 50 74 if (typePt
09c0: 72 2d 3e 66 6c 61 67 73 20 26 20 54 43 4c 5f 48 r->flags & TCL_H
09d0: 41 53 48 5f 4b 45 59 5f 53 59 53 54 45 4d 5f 48 ASH_KEY_SYSTEM_H
09e0: 41 53 48 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c ASH) {.+. Tcl
09f0: 70 53 79 73 46 72 65 65 28 28 63 68 61 72 20 2a pSysFree((char *
0a00: 29 20 74 61 62 6c 65 50 74 72 2d 3e 62 75 63 6b ) tablePtr->buck
0a10: 65 74 73 29 3b 0a 2b 20 20 20 20 20 20 20 20 7d ets);.+ }
0a20: 20 65 6c 73 65 20 7b 0a 20 09 63 6b 66 72 65 65 else {. .ckfree
0a30: 28 28 63 68 61 72 20 2a 29 20 74 61 62 6c 65 50 ((char *) tableP
0a40: 74 72 2d 3e 62 75 63 6b 65 74 73 29 3b 0a 20 20 tr->buckets);.
0a50: 20 20 20 7d 0a 2b 20 20 20 20 7d 0a 20 0a 20 20 }.+ }. .
0a60: 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a 20 41 72 /*. * Ar
0a70: 72 61 6e 67 65 20 66 6f 72 20 70 61 6e 69 63 73 range for panics
0a80: 20 69 66 20 74 68 65 20 74 61 62 6c 65 20 69 73 if the table is
0a90: 20 75 73 65 64 20 61 67 61 69 6e 20 77 69 74 68 used again with
0aa0: 6f 75 74 0a 40 40 20 2d 37 34 35 2c 36 20 2b 37 out.@@ -745,6 +7
0ab0: 35 30 2c 32 36 20 40 40 0a 20 20 20 20 20 64 6f 50,26 @@. do
0ac0: 75 62 6c 65 20 61 76 65 72 61 67 65 2c 20 74 6d uble average, tm
0ad0: 70 3b 0a 20 20 20 20 20 72 65 67 69 73 74 65 72 p;. register
0ae0: 20 54 63 6c 5f 48 61 73 68 45 6e 74 72 79 20 2a Tcl_HashEntry *
0af0: 68 50 74 72 3b 0a 20 20 20 20 20 63 68 61 72 20 hPtr;. char
0b00: 2a 72 65 73 75 6c 74 2c 20 2a 70 3b 0a 2b 20 20 *result, *p;.+
0b10: 20 20 54 63 6c 5f 48 61 73 68 4b 65 79 54 79 70 Tcl_HashKeyTyp
0b20: 65 20 2a 74 79 70 65 50 74 72 3b 0a 2b 0a 2b 23 e *typePtr;.+.+#
0b30: 69 66 20 54 43 4c 5f 50 52 45 53 45 52 56 45 5f if TCL_PRESERVE_
0b40: 42 49 4e 41 52 59 5f 43 4f 4d 50 41 54 41 42 49 BINARY_COMPATABI
0b50: 4c 49 54 59 0a 2b 20 20 20 20 69 66 20 28 74 61 LITY.+ if (ta
0b60: 62 6c 65 50 74 72 2d 3e 6b 65 79 54 79 70 65 20 blePtr->keyType
0b70: 3d 3d 20 54 43 4c 5f 53 54 52 49 4e 47 5f 4b 45 == TCL_STRING_KE
0b80: 59 53 29 20 7b 0a 2b 09 74 79 70 65 50 74 72 20 YS) {.+.typePtr
0b90: 3d 20 26 74 63 6c 53 74 72 69 6e 67 48 61 73 68 = &tclStringHash
0ba0: 4b 65 79 54 79 70 65 3b 0a 2b 20 20 20 20 7d 20 KeyType;.+ }
0bb0: 65 6c 73 65 20 69 66 20 28 74 61 62 6c 65 50 74 else if (tablePt
0bc0: 72 2d 3e 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 r->keyType == TC
0bd0: 4c 5f 4f 4e 45 5f 57 4f 52 44 5f 4b 45 59 53 29 L_ONE_WORD_KEYS)
0be0: 20 7b 0a 2b 09 74 79 70 65 50 74 72 20 3d 20 26 {.+.typePtr = &
0bf0: 74 63 6c 4f 6e 65 57 6f 72 64 48 61 73 68 4b 65 tclOneWordHashKe
0c00: 79 54 79 70 65 3b 0a 2b 20 20 20 20 7d 20 65 6c yType;.+ } el
0c10: 73 65 20 69 66 20 28 74 61 62 6c 65 50 74 72 2d se if (tablePtr-
0c20: 3e 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 4c 5f >keyType == TCL_
0c30: 43 55 53 54 4f 4d 5f 54 59 50 45 5f 4b 45 59 53 CUSTOM_TYPE_KEYS
0c40: 0a 2b 09 20 20 20 20 20 20 20 7c 7c 20 74 61 62 .+. || tab
0c50: 6c 65 50 74 72 2d 3e 6b 65 79 54 79 70 65 20 3d lePtr->keyType =
0c60: 3d 20 54 43 4c 5f 43 55 53 54 4f 4d 5f 50 54 52 = TCL_CUSTOM_PTR
0c70: 5f 4b 45 59 53 29 20 7b 0a 2b 09 74 79 70 65 50 _KEYS) {.+.typeP
0c80: 74 72 20 3d 20 74 61 62 6c 65 50 74 72 2d 3e 74 tr = tablePtr->t
0c90: 79 70 65 50 74 72 3b 0a 2b 20 20 20 20 7d 20 65 ypePtr;.+ } e
0ca0: 6c 73 65 20 7b 0a 2b 09 74 79 70 65 50 74 72 20 lse {.+.typePtr
0cb0: 3d 20 26 74 63 6c 41 72 72 61 79 48 61 73 68 4b = &tclArrayHashK
0cc0: 65 79 54 79 70 65 3b 0a 2b 20 20 20 20 7d 0a 2b eyType;.+ }.+
0cd0: 23 65 6c 73 65 0a 2b 20 20 20 20 74 79 70 65 50 #else.+ typeP
0ce0: 74 72 20 3d 20 74 61 62 6c 65 50 74 72 2d 3e 74 tr = tablePtr->t
0cf0: 79 70 65 50 74 72 3b 0a 2b 20 20 20 20 69 66 20 ypePtr;.+ if
0d00: 28 74 79 70 65 50 74 72 20 3d 3d 20 4e 55 4c 4c (typePtr == NULL
0d10: 29 20 7b 0a 2b 09 54 63 6c 5f 50 61 6e 69 63 28 ) {.+.Tcl_Panic(
0d20: 22 63 61 6c 6c 65 64 20 54 63 6c 5f 48 61 73 68 "called Tcl_Hash
0d30: 53 74 61 74 73 20 6f 6e 20 64 65 6c 65 74 65 64 Stats on deleted
0d40: 20 74 61 62 6c 65 22 29 3b 0a 2b 09 72 65 74 75 table");.+.retu
0d50: 72 6e 20 4e 55 4c 4c 3b 0a 2b 20 20 20 20 7d 0a rn NULL;.+ }.
0d60: 2b 23 65 6e 64 69 66 0a 20 0a 20 20 20 20 20 2f +#endif. . /
0d70: 2a 0a 20 20 20 20 20 20 2a 20 43 6f 6d 70 75 74 *. * Comput
0d80: 65 20 61 20 68 69 73 74 6f 67 72 61 6d 20 6f 66 e a histogram of
0d90: 20 62 75 63 6b 65 74 20 75 73 61 67 65 2e 0a 40 bucket usage..@
0da0: 40 20 2d 37 37 34 2c 38 20 2b 37 39 39 2c 31 31 @ -774,8 +799,11
0db0: 20 40 40 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 @@. /*.
0dc0: 20 20 2a 20 50 72 69 6e 74 20 6f 75 74 20 74 68 * Print out th
0dd0: 65 20 68 69 73 74 6f 67 72 61 6d 20 61 6e 64 20 e histogram and
0de0: 61 20 66 65 77 20 6f 74 68 65 72 20 70 69 65 63 a few other piec
0df0: 65 73 20 6f 66 20 69 6e 66 6f 72 6d 61 74 69 6f es of informatio
0e00: 6e 2e 0a 20 20 20 20 20 20 2a 2f 0a 2d 0a 2b 20 n.. */.-.+
0e10: 20 20 20 69 66 20 28 74 79 70 65 50 74 72 2d 3e if (typePtr->
0e20: 66 6c 61 67 73 20 26 20 54 43 4c 5f 48 41 53 48 flags & TCL_HASH
0e30: 5f 4b 45 59 5f 53 59 53 54 45 4d 5f 48 41 53 48 _KEY_SYSTEM_HASH
0e40: 29 20 7b 0a 2b 20 20 20 20 20 20 20 20 72 65 73 ) {.+ res
0e50: 75 6c 74 20 3d 20 28 63 68 61 72 20 2a 29 20 54 ult = (char *) T
0e60: 63 6c 70 53 79 73 41 6c 6c 6f 63 28 28 75 6e 73 clpSysAlloc((uns
0e70: 69 67 6e 65 64 29 20 28 28 4e 55 4d 5f 43 4f 55 igned) ((NUM_COU
0e80: 4e 54 45 52 53 2a 36 30 29 20 2b 20 33 30 30 29 NTERS*60) + 300)
0e90: 2c 20 30 29 3b 0a 2b 20 20 20 20 7d 20 65 6c 73 , 0);.+ } els
0ea0: 65 20 7b 0a 20 20 20 20 20 72 65 73 75 6c 74 20 e {. result
0eb0: 3d 20 28 63 68 61 72 20 2a 29 20 63 6b 61 6c 6c = (char *) ckall
0ec0: 6f 63 28 28 75 6e 73 69 67 6e 65 64 29 20 28 28 oc((unsigned) ((
0ed0: 4e 55 4d 5f 43 4f 55 4e 54 45 52 53 2a 36 30 29 NUM_COUNTERS*60)
0ee0: 20 2b 20 33 30 30 29 29 3b 0a 2b 20 20 20 20 7d + 300));.+ }
0ef0: 0a 20 20 20 20 20 73 70 72 69 6e 74 66 28 72 65 . sprintf(re
0f00: 73 75 6c 74 2c 20 22 25 64 20 65 6e 74 72 69 65 sult, "%d entrie
0f10: 73 20 69 6e 20 74 61 62 6c 65 2c 20 25 64 20 62 s in table, %d b
0f20: 75 63 6b 65 74 73 5c 6e 22 2c 0a 20 09 20 20 20 uckets\n",. .
0f30: 20 74 61 62 6c 65 50 74 72 2d 3e 6e 75 6d 45 6e tablePtr->numEn
0f40: 74 72 69 65 73 2c 20 74 61 62 6c 65 50 74 72 2d tries, tablePtr-
0f50: 3e 6e 75 6d 42 75 63 6b 65 74 73 29 3b 0a 20 20 >numBuckets);.
0f60: 20 20 20 70 20 3d 20 72 65 73 75 6c 74 20 2b 20 p = result +
0f70: 73 74 72 6c 65 6e 28 72 65 73 75 6c 74 29 3b 0a strlen(result);.
0f80: 40 40 20 2d 31 31 32 32 2c 36 20 2b 31 31 35 30 @@ -1122,6 +1150
0f90: 2c 32 31 20 40 40 0a 20 20 20 20 20 54 63 6c 5f ,21 @@. Tcl_
0fa0: 48 61 73 68 4b 65 79 54 79 70 65 20 2a 74 79 70 HashKeyType *typ
0fb0: 65 50 74 72 3b 0a 20 20 20 20 20 56 4f 49 44 20 ePtr;. VOID
0fc0: 2a 6b 65 79 3b 0a 20 0a 2b 23 69 66 20 54 43 4c *key;. .+#if TCL
0fd0: 5f 50 52 45 53 45 52 56 45 5f 42 49 4e 41 52 59 _PRESERVE_BINARY
0fe0: 5f 43 4f 4d 50 41 54 41 42 49 4c 49 54 59 0a 2b _COMPATABILITY.+
0ff0: 20 20 20 20 69 66 20 28 74 61 62 6c 65 50 74 72 if (tablePtr
1000: 2d 3e 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 4c ->keyType == TCL
1010: 5f 53 54 52 49 4e 47 5f 4b 45 59 53 29 20 7b 0a _STRING_KEYS) {.
1020: 2b 09 74 79 70 65 50 74 72 20 3d 20 26 74 63 6c +.typePtr = &tcl
1030: 53 74 72 69 6e 67 48 61 73 68 4b 65 79 54 79 70 StringHashKeyTyp
1040: 65 3b 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 69 e;.+ } else i
1050: 66 20 28 74 61 62 6c 65 50 74 72 2d 3e 6b 65 79 f (tablePtr->key
1060: 54 79 70 65 20 3d 3d 20 54 43 4c 5f 4f 4e 45 5f Type == TCL_ONE_
1070: 57 4f 52 44 5f 4b 45 59 53 29 20 7b 0a 2b 09 74 WORD_KEYS) {.+.t
1080: 79 70 65 50 74 72 20 3d 20 26 74 63 6c 4f 6e 65 ypePtr = &tclOne
1090: 57 6f 72 64 48 61 73 68 4b 65 79 54 79 70 65 3b WordHashKeyType;
10a0: 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 69 66 20 .+ } else if
10b0: 28 74 61 62 6c 65 50 74 72 2d 3e 6b 65 79 54 79 (tablePtr->keyTy
10c0: 70 65 20 3d 3d 20 54 43 4c 5f 43 55 53 54 4f 4d pe == TCL_CUSTOM
10d0: 5f 54 59 50 45 5f 4b 45 59 53 0a 2b 09 20 20 20 _TYPE_KEYS.+.
10e0: 20 20 20 20 7c 7c 20 74 61 62 6c 65 50 74 72 2d || tablePtr-
10f0: 3e 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 4c 5f >keyType == TCL_
1100: 43 55 53 54 4f 4d 5f 50 54 52 5f 4b 45 59 53 29 CUSTOM_PTR_KEYS)
1110: 20 7b 0a 2b 09 74 79 70 65 50 74 72 20 3d 20 74 {.+.typePtr = t
1120: 61 62 6c 65 50 74 72 2d 3e 74 79 70 65 50 74 72 ablePtr->typePtr
1130: 3b 0a 2b 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ;.+ } else {.
1140: 2b 09 74 79 70 65 50 74 72 20 3d 20 26 74 63 6c +.typePtr = &tcl
1150: 41 72 72 61 79 48 61 73 68 4b 65 79 54 79 70 65 ArrayHashKeyType
1160: 3b 0a 2b 20 20 20 20 7d 0a 2b 23 65 6c 73 65 0a ;.+ }.+#else.
1170: 2b 20 20 20 20 74 79 70 65 50 74 72 20 3d 20 74 + typePtr = t
1180: 61 62 6c 65 50 74 72 2d 3e 74 79 70 65 50 74 72 ablePtr->typePtr
1190: 3b 0a 2b 23 65 6e 64 69 66 0a 2b 0a 20 20 20 20 ;.+#endif.+.
11a0: 20 6f 6c 64 53 69 7a 65 20 3d 20 74 61 62 6c 65 oldSize = table
11b0: 50 74 72 2d 3e 6e 75 6d 42 75 63 6b 65 74 73 3b Ptr->numBuckets;
11c0: 0a 20 20 20 20 20 6f 6c 64 42 75 63 6b 65 74 73 . oldBuckets
11d0: 20 3d 20 74 61 62 6c 65 50 74 72 2d 3e 62 75 63 = tablePtr->buc
11e0: 6b 65 74 73 3b 0a 20 0a 40 40 20 2d 31 31 33 31 kets;. .@@ -1131
11f0: 2c 38 20 2b 31 31 37 34 2c 31 33 20 40 40 0a 20 ,8 +1174,13 @@.
1200: 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 74 */. . t
1210: 61 62 6c 65 50 74 72 2d 3e 6e 75 6d 42 75 63 6b ablePtr->numBuck
1220: 65 74 73 20 2a 3d 20 34 3b 0a 2b 20 20 20 20 69 ets *= 4;.+ i
1230: 66 20 28 74 79 70 65 50 74 72 2d 3e 66 6c 61 67 f (typePtr->flag
1240: 73 20 26 20 54 43 4c 5f 48 41 53 48 5f 4b 45 59 s & TCL_HASH_KEY
1250: 5f 53 59 53 54 45 4d 5f 48 41 53 48 29 20 7b 0a _SYSTEM_HASH) {.
1260: 2b 20 20 20 20 20 20 20 20 74 61 62 6c 65 50 74 + tablePt
1270: 72 2d 3e 62 75 63 6b 65 74 73 20 3d 20 28 54 63 r->buckets = (Tc
1280: 6c 5f 48 61 73 68 45 6e 74 72 79 20 2a 2a 29 20 l_HashEntry **)
1290: 54 63 6c 70 53 79 73 41 6c 6c 6f 63 28 28 75 6e TclpSysAlloc((un
12a0: 73 69 67 6e 65 64 29 0a 2b 20 20 20 20 09 20 20 signed).+ .
12b0: 20 20 20 20 20 20 28 74 61 62 6c 65 50 74 72 2d (tablePtr-
12c0: 3e 6e 75 6d 42 75 63 6b 65 74 73 20 2a 20 73 69 >numBuckets * si
12d0: 7a 65 6f 66 28 54 63 6c 5f 48 61 73 68 45 6e 74 zeof(Tcl_HashEnt
12e0: 72 79 20 2a 29 29 2c 20 30 29 3b 0a 2b 20 20 20 ry *)), 0);.+
12f0: 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20 20 74 } else {. t
1300: 61 62 6c 65 50 74 72 2d 3e 62 75 63 6b 65 74 73 ablePtr->buckets
1310: 20 3d 20 28 54 63 6c 5f 48 61 73 68 45 6e 74 72 = (Tcl_HashEntr
1320: 79 20 2a 2a 29 20 63 6b 61 6c 6c 6f 63 28 28 75 y **) ckalloc((u
1330: 6e 73 69 67 6e 65 64 29 0a 20 09 20 20 20 20 28 nsigned). . (
1340: 74 61 62 6c 65 50 74 72 2d 3e 6e 75 6d 42 75 63 tablePtr->numBuc
1350: 6b 65 74 73 20 2a 20 73 69 7a 65 6f 66 28 54 63 kets * sizeof(Tc
1360: 6c 5f 48 61 73 68 45 6e 74 72 79 20 2a 29 29 29 l_HashEntry *)))
1370: 3b 0a 2b 20 20 20 20 7d 0a 20 20 20 20 20 66 6f ;.+ }. fo
1380: 72 20 28 63 6f 75 6e 74 20 3d 20 74 61 62 6c 65 r (count = table
1390: 50 74 72 2d 3e 6e 75 6d 42 75 63 6b 65 74 73 2c Ptr->numBuckets,
13a0: 20 6e 65 77 43 68 61 69 6e 50 74 72 20 3d 20 74 newChainPtr = t
13b0: 61 62 6c 65 50 74 72 2d 3e 62 75 63 6b 65 74 73 ablePtr->buckets
13c0: 3b 0a 20 09 20 20 20 20 63 6f 75 6e 74 20 3e 20 ;. . count >
13d0: 30 3b 20 63 6f 75 6e 74 2d 2d 2c 20 6e 65 77 43 0; count--, newC
13e0: 68 61 69 6e 50 74 72 2b 2b 29 20 7b 0a 20 09 2a hainPtr++) {. .*
13f0: 6e 65 77 43 68 61 69 6e 50 74 72 20 3d 20 4e 55 newChainPtr = NU
1400: 4c 4c 3b 0a 40 40 20 2d 31 31 34 31 2c 32 31 20 LL;.@@ -1141,21
1410: 2b 31 31 38 39 2c 36 20 40 40 0a 20 20 20 20 20 +1189,6 @@.
1420: 74 61 62 6c 65 50 74 72 2d 3e 64 6f 77 6e 53 68 tablePtr->downSh
1430: 69 66 74 20 2d 3d 20 32 3b 0a 20 20 20 20 20 74 ift -= 2;. t
1440: 61 62 6c 65 50 74 72 2d 3e 6d 61 73 6b 20 3d 20 ablePtr->mask =
1450: 28 74 61 62 6c 65 50 74 72 2d 3e 6d 61 73 6b 20 (tablePtr->mask
1460: 3c 3c 20 32 29 20 2b 20 33 3b 0a 20 0a 2d 23 69 << 2) + 3;. .-#i
1470: 66 20 54 43 4c 5f 50 52 45 53 45 52 56 45 5f 42 f TCL_PRESERVE_B
1480: 49 4e 41 52 59 5f 43 4f 4d 50 41 54 41 42 49 4c INARY_COMPATABIL
1490: 49 54 59 0a 2d 20 20 20 20 69 66 20 28 74 61 62 ITY.- if (tab
14a0: 6c 65 50 74 72 2d 3e 6b 65 79 54 79 70 65 20 3d lePtr->keyType =
14b0: 3d 20 54 43 4c 5f 53 54 52 49 4e 47 5f 4b 45 59 = TCL_STRING_KEY
14c0: 53 29 20 7b 0a 2d 09 74 79 70 65 50 74 72 20 3d S) {.-.typePtr =
14d0: 20 26 74 63 6c 53 74 72 69 6e 67 48 61 73 68 4b &tclStringHashK
14e0: 65 79 54 79 70 65 3b 0a 2d 20 20 20 20 7d 20 65 eyType;.- } e
14f0: 6c 73 65 20 69 66 20 28 74 61 62 6c 65 50 74 72 lse if (tablePtr
1500: 2d 3e 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 4c ->keyType == TCL
1510: 5f 4f 4e 45 5f 57 4f 52 44 5f 4b 45 59 53 29 20 _ONE_WORD_KEYS)
1520: 7b 0a 2d 09 74 79 70 65 50 74 72 20 3d 20 26 74 {.-.typePtr = &t
1530: 63 6c 4f 6e 65 57 6f 72 64 48 61 73 68 4b 65 79 clOneWordHashKey
1540: 54 79 70 65 3b 0a 2d 20 20 20 20 7d 20 65 6c 73 Type;.- } els
1550: 65 20 69 66 20 28 74 61 62 6c 65 50 74 72 2d 3e e if (tablePtr->
1560: 6b 65 79 54 79 70 65 20 3d 3d 20 54 43 4c 5f 43 keyType == TCL_C
1570: 55 53 54 4f 4d 5f 54 59 50 45 5f 4b 45 59 53 0a USTOM_TYPE_KEYS.
1580: 2d 09 20 20 20 20 20 20 20 7c 7c 20 74 61 62 6c -. || tabl
1590: 65 50 74 72 2d 3e 6b 65 79 54 79 70 65 20 3d 3d ePtr->keyType ==
15a0: 20 54 43 4c 5f 43 55 53 54 4f 4d 5f 50 54 52 5f TCL_CUSTOM_PTR_
15b0: 4b 45 59 53 29 20 7b 0a 2d 09 74 79 70 65 50 74 KEYS) {.-.typePt
15c0: 72 20 3d 20 74 61 62 6c 65 50 74 72 2d 3e 74 79 r = tablePtr->ty
15d0: 70 65 50 74 72 3b 0a 2d 20 20 20 20 7d 20 65 6c pePtr;.- } el
15e0: 73 65 20 7b 0a 2d 09 74 79 70 65 50 74 72 20 3d se {.-.typePtr =
15f0: 20 26 74 63 6c 41 72 72 61 79 48 61 73 68 4b 65 &tclArrayHashKe
1600: 79 54 79 70 65 3b 0a 2d 20 20 20 20 7d 0a 2d 23 yType;.- }.-#
1610: 65 6c 73 65 0a 2d 20 20 20 20 74 79 70 65 50 74 else.- typePt
1620: 72 20 3d 20 74 61 62 6c 65 50 74 72 2d 3e 74 79 r = tablePtr->ty
1630: 70 65 50 74 72 3b 0a 2d 23 65 6e 64 69 66 0a 2d pePtr;.-#endif.-
1640: 0a 20 20 20 20 20 2f 2a 0a 20 20 20 20 20 20 2a . /*. *
1650: 20 52 65 68 61 73 68 20 61 6c 6c 20 6f 66 20 74 Rehash all of t
1660: 68 65 20 65 78 69 73 74 69 6e 67 20 65 6e 74 72 he existing entr
1670: 69 65 73 20 69 6e 74 6f 20 74 68 65 20 6e 65 77 ies into the new
1680: 20 62 75 63 6b 65 74 20 61 72 72 61 79 2e 0a 20 bucket array..
1690: 20 20 20 20 20 2a 2f 0a 40 40 20 2d 31 32 30 30 */.@@ -1200
16a0: 2c 36 20 2b 31 32 33 33 2c 31 30 20 40 40 0a 20 ,6 +1233,10 @@.
16b0: 20 20 20 20 20 2a 2f 0a 20 0a 20 20 20 20 20 69 */. . i
16c0: 66 20 28 6f 6c 64 42 75 63 6b 65 74 73 20 21 3d f (oldBuckets !=
16d0: 20 74 61 62 6c 65 50 74 72 2d 3e 73 74 61 74 69 tablePtr->stati
16e0: 63 42 75 63 6b 65 74 73 29 20 7b 0a 2b 20 20 20 cBuckets) {.+
16f0: 20 20 20 20 20 69 66 20 28 74 79 70 65 50 74 72 if (typePtr
1700: 2d 3e 66 6c 61 67 73 20 26 20 54 43 4c 5f 48 41 ->flags & TCL_HA
1710: 53 48 5f 4b 45 59 5f 53 59 53 54 45 4d 5f 48 41 SH_KEY_SYSTEM_HA
1720: 53 48 29 20 7b 0a 2b 09 20 20 20 20 54 63 6c 70 SH) {.+. Tclp
1730: 53 79 73 46 72 65 65 28 28 63 68 61 72 20 2a 29 SysFree((char *)
1740: 20 6f 6c 64 42 75 63 6b 65 74 73 29 3b 0a 2b 20 oldBuckets);.+
1750: 20 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a } else {.
1760: 20 09 63 6b 66 72 65 65 28 28 63 68 61 72 20 2a .ckfree((char *
1770: 29 20 6f 6c 64 42 75 63 6b 65 74 73 29 3b 0a 2b ) oldBuckets);.+
1780: 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 7d }. }
1790: 0a 20 7d 0a 49 6e 64 65 78 3a 20 75 6e 69 78 2f . }.Index: unix/
17a0: 74 63 6c 55 6e 69 78 50 6f 72 74 2e 68 0a 3d 3d tclUnixPort.h.==
17b0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
17c0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
17d0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
17e0: 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ================
17f0: 3d 0a 52 43 53 20 66 69 6c 65 3a 20 2f 63 76 73 =.RCS file: /cvs
1800: 72 6f 6f 74 2f 74 63 6c 2f 74 63 6c 2f 75 6e 69 root/tcl/tcl/uni
1810: 78 2f 74 63 6c 55 6e 69 78 50 6f 72 74 2e 68 2c x/tclUnixPort.h,
1820: 76 0a 72 65 74 72 69 65 76 69 6e 67 20 72 65 76 v.retrieving rev
1830: 69 73 69 6f 6e 20 31 2e 33 30 0a 64 69 66 66 20 ision 1.30.diff
1840: 2d 75 20 2d 72 31 2e 33 30 20 74 63 6c 55 6e 69 -u -r1.30 tclUni
1850: 78 50 6f 72 74 2e 68 0a 2d 2d 2d 20 75 6e 69 78 xPort.h.--- unix
1860: 2f 74 63 6c 55 6e 69 78 50 6f 72 74 2e 68 09 31 /tclUnixPort.h.1
1870: 31 20 4e 6f 76 20 32 30 30 33 20 30 38 3a 32 34 1 Nov 2003 08:24
1880: 3a 35 35 20 2d 30 30 30 30 09 31 2e 33 30 0a 2b :55 -0000.1.30.+
1890: 2b 2b 20 75 6e 69 78 2f 74 63 6c 55 6e 69 78 50 ++ unix/tclUnixP
18a0: 6f 72 74 2e 68 09 31 34 20 4e 6f 76 20 32 30 30 ort.h.14 Nov 200
18b0: 33 20 32 32 3a 32 36 3a 33 31 20 2d 30 30 30 30 3 22:26:31 -0000
18c0: 0a 40 40 20 2d 35 33 32 2c 31 35 20 2b 35 33 32 .@@ -532,15 +532
18d0: 2c 31 32 20 40 40 0a 20 23 64 65 66 69 6e 65 20 ,12 @@. #define
18e0: 54 63 6c 70 52 65 6c 65 61 73 65 46 69 6c 65 28 TclpReleaseFile(
18f0: 66 69 6c 65 29 09 2f 2a 20 4e 6f 74 68 69 6e 67 file)./* Nothing
1900: 2e 20 2a 2f 0a 20 0a 20 2f 2a 0a 2d 20 2a 20 54 . */. . /*.- * T
1910: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 65 66 he following def
1920: 69 6e 65 73 20 77 72 61 70 20 74 68 65 20 73 79 ines wrap the sy
1930: 73 74 65 6d 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f stem memory allo
1940: 63 61 74 69 6f 6e 20 72 6f 75 74 69 6e 65 73 20 cation routines
1950: 66 6f 72 0a 2d 20 2a 20 75 73 65 20 62 79 20 74 for.- * use by t
1960: 63 6c 41 6c 6c 6f 63 2e 63 2e 20 20 42 79 20 64 clAlloc.c. By d
1970: 65 66 61 75 6c 74 20 6f 66 66 20 75 6e 75 73 65 efault off unuse
1980: 64 20 6f 6e 20 55 6e 69 78 2e 0a 2b 20 2a 20 54 d on Unix..+ * T
1990: 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 20 64 65 66 he following def
19a0: 69 6e 65 73 20 77 72 61 70 20 74 68 65 20 73 79 ines wrap the sy
19b0: 73 74 65 6d 20 6d 65 6d 6f 72 79 20 61 6c 6c 6f stem memory allo
19c0: 63 61 74 69 6f 6e 20 72 6f 75 74 69 6e 65 73 2e cation routines.
19d0: 0a 20 20 2a 2f 0a 20 0a 2d 23 69 66 20 55 53 45 . */. .-#if USE
19e0: 5f 54 43 4c 41 4c 4c 4f 43 0a 2d 23 20 20 20 64 _TCLALLOC.-# d
19f0: 65 66 69 6e 65 20 54 63 6c 70 53 79 73 41 6c 6c efine TclpSysAll
1a00: 6f 63 28 73 69 7a 65 2c 20 69 73 42 69 6e 29 09 oc(size, isBin).
1a10: 6d 61 6c 6c 6f 63 28 28 73 69 7a 65 5f 74 29 73 malloc((size_t)s
1a20: 69 7a 65 29 0a 2d 23 20 20 20 64 65 66 69 6e 65 ize).-# define
1a30: 20 54 63 6c 70 53 79 73 46 72 65 65 28 70 74 72 TclpSysFree(ptr
1a40: 29 09 09 66 72 65 65 28 28 63 68 61 72 2a 29 70 )..free((char*)p
1a50: 74 72 29 0a 2d 23 20 20 20 64 65 66 69 6e 65 20 tr).-# define
1a60: 54 63 6c 70 53 79 73 52 65 61 6c 6c 6f 63 28 70 TclpSysRealloc(p
1a70: 74 72 2c 20 73 69 7a 65 29 09 72 65 61 6c 6c 6f tr, size).reallo
1a80: 63 28 28 63 68 61 72 2a 29 70 74 72 2c 20 28 73 c((char*)ptr, (s
1a90: 69 7a 65 5f 74 29 73 69 7a 65 29 0a 2d 23 65 6e ize_t)size).-#en
1aa0: 64 69 66 0a 2b 23 64 65 66 69 6e 65 20 54 63 6c dif.+#define Tcl
1ab0: 70 53 79 73 41 6c 6c 6f 63 28 73 69 7a 65 2c 20 pSysAlloc(size,
1ac0: 69 73 42 69 6e 29 09 6d 61 6c 6c 6f 63 28 28 73 isBin).malloc((s
1ad0: 69 7a 65 5f 74 29 73 69 7a 65 29 0a 2b 23 64 65 ize_t)size).+#de
1ae0: 66 69 6e 65 20 54 63 6c 70 53 79 73 46 72 65 65 fine TclpSysFree
1af0: 28 70 74 72 29 09 09 66 72 65 65 28 28 63 68 61 (ptr)..free((cha
1b00: 72 2a 29 70 74 72 29 0a 2b 23 64 65 66 69 6e 65 r*)ptr).+#define
1b10: 20 54 63 6c 70 53 79 73 52 65 61 6c 6c 6f 63 28 TclpSysRealloc(
1b20: 70 74 72 2c 20 73 69 7a 65 29 09 72 65 61 6c 6c ptr, size).reall
1b30: 6f 63 28 28 63 68 61 72 2a 29 70 74 72 2c 20 28 oc((char*)ptr, (
1b40: 73 69 7a 65 5f 74 29 73 69 7a 65 29 0a 20 0a 20 size_t)size). .
1b50: 2f 2a 0a 20 20 2a 20 54 68 65 20 66 6f 6c 6c 6f /*. * The follo
1b60: 77 69 6e 67 20 6d 61 63 72 6f 73 20 61 6e 64 20 wing macros and
1b70: 64 65 63 6c 61 72 61 74 69 6f 6e 20 77 72 61 70 declaration wrap
1b80: 20 74 68 65 20 43 20 72 75 6e 74 69 6d 65 20 6c the C runtime l
1b90: 69 62 72 61 72 79 0a ibrary.
