home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: SHell self-extracting ARchive
(archive/shar).
You can browse this item here: 3487
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| SHell self-extracting ARchive (archive/shar)
| magic
| Supported |
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| ASCII text
| default
| |
| 100%
| checkBytes
| Printable ASCII
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| fmt/329 Shell Archive Format
| default
| |
| 100%
| detectItEasy
| Format: plain text[LF]
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 61 6c 74 2e |Newsgrou|ps: alt.|
|00000010| 73 6f 75 72 63 65 73 0a | 46 72 6f 6d 3a 20 63 68 |sources.|From: ch|
|00000020| 72 69 73 74 6f 73 40 74 | 68 65 6f 72 79 2e 54 43 |ristos@t|heory.TC|
|00000030| 2e 43 6f 72 6e 65 6c 6c | 2e 45 44 55 20 28 43 68 |.Cornell|.EDU (Ch|
|00000040| 72 69 73 74 6f 73 20 53 | 2e 20 5a 6f 75 6c 61 73 |ristos S|. Zoulas|
|00000050| 29 0a 53 75 62 6a 65 63 | 74 3a 20 59 41 44 4d 20 |).Subjec|t: YADM |
|00000060| 5b 59 65 74 20 41 6e 6f | 74 68 65 72 20 4d 61 6c |[Yet Ano|ther Mal|
|00000070| 6c 6f 63 20 44 65 62 75 | 67 5d 0a 4d 65 73 73 61 |loc Debu|g].Messa|
|00000080| 67 65 2d 49 44 3a 20 3c | 31 39 39 31 4a 75 6e 31 |ge-ID: <|1991Jun1|
|00000090| 34 2e 31 37 33 39 31 36 | 2e 32 33 39 35 31 40 62 |4.173916|.23951@b|
|000000a0| 61 74 63 6f 6d 70 75 74 | 65 72 2e 74 6e 2e 63 6f |atcomput|er.tn.co|
|000000b0| 72 6e 65 6c 6c 2e 65 64 | 75 3e 0a 44 61 74 65 3a |rnell.ed|u>.Date:|
|000000c0| 20 46 72 69 2c 20 31 34 | 20 4a 75 6e 20 31 39 39 | Fri, 14| Jun 199|
|000000d0| 31 20 31 37 3a 33 39 3a | 31 36 20 47 4d 54 0a 0a |1 17:39:|16 GMT..|
|000000e0| 0a 48 65 6c 6c 6f 2c 0a | 0a 53 69 6e 63 65 20 6c |.Hello,.|.Since l|
|000000f0| 6f 74 73 20 6f 66 20 70 | 65 6f 70 6c 65 20 68 61 |ots of p|eople ha|
|00000100| 76 65 20 62 65 65 6e 20 | 61 73 6b 69 6e 67 20 66 |ve been |asking f|
|00000110| 6f 72 20 74 68 69 73 20 | 6b 69 6e 64 20 6f 66 20 |or this |kind of |
|00000120| 6c 69 62 72 61 72 79 20 | 6c 61 74 65 6c 79 2c 0a |library |lately,.|
|00000130| 68 65 72 65 27 73 20 6d | 79 20 73 68 6f 74 20 61 |here's m|y shot a|
|00000140| 74 20 69 74 2e 20 49 20 | 64 6f 6e 27 74 20 63 6c |t it. I |don't cl|
|00000150| 61 69 6d 20 69 74 20 69 | 73 20 62 65 74 74 65 72 |aim it i|s better|
|00000160| 20 74 68 61 6e 20 61 6e | 79 20 6f 66 20 74 68 65 | than an|y of the|
|00000170| 20 6f 74 68 65 72 73 2c | 0a 62 75 74 20 69 74 20 | others,|.but it |
|00000180| 69 73 20 74 68 65 20 6f | 6e 65 20 74 68 61 74 20 |is the o|ne that |
|00000190| 49 20 68 61 76 65 20 62 | 65 65 6e 20 75 73 69 6e |I have b|een usin|
|000001a0| 67 20 66 6f 72 20 61 20 | 6c 6f 6e 67 20 77 68 69 |g for a |long whi|
|000001b0| 6c 65 2c 20 61 6e 64 20 | 69 74 20 77 6f 72 6b 73 |le, and |it works|
|000001c0| 0a 76 65 72 79 20 77 65 | 6c 6c 20 66 6f 72 20 6d |.very we|ll for m|
|000001d0| 65 2e 20 49 20 68 6f 70 | 65 20 69 74 20 70 72 6f |e. I hop|e it pro|
|000001e0| 76 65 73 20 75 73 65 66 | 75 6c 20 74 6f 20 79 6f |ves usef|ul to yo|
|000001f0| 75 20 74 6f 6f 2e 0a 0a | 0a 63 68 72 69 73 74 6f |u too...|.christo|
|00000200| 73 0a 0a 23 21 20 2f 62 | 69 6e 2f 73 68 0a 23 20 |s..#! /b|in/sh.# |
|00000210| 54 68 69 73 20 69 73 20 | 61 20 73 68 65 6c 6c 20 |This is |a shell |
|00000220| 61 72 63 68 69 76 65 2e | 20 20 52 65 6d 6f 76 65 |archive.| Remove|
|00000230| 20 61 6e 79 74 68 69 6e | 67 20 62 65 66 6f 72 65 | anythin|g before|
|00000240| 20 74 68 69 73 20 6c 69 | 6e 65 2c 20 74 68 65 6e | this li|ne, then|
|00000250| 20 75 6e 70 61 63 6b 0a | 23 20 69 74 20 62 79 20 | unpack.|# it by |
|00000260| 73 61 76 69 6e 67 20 69 | 74 20 69 6e 74 6f 20 61 |saving i|t into a|
|00000270| 20 66 69 6c 65 20 61 6e | 64 20 74 79 70 69 6e 67 | file an|d typing|
|00000280| 20 22 73 68 20 66 69 6c | 65 22 2e 20 20 54 6f 20 | "sh fil|e". To |
|00000290| 6f 76 65 72 77 72 69 74 | 65 20 65 78 69 73 74 69 |overwrit|e existi|
|000002a0| 6e 67 0a 23 20 66 69 6c | 65 73 2c 20 74 79 70 65 |ng.# fil|es, type|
|000002b0| 20 22 73 68 20 66 69 6c | 65 20 2d 63 22 2e 20 20 | "sh fil|e -c". |
|000002c0| 59 6f 75 20 63 61 6e 20 | 61 6c 73 6f 20 66 65 65 |You can |also fee|
|000002d0| 64 20 74 68 69 73 20 61 | 73 20 73 74 61 6e 64 61 |d this a|s standa|
|000002e0| 72 64 20 69 6e 70 75 74 | 20 76 69 61 0a 23 20 75 |rd input| via.# u|
|000002f0| 6e 73 68 61 72 2c 20 6f | 72 20 62 79 20 74 79 70 |nshar, o|r by typ|
|00000300| 69 6e 67 20 22 73 68 20 | 3c 66 69 6c 65 22 2c 20 |ing "sh |<file", |
|00000310| 65 2e 67 2e 2e 20 20 49 | 66 20 74 68 69 73 20 61 |e.g.. I|f this a|
|00000320| 72 63 68 69 76 65 20 69 | 73 20 63 6f 6d 70 6c 65 |rchive i|s comple|
|00000330| 74 65 2c 20 79 6f 75 0a | 23 20 77 69 6c 6c 20 73 |te, you.|# will s|
|00000340| 65 65 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |ee the f|ollowing|
|00000350| 20 6d 65 73 73 61 67 65 | 20 61 74 20 74 68 65 20 | message| at the |
|00000360| 65 6e 64 3a 0a 23 09 09 | 22 45 6e 64 20 6f 66 20 |end:.#..|"End of |
|00000370| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 22 0a |shell ar|chive.".|
|00000380| 23 20 43 6f 6e 74 65 6e | 74 73 3a 20 20 4d 61 6b |# Conten|ts: Mak|
|00000390| 65 66 69 6c 65 20 52 45 | 41 44 4d 45 20 64 65 62 |efile RE|ADME deb|
|000003a0| 75 67 61 6c 6c 6f 63 2e | 63 20 6d 61 6c 6c 6f 63 |ugalloc.|c malloc|
|000003b0| 2e 68 20 74 73 74 2e 63 | 0a 23 20 57 72 61 70 70 |.h tst.c|.# Wrapp|
|000003c0| 65 64 20 62 79 20 63 68 | 72 69 73 74 6f 73 40 67 |ed by ch|ristos@g|
|000003d0| 75 69 6c 6c 65 6d 69 6e | 20 6f 6e 20 46 72 69 20 |uillemin| on Fri |
|000003e0| 4a 75 6e 20 31 34 20 31 | 33 3a 33 35 3a 34 34 20 |Jun 14 1|3:35:44 |
|000003f0| 31 39 39 31 0a 50 41 54 | 48 3d 2f 62 69 6e 3a 2f |1991.PAT|H=/bin:/|
|00000400| 75 73 72 2f 62 69 6e 3a | 2f 75 73 72 2f 75 63 62 |usr/bin:|/usr/ucb|
|00000410| 20 3b 20 65 78 70 6f 72 | 74 20 50 41 54 48 0a 69 | ; expor|t PATH.i|
|00000420| 66 20 74 65 73 74 20 2d | 66 20 27 4d 61 6b 65 66 |f test -|f 'Makef|
|00000430| 69 6c 65 27 20 2d 61 20 | 22 24 7b 31 7d 22 20 21 |ile' -a |"${1}" !|
|00000440| 3d 20 22 2d 63 22 20 3b | 20 74 68 65 6e 20 0a 20 |= "-c" ;| then . |
|00000450| 20 65 63 68 6f 20 73 68 | 61 72 3a 20 57 69 6c 6c | echo sh|ar: Will|
|00000460| 20 6e 6f 74 20 63 6c 6f | 62 62 65 72 20 65 78 69 | not clo|bber exi|
|00000470| 73 74 69 6e 67 20 66 69 | 6c 65 20 5c 22 27 4d 61 |sting fi|le \"'Ma|
|00000480| 6b 65 66 69 6c 65 27 5c | 22 0a 65 6c 73 65 0a 65 |kefile'\|".else.e|
|00000490| 63 68 6f 20 73 68 61 72 | 3a 20 45 78 74 72 61 63 |cho shar|: Extrac|
|000004a0| 74 69 6e 67 20 5c 22 27 | 4d 61 6b 65 66 69 6c 65 |ting \"'|Makefile|
|000004b0| 27 5c 22 20 5c 28 31 33 | 32 20 63 68 61 72 61 63 |'\" \(13|2 charac|
|000004c0| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|000004d0| 2f 2f 22 20 3e 27 4d 61 | 6b 65 66 69 6c 65 27 20 |//" >'Ma|kefile' |
|000004e0| 3c 3c 27 45 4e 44 5f 4f | 46 5f 46 49 4c 45 27 0a |<<'END_O|F_FILE'.|
|000004f0| 58 23 0a 58 53 48 45 4c | 4c 09 3d 20 2f 62 69 6e |X#.XSHEL|L.= /bin|
|00000500| 2f 73 68 0a 58 43 46 4c | 41 47 53 09 3d 20 2d 4f |/sh.XCFL|AGS.= -O|
|00000510| 20 2d 44 44 45 42 55 47 | 0a 58 0a 58 74 73 74 3a | -DDEBUG|.X.Xtst:|
|00000520| 20 74 73 74 2e 6f 20 64 | 65 62 75 67 61 6c 6c 6f | tst.o d|ebugallo|
|00000530| 63 2e 6f 0a 58 09 63 63 | 20 24 7b 43 46 4c 41 47 |c.o.X.cc| ${CFLAG|
|00000540| 53 7d 20 74 73 74 2e 6f | 20 64 65 62 75 67 61 6c |S} tst.o| debugal|
|00000550| 6c 6f 63 2e 6f 20 2d 6f | 20 74 73 74 0a 58 0a 58 |loc.o -o| tst.X.X|
|00000560| 63 6c 65 61 6e 3a 0a 58 | 09 72 6d 20 2d 66 20 2a |clean:.X|.rm -f *|
|00000570| 2e 6f 20 74 73 74 20 2a | 2e 62 61 6b 0a 45 4e 44 |.o tst *|.bak.END|
|00000580| 5f 4f 46 5f 46 49 4c 45 | 0a 69 66 20 74 65 73 74 |_OF_FILE|.if test|
|00000590| 20 31 33 32 20 2d 6e 65 | 20 60 77 63 20 2d 63 20 | 132 -ne| `wc -c |
|000005a0| 3c 27 4d 61 6b 65 66 69 | 6c 65 27 60 3b 20 74 68 |<'Makefi|le'`; th|
|000005b0| 65 6e 0a 20 20 20 20 65 | 63 68 6f 20 73 68 61 72 |en. e|cho shar|
|000005c0| 3a 20 5c 22 27 4d 61 6b | 65 66 69 6c 65 27 5c 22 |: \"'Mak|efile'\"|
|000005d0| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|000005e0| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|000005f0| 65 6e 64 20 6f 66 20 27 | 4d 61 6b 65 66 69 6c 65 |end of '|Makefile|
|00000600| 27 0a 66 69 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |'.fi.if |test -f |
|00000610| 27 52 45 41 44 4d 45 27 | 20 2d 61 20 22 24 7b 31 |'README'| -a "${1|
|00000620| 7d 22 20 21 3d 20 22 2d | 63 22 20 3b 20 74 68 65 |}" != "-|c" ; the|
|00000630| 6e 20 0a 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |n . ech|o shar: |
|00000640| 57 69 6c 6c 20 6e 6f 74 | 20 63 6c 6f 62 62 65 72 |Will not| clobber|
|00000650| 20 65 78 69 73 74 69 6e | 67 20 66 69 6c 65 20 5c | existin|g file \|
|00000660| 22 27 52 45 41 44 4d 45 | 27 5c 22 0a 65 6c 73 65 |"'README|'\".else|
|00000670| 0a 65 63 68 6f 20 73 68 | 61 72 3a 20 45 78 74 72 |.echo sh|ar: Extr|
|00000680| 61 63 74 69 6e 67 20 5c | 22 27 52 45 41 44 4d 45 |acting \|"'README|
|00000690| 27 5c 22 20 5c 28 32 38 | 31 20 63 68 61 72 61 63 |'\" \(28|1 charac|
|000006a0| 74 65 72 73 5c 29 0a 73 | 65 64 20 22 73 2f 5e 58 |ters\).s|ed "s/^X|
|000006b0| 2f 2f 22 20 3e 27 52 45 | 41 44 4d 45 27 20 3c 3c |//" >'RE|ADME' <<|
|000006c0| 27 45 4e 44 5f 4f 46 5f | 46 49 4c 45 27 0a 58 0a |'END_OF_|FILE'.X.|
|000006d0| 58 0a 58 54 68 69 73 20 | 69 73 20 61 6e 6f 74 68 |X.XThis |is anoth|
|000006e0| 65 72 20 64 65 62 75 67 | 67 69 6e 67 20 6d 61 6c |er debug|ging mal|
|000006f0| 6c 6f 63 20 6c 69 62 72 | 61 72 79 20 72 65 70 6c |loc libr|ary repl|
|00000700| 61 63 65 6d 65 6e 74 2e | 20 49 74 20 69 73 20 69 |acement.| It is i|
|00000710| 6e 74 65 6e 64 65 64 20 | 6d 6f 73 74 6c 79 0a 58 |ntended |mostly.X|
|00000720| 74 6f 20 68 65 6c 70 20 | 74 72 61 63 6b 20 64 6f |to help |track do|
|00000730| 77 6e 20 6d 65 6d 6f 72 | 79 20 6c 65 61 6b 73 2c |wn memor|y leaks,|
|00000740| 20 61 6e 64 20 6e 6f 74 | 20 6d 65 6d 6f 72 79 20 | and not| memory |
|00000750| 6f 76 65 72 77 72 69 74 | 69 6e 67 2e 20 49 20 68 |overwrit|ing. I h|
|00000760| 6f 70 65 20 69 74 0a 58 | 70 72 6f 76 65 73 20 75 |ope it.X|proves u|
|00000770| 73 65 66 75 6c 20 74 6f | 20 73 6f 6d 65 6f 6e 65 |seful to| someone|
|00000780| 2e 0a 58 0a 58 54 6f 20 | 75 73 65 20 6a 75 73 74 |..X.XTo |use just|
|00000790| 20 69 6e 63 6c 75 64 65 | 20 22 6d 61 6c 6c 6f 63 | include| "malloc|
|000007a0| 2e 68 22 20 69 6e 20 79 | 6f 75 72 20 70 72 6f 67 |.h" in y|our prog|
|000007b0| 72 61 6d 2c 20 63 6f 6d | 70 69 6c 65 20 77 69 74 |ram, com|pile wit|
|000007c0| 68 20 2d 44 44 45 42 55 | 47 2c 20 61 6e 64 0a 58 |h -DDEBU|G, and.X|
|000007d0| 6c 69 6e 6b 20 69 6e 20 | 64 65 62 75 67 61 6c 6c |link in |debugall|
|000007e0| 6f 63 2e 6f 0a 58 0a 58 | 63 68 72 69 73 74 6f 73 |oc.o.X.X|christos|
|000007f0| 0a 45 4e 44 5f 4f 46 5f | 46 49 4c 45 0a 69 66 20 |.END_OF_|FILE.if |
|00000800| 74 65 73 74 20 32 38 31 | 20 2d 6e 65 20 60 77 63 |test 281| -ne `wc|
|00000810| 20 2d 63 20 3c 27 52 45 | 41 44 4d 45 27 60 3b 20 | -c <'RE|ADME'`; |
|00000820| 74 68 65 6e 0a 20 20 20 | 20 65 63 68 6f 20 73 68 |then. | echo sh|
|00000830| 61 72 3a 20 5c 22 27 52 | 45 41 44 4d 45 27 5c 22 |ar: \"'R|EADME'\"|
|00000840| 20 75 6e 70 61 63 6b 65 | 64 20 77 69 74 68 20 77 | unpacke|d with w|
|00000850| 72 6f 6e 67 20 73 69 7a | 65 21 0a 66 69 0a 23 20 |rong siz|e!.fi.# |
|00000860| 65 6e 64 20 6f 66 20 27 | 52 45 41 44 4d 45 27 0a |end of '|README'.|
|00000870| 66 69 0a 69 66 20 74 65 | 73 74 20 2d 66 20 27 64 |fi.if te|st -f 'd|
|00000880| 65 62 75 67 61 6c 6c 6f | 63 2e 63 27 20 2d 61 20 |ebugallo|c.c' -a |
|00000890| 22 24 7b 31 7d 22 20 21 | 3d 20 22 2d 63 22 20 3b |"${1}" !|= "-c" ;|
|000008a0| 20 74 68 65 6e 20 0a 20 | 20 65 63 68 6f 20 73 68 | then . | echo sh|
|000008b0| 61 72 3a 20 57 69 6c 6c | 20 6e 6f 74 20 63 6c 6f |ar: Will| not clo|
|000008c0| 62 62 65 72 20 65 78 69 | 73 74 69 6e 67 20 66 69 |bber exi|sting fi|
|000008d0| 6c 65 20 5c 22 27 64 65 | 62 75 67 61 6c 6c 6f 63 |le \"'de|bugalloc|
|000008e0| 2e 63 27 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |.c'\".el|se.echo |
|000008f0| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00000900| 20 5c 22 27 64 65 62 75 | 67 61 6c 6c 6f 63 2e 63 | \"'debu|galloc.c|
|00000910| 27 5c 22 20 5c 28 39 30 | 30 33 20 63 68 61 72 61 |'\" \(90|03 chara|
|00000920| 63 74 65 72 73 5c 29 0a | 73 65 64 20 22 73 2f 5e |cters\).|sed "s/^|
|00000930| 58 2f 2f 22 20 3e 27 64 | 65 62 75 67 61 6c 6c 6f |X//" >'d|ebugallo|
|00000940| 63 2e 63 27 20 3c 3c 27 | 45 4e 44 5f 4f 46 5f 46 |c.c' <<'|END_OF_F|
|00000950| 49 4c 45 27 0a 58 2f 2a | 20 24 48 65 61 64 65 72 |ILE'.X/*| $Header|
|00000960| 3a 20 2f 68 6f 6d 65 2f | 68 79 70 65 72 69 6f 6e |: /home/|hyperion|
|00000970| 2f 6d 75 2f 63 68 72 69 | 73 74 6f 73 2f 73 72 63 |/mu/chri|stos/src|
|00000980| 2f 6d 69 6e 65 2f 6c 69 | 62 2f 61 6c 6c 6f 63 2f |/mine/li|b/alloc/|
|00000990| 52 43 53 2f 64 65 62 75 | 67 61 6c 6c 6f 63 2e 63 |RCS/debu|galloc.c|
|000009a0| 2c 76 20 31 2e 34 20 31 | 39 39 31 2f 30 35 2f 30 |,v 1.4 1|991/05/0|
|000009b0| 35 20 30 32 3a 34 39 3a | 34 33 20 63 68 72 69 73 |5 02:49:|43 chris|
|000009c0| 74 6f 73 20 45 78 70 20 | 24 20 2a 2f 0a 58 2f 2a |tos Exp |$ */.X/*|
|000009d0| 0a 58 20 2a 0a 58 20 2a | 20 64 65 62 75 67 61 6c |.X *.X *| debugal|
|000009e0| 6c 6f 63 2e 63 20 3a 20 | 53 70 65 63 69 61 6c 20 |loc.c : |Special |
|000009f0| 44 65 62 75 67 20 4d 61 | 6c 6c 6f 63 20 52 6f 75 |Debug Ma|lloc Rou|
|00000a00| 74 69 6e 65 73 0a 58 20 | 2a 0a 58 20 2a 20 52 6f |tines.X |*.X * Ro|
|00000a10| 75 74 69 6e 65 73 3a 0a | 58 20 2a 09 63 68 61 72 |utines:.|X *.char|
|00000a20| 20 2a 20 09 09 44 65 62 | 75 67 4d 61 6c 6c 6f 63 | * ..Deb|ugMalloc|
|00000a30| 28 29 3b 0a 58 20 2a 09 | 63 68 61 72 20 2a 09 09 |();.X *.|char *..|
|00000a40| 44 65 62 75 67 43 61 6c | 6c 6f 63 28 29 3b 0a 58 |DebugCal|loc();.X|
|00000a50| 20 2a 09 63 68 61 72 20 | 2a 09 09 44 65 62 75 67 | *.char |*..Debug|
|00000a60| 52 65 61 6c 6c 6f 63 28 | 29 3b 0a 58 20 2a 09 76 |Realloc(|);.X *.v|
|00000a70| 6f 69 64 20 09 09 44 65 | 62 75 67 46 72 65 65 28 |oid ..De|bugFree(|
|00000a80| 29 3b 0a 58 20 2a 09 75 | 6e 73 69 67 6e 65 64 09 |);.X *.u|nsigned.|
|00000a90| 44 65 62 75 67 4d 65 6d | 53 74 61 74 28 29 3b 0a |DebugMem|Stat();.|
|00000aa0| 58 20 2a 09 75 6e 73 69 | 67 6e 65 64 09 44 65 62 |X *.unsi|gned.Deb|
|00000ab0| 75 67 4d 65 6d 50 74 72 | 28 29 3b 0a 58 20 2a 09 |ugMemPtr|();.X *.|
|00000ac0| 76 6f 69 64 09 09 44 65 | 62 75 67 4d 65 6d 43 68 |void..De|bugMemCh|
|00000ad0| 61 69 6e 28 29 3b 0a 58 | 20 2a 0a 58 20 2a 20 24 |ain();.X| *.X * $|
|00000ae0| 4c 6f 67 3a 20 64 65 62 | 75 67 61 6c 6c 6f 63 2e |Log: deb|ugalloc.|
|00000af0| 63 2c 76 20 24 0a 58 20 | 2a 20 52 65 76 69 73 69 |c,v $.X |* Revisi|
|00000b00| 6f 6e 20 31 2e 34 20 20 | 31 39 39 31 2f 30 35 2f |on 1.4 |1991/05/|
|00000b10| 30 35 20 20 30 32 3a 34 | 39 3a 34 33 20 20 63 68 |05 02:4|9:43 ch|
|00000b20| 72 69 73 74 6f 73 0a 58 | 20 2a 20 46 69 78 65 64 |ristos.X| * Fixed|
|00000b30| 20 73 6d 61 6c 6c 20 6c | 69 6e 74 20 62 75 67 0a | small l|int bug.|
|00000b40| 58 20 2a 0a 58 20 2a 20 | 52 65 76 69 73 69 6f 6e |X *.X * |Revision|
|00000b50| 20 31 2e 33 20 20 31 39 | 39 31 2f 30 34 2f 32 31 | 1.3 19|91/04/21|
|00000b60| 20 20 30 30 3a 31 34 3a | 31 38 20 20 63 68 72 69 | 00:14:|18 chri|
|00000b70| 73 74 6f 73 0a 58 20 2a | 20 46 69 78 65 64 20 66 |stos.X *| Fixed f|
|00000b80| 72 65 65 20 65 72 72 6f | 72 20 6d 65 73 73 61 67 |ree erro|r messag|
|00000b90| 65 0a 58 20 2a 0a 58 20 | 2a 20 52 65 76 69 73 69 |e.X *.X |* Revisi|
|00000ba0| 6f 6e 20 31 2e 32 20 20 | 31 39 39 31 2f 30 32 2f |on 1.2 |1991/02/|
|00000bb0| 31 30 20 20 30 30 3a 34 | 34 3a 30 37 20 20 63 68 |10 00:4|4:07 ch|
|00000bc0| 72 69 73 74 6f 73 0a 58 | 20 2a 20 41 64 64 65 64 |ristos.X| * Added|
|00000bd0| 20 74 65 73 74 73 20 66 | 6f 72 20 70 6f 69 6e 74 | tests f|or point|
|00000be0| 65 72 73 20 6f 75 74 20 | 6f 66 20 74 68 65 20 61 |ers out |of the a|
|00000bf0| 6c 6c 6f 63 61 74 65 64 | 0a 58 20 2a 20 72 61 6e |llocated|.X * ran|
|00000c00| 67 65 0a 58 20 2a 0a 58 | 20 2a 20 52 65 76 69 73 |ge.X *.X| * Revis|
|00000c10| 69 6f 6e 20 31 2e 31 20 | 20 31 39 39 31 2f 30 32 |ion 1.1 | 1991/02|
|00000c20| 2f 30 31 20 20 30 38 3a | 31 32 3a 35 35 20 20 63 |/01 08:|12:55 c|
|00000c30| 68 72 69 73 74 6f 73 0a | 58 20 2a 20 49 6e 69 74 |hristos.|X * Init|
|00000c40| 69 61 6c 20 72 65 76 69 | 73 69 6f 6e 0a 58 20 2a |ial revi|sion.X *|
|00000c50| 0a 58 20 2a 2f 0a 58 23 | 69 66 6e 64 65 66 20 6c |.X */.X#|ifndef l|
|00000c60| 69 6e 74 0a 58 73 74 61 | 74 69 63 20 63 68 61 72 |int.Xsta|tic char|
|00000c70| 20 72 63 73 69 64 5b 5d | 20 3d 20 22 24 49 64 3a | rcsid[]| = "$Id:|
|00000c80| 20 64 65 62 75 67 61 6c | 6c 6f 63 2e 63 2c 76 20 | debugal|loc.c,v |
|00000c90| 31 2e 34 20 31 39 39 31 | 2f 30 35 2f 30 35 20 30 |1.4 1991|/05/05 0|
|00000ca0| 32 3a 34 39 3a 34 33 20 | 63 68 72 69 73 74 6f 73 |2:49:43 |christos|
|00000cb0| 20 45 78 70 20 24 22 3b | 0a 58 23 65 6e 64 69 66 | Exp $";|.X#endif|
|00000cc0| 20 2f 2a 20 6c 69 6e 74 | 20 2a 2f 0a 58 23 69 6e | /* lint| */.X#in|
|00000cd0| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00000ce0| 58 0a 58 23 69 66 64 65 | 66 20 5f 5f 53 54 44 43 |X.X#ifde|f __STDC|
|00000cf0| 5f 5f 0a 58 23 20 69 6e | 63 6c 75 64 65 20 3c 73 |__.X# in|clude <s|
|00000d00| 74 64 6c 69 62 2e 68 3e | 0a 58 23 20 69 6e 63 6c |tdlib.h>|.X# incl|
|00000d10| 75 64 65 20 3c 6d 65 6d | 6f 72 79 2e 68 3e 0a 58 |ude <mem|ory.h>.X|
|00000d20| 23 65 6c 73 65 0a 58 65 | 78 74 65 72 6e 20 63 68 |#else.Xe|xtern ch|
|00000d30| 61 72 20 2a 6d 61 6c 6c | 6f 63 28 29 3b 0a 58 65 |ar *mall|oc();.Xe|
|00000d40| 78 74 65 72 6e 20 63 68 | 61 72 20 2a 63 61 6c 6c |xtern ch|ar *call|
|00000d50| 6f 63 28 29 3b 0a 58 65 | 78 74 65 72 6e 20 63 68 |oc();.Xe|xtern ch|
|00000d60| 61 72 20 2a 72 65 61 6c | 6c 6f 63 28 29 3b 0a 58 |ar *real|loc();.X|
|00000d70| 65 78 74 65 72 6e 20 76 | 6f 69 64 20 66 72 65 65 |extern v|oid free|
|00000d80| 28 29 3b 0a 58 65 78 74 | 65 72 6e 20 76 6f 69 64 |();.Xext|ern void|
|00000d90| 20 61 62 6f 72 74 28 29 | 3b 0a 58 65 78 74 65 72 | abort()|;.Xexter|
|00000da0| 6e 20 63 68 61 72 20 2a | 6d 65 6d 73 65 74 28 29 |n char *|memset()|
|00000db0| 3b 0a 58 65 78 74 65 72 | 6e 20 76 6f 69 64 20 65 |;.Xexter|n void e|
|00000dc0| 78 69 74 28 29 3b 0a 58 | 23 65 6e 64 69 66 0a 58 |xit();.X|#endif.X|
|00000dd0| 0a 58 23 69 66 6e 64 65 | 66 20 4e 49 4c 0a 58 23 |.X#ifnde|f NIL.X#|
|00000de0| 20 64 65 66 69 6e 65 20 | 4e 49 4c 28 61 29 20 28 | define |NIL(a) (|
|00000df0| 28 61 20 2a 29 20 30 29 | 0a 58 23 65 6e 64 69 66 |(a *) 0)|.X#endif|
|00000e00| 20 2f 2a 20 4e 49 4c 20 | 2a 2f 0a 58 0a 58 23 69 | /* NIL |*/.X.X#i|
|00000e10| 66 6e 64 65 66 20 4d 49 | 4e 0a 58 23 20 64 65 66 |fndef MI|N.X# def|
|00000e20| 69 6e 65 20 4d 49 4e 28 | 61 2c 20 62 29 20 09 09 |ine MIN(|a, b) ..|
|00000e30| 28 28 61 29 20 3e 20 28 | 62 29 20 3f 20 28 62 29 |((a) > (|b) ? (b)|
|00000e40| 20 3a 20 28 61 29 29 0a | 58 23 65 6e 64 69 66 20 | : (a)).|X#endif |
|00000e50| 2f 2a 20 4d 49 4e 20 2a | 2f 0a 58 0a 58 23 69 66 |/* MIN *|/.X.X#if|
|00000e60| 6e 64 65 66 20 4d 41 58 | 0a 58 23 20 64 65 66 69 |ndef MAX|.X# defi|
|00000e70| 6e 65 20 4d 41 58 28 61 | 2c 20 62 29 20 09 09 28 |ne MAX(a|, b) ..(|
|00000e80| 28 61 29 20 3c 20 28 62 | 29 20 3f 20 28 62 29 20 |(a) < (b|) ? (b) |
|00000e90| 3a 20 28 61 29 29 0a 58 | 23 65 6e 64 69 66 20 2f |: (a)).X|#endif /|
|00000ea0| 2a 20 4d 41 58 20 2a 2f | 0a 58 0a 58 23 69 66 6e |* MAX */|.X.X#ifn|
|00000eb0| 64 65 66 20 70 72 69 76 | 61 74 65 0a 58 23 20 64 |def priv|ate.X# d|
|00000ec0| 65 66 69 6e 65 20 70 72 | 69 76 61 74 65 20 73 74 |efine pr|ivate st|
|00000ed0| 61 74 69 63 0a 58 23 65 | 6e 64 69 66 20 2f 2a 20 |atic.X#e|ndif /* |
|00000ee0| 70 72 69 76 61 74 65 20 | 2a 2f 0a 58 0a 58 23 69 |private |*/.X.X#i|
|00000ef0| 66 6e 64 65 66 20 70 75 | 62 6c 69 63 0a 58 23 20 |fndef pu|blic.X# |
|00000f00| 64 65 66 69 6e 65 20 70 | 75 62 6c 69 63 20 0a 58 |define p|ublic .X|
|00000f10| 23 65 6e 64 69 66 20 2f | 2a 20 70 75 62 6c 69 63 |#endif /|* public|
|00000f20| 20 2a 2f 0a 58 0a 58 23 | 64 65 66 69 6e 65 20 53 | */.X.X#|define S|
|00000f30| 49 47 5f 47 4f 4f 44 09 | 30 78 30 31 30 32 30 33 |IG_GOOD.|0x010203|
|00000f40| 30 34 0a 58 23 64 65 66 | 69 6e 65 20 53 49 47 5f |04.X#def|ine SIG_|
|00000f50| 46 52 45 45 09 30 78 30 | 34 30 33 30 32 30 31 0a |FREE.0x0|4030201.|
|00000f60| 58 23 64 65 66 69 6e 65 | 20 53 49 47 5f 43 48 41 |X#define| SIG_CHA|
|00000f70| 49 4e 09 30 78 34 34 33 | 33 32 32 31 31 0a 58 23 |IN.0x443|32211.X#|
|00000f80| 64 65 66 69 6e 65 20 4f | 56 45 52 48 45 41 44 09 |define O|VERHEAD.|
|00000f90| 73 69 7a 65 6f 66 28 64 | 65 62 75 67 5f 74 29 0a |sizeof(d|ebug_t).|
|00000fa0| 58 0a 58 0a 58 23 69 66 | 64 65 66 20 5f 5f 53 54 |X.X.X#if|def __ST|
|00000fb0| 44 43 5f 5f 0a 58 74 79 | 70 65 64 65 66 09 76 6f |DC__.Xty|pedef.vo|
|00000fc0| 69 64 20 2a 50 74 72 3b | 0a 58 23 65 6c 73 65 0a |id *Ptr;|.X#else.|
|00000fd0| 58 74 79 70 65 64 65 66 | 20 63 68 61 72 20 2a 50 |Xtypedef| char *P|
|00000fe0| 74 72 3b 0a 58 23 65 6e | 64 69 66 0a 58 0a 58 74 |tr;.X#en|dif.X.Xt|
|00000ff0| 79 70 65 64 65 66 20 73 | 74 72 75 63 74 20 64 65 |ypedef s|truct de|
|00001000| 62 75 67 5f 74 20 7b 0a | 58 20 20 20 20 6c 6f 6e |bug_t {.|X lon|
|00001010| 67 09 64 5f 73 69 67 6e | 3b 0a 58 20 20 20 20 75 |g.d_sign|;.X u|
|00001020| 6e 73 69 67 6e 65 64 09 | 6c 6f 6e 67 20 64 5f 73 |nsigned.|long d_s|
|00001030| 69 7a 65 3b 0a 58 20 20 | 20 20 63 68 61 72 20 2a |ize;.X | char *|
|00001040| 09 64 5f 66 69 6c 65 3b | 0a 58 20 20 20 20 6c 6f |.d_file;|.X lo|
|00001050| 6e 67 09 64 5f 6c 69 6e | 65 3b 0a 58 20 20 20 20 |ng.d_lin|e;.X |
|00001060| 75 6e 69 6f 6e 20 7b 0a | 58 09 73 74 72 75 63 74 |union {.|X.struct|
|00001070| 20 7b 0a 58 09 20 20 20 | 20 73 74 72 75 63 74 20 | {.X. | struct |
|00001080| 64 65 62 75 67 5f 74 09 | 2a 63 5f 70 72 65 76 3b |debug_t.|*c_prev;|
|00001090| 0a 58 09 20 20 20 20 73 | 74 72 75 63 74 20 64 65 |.X. s|truct de|
|000010a0| 62 75 67 5f 74 09 2a 63 | 5f 6e 65 78 74 3b 0a 58 |bug_t.*c|_next;.X|
|000010b0| 09 7d 20 64 5f 63 3b 0a | 58 09 73 74 72 75 63 74 |.} d_c;.|X.struct|
|000010c0| 20 7b 0a 58 09 20 20 20 | 20 63 68 61 72 20 09 09 | {.X. | char ..|
|000010d0| 2a 66 5f 66 69 6c 65 3b | 0a 58 09 20 20 20 20 6c |*f_file;|.X. l|
|000010e0| 6f 6e 67 09 09 66 5f 6c | 69 6e 65 3b 0a 58 09 7d |ong..f_l|ine;.X.}|
|000010f0| 20 64 5f 66 3b 0a 58 20 | 20 20 20 7d 20 64 5f 64 | d_f;.X | } d_d|
|00001100| 3b 0a 58 7d 20 64 65 62 | 75 67 5f 74 3b 0a 58 0a |;.X} deb|ug_t;.X.|
|00001110| 58 23 64 65 66 69 6e 65 | 20 64 5f 6e 65 78 74 09 |X#define| d_next.|
|00001120| 09 64 5f 64 2e 64 5f 63 | 2e 63 5f 6e 65 78 74 0a |.d_d.d_c|.c_next.|
|00001130| 58 23 64 65 66 69 6e 65 | 20 64 5f 70 72 65 76 09 |X#define| d_prev.|
|00001140| 09 64 5f 64 2e 64 5f 63 | 2e 63 5f 70 72 65 76 0a |.d_d.d_c|.c_prev.|
|00001150| 58 23 64 65 66 69 6e 65 | 20 64 5f 66 66 69 6c 65 |X#define| d_ffile|
|00001160| 20 09 64 5f 64 2e 64 5f | 66 2e 66 5f 66 69 6c 65 | .d_d.d_|f.f_file|
|00001170| 0a 58 23 64 65 66 69 6e | 65 20 64 5f 66 6c 69 6e |.X#defin|e d_flin|
|00001180| 65 20 09 64 5f 64 2e 64 | 5f 66 2e 66 5f 6c 69 6e |e .d_d.d|_f.f_lin|
|00001190| 65 0a 58 0a 58 0a 58 0a | 58 70 72 69 76 61 74 65 |e.X.X.X.|Xprivate|
|000011a0| 20 75 6e 73 69 67 6e 65 | 64 20 5f 6d 65 6d 75 73 | unsigne|d _memus|
|000011b0| 65 64 20 3d 20 30 3b 0a | 58 70 72 69 76 61 74 65 |ed = 0;.|Xprivate|
|000011c0| 20 75 6e 73 69 67 6e 65 | 64 20 5f 6d 65 6d 61 6c | unsigne|d _memal|
|000011d0| 6c 6f 63 20 3d 20 30 3b | 0a 58 70 72 69 76 61 74 |loc = 0;|.Xprivat|
|000011e0| 65 20 50 74 72 09 20 5f | 6d 65 6d 74 6f 70 20 3d |e Ptr. _|memtop =|
|000011f0| 20 28 50 74 72 29 20 30 | 3b 0a 58 70 72 69 76 61 | (Ptr) 0|;.Xpriva|
|00001200| 74 65 20 50 74 72 09 20 | 5f 6d 65 6d 62 6f 74 20 |te Ptr. |_membot |
|00001210| 3d 20 28 50 74 72 29 20 | 30 78 66 66 66 66 66 66 |= (Ptr) |0xffffff|
|00001220| 66 66 3b 0a 58 70 72 69 | 76 61 74 65 20 64 65 62 |ff;.Xpri|vate deb|
|00001230| 75 67 5f 74 20 2a 63 68 | 61 69 6e 3b 0a 58 0a 58 |ug_t *ch|ain;.X.X|
|00001240| 0a 58 2f 2a 20 5f 63 68 | 61 69 6e 69 28 29 3a 0a |.X/* _ch|aini():.|
|00001250| 58 20 2a 09 49 6e 73 65 | 72 74 20 62 6c 6f 63 6b |X *.Inse|rt block|
|00001260| 20 69 6e 20 63 68 61 69 | 6e 0a 58 20 2a 2f 0a 58 | in chai|n.X */.X|
|00001270| 70 72 69 76 61 74 65 20 | 64 65 62 75 67 5f 74 20 |private |debug_t |
|00001280| 2a 0a 58 5f 63 68 61 69 | 6e 69 28 74 70 74 72 2c |*.X_chai|ni(tptr,|
|00001290| 20 6e 2c 20 66 6e 61 6d | 65 2c 20 6c 69 6e 65 6e | n, fnam|e, linen|
|000012a0| 6f 29 0a 58 63 68 61 72 | 20 2a 2a 74 70 74 72 3b |o).Xchar| **tptr;|
|000012b0| 0a 58 75 6e 73 69 67 6e | 65 64 20 6e 3b 0a 58 63 |.Xunsign|ed n;.Xc|
|000012c0| 68 61 72 20 2a 66 6e 61 | 6d 65 3b 0a 58 69 6e 74 |har *fna|me;.Xint|
|000012d0| 20 6c 69 6e 65 6e 6f 3b | 0a 58 7b 0a 58 20 20 20 | lineno;|.X{.X |
|000012e0| 20 73 74 61 74 69 63 20 | 64 65 62 75 67 5f 74 20 | static |debug_t |
|000012f0| 5f 5f 63 68 61 69 6e 3b | 0a 58 20 20 20 20 64 65 |__chain;|.X de|
|00001300| 62 75 67 5f 74 20 2a 64 | 62 67 3b 0a 58 0a 58 20 |bug_t *d|bg;.X.X |
|00001310| 20 20 20 64 62 67 20 3d | 20 28 64 65 62 75 67 5f | dbg =| (debug_|
|00001320| 74 20 2a 29 20 2a 74 70 | 74 72 3b 0a 58 20 20 20 |t *) *tp|tr;.X |
|00001330| 20 2a 74 70 74 72 20 2b | 3d 20 4f 56 45 52 48 45 | *tptr +|= OVERHE|
|00001340| 41 44 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 63 |AD;.X.X | if (c|
|00001350| 68 61 69 6e 20 3d 3d 20 | 4e 49 4c 28 64 65 62 75 |hain == |NIL(debu|
|00001360| 67 5f 74 29 29 20 7b 0a | 58 09 63 68 61 69 6e 20 |g_t)) {.|X.chain |
|00001370| 3d 20 26 5f 5f 63 68 61 | 69 6e 3b 0a 58 09 63 68 |= &__cha|in;.X.ch|
|00001380| 61 69 6e 2d 3e 64 5f 6e | 65 78 74 20 3d 20 63 68 |ain->d_n|ext = ch|
|00001390| 61 69 6e 2d 3e 64 5f 70 | 72 65 76 20 3d 20 63 68 |ain->d_p|rev = ch|
|000013a0| 61 69 6e 3b 0a 58 09 63 | 68 61 69 6e 2d 3e 64 5f |ain;.X.c|hain->d_|
|000013b0| 73 69 67 6e 20 3d 20 53 | 49 47 5f 43 48 41 49 4e |sign = S|IG_CHAIN|
|000013c0| 3b 0a 58 09 63 68 61 69 | 6e 2d 3e 64 5f 73 69 7a |;.X.chai|n->d_siz|
|000013d0| 65 20 3d 20 30 3b 0a 58 | 09 63 68 61 69 6e 2d 3e |e = 0;.X|.chain->|
|000013e0| 64 5f 66 69 6c 65 20 3d | 20 4e 49 4c 28 63 68 61 |d_file =| NIL(cha|
|000013f0| 72 29 3b 0a 58 09 63 68 | 61 69 6e 2d 3e 64 5f 6c |r);.X.ch|ain->d_l|
|00001400| 69 6e 65 20 3d 20 30 3b | 0a 58 20 20 20 20 7d 0a |ine = 0;|.X }.|
|00001410| 58 20 20 20 20 64 62 67 | 2d 3e 64 5f 73 69 67 6e |X dbg|->d_sign|
|00001420| 20 3d 20 53 49 47 5f 47 | 4f 4f 44 3b 0a 58 20 20 | = SIG_G|OOD;.X |
|00001430| 20 20 64 62 67 2d 3e 64 | 5f 73 69 7a 65 20 3d 20 | dbg->d|_size = |
|00001440| 6e 3b 0a 58 20 20 20 20 | 64 62 67 2d 3e 64 5f 66 |n;.X |dbg->d_f|
|00001450| 69 6c 65 20 3d 20 66 6e | 61 6d 65 3b 0a 58 20 20 |ile = fn|ame;.X |
|00001460| 20 20 64 62 67 2d 3e 64 | 5f 6c 69 6e 65 20 3d 20 | dbg->d|_line = |
|00001470| 6c 69 6e 65 6e 6f 3b 0a | 58 20 20 20 20 64 62 67 |lineno;.|X dbg|
|00001480| 2d 3e 64 5f 6e 65 78 74 | 20 3d 20 63 68 61 69 6e |->d_next| = chain|
|00001490| 2d 3e 64 5f 6e 65 78 74 | 3b 0a 58 20 20 20 20 64 |->d_next|;.X d|
|000014a0| 62 67 2d 3e 64 5f 70 72 | 65 76 20 3d 20 63 68 61 |bg->d_pr|ev = cha|
|000014b0| 69 6e 3b 0a 58 20 20 20 | 20 63 68 61 69 6e 2d 3e |in;.X | chain->|
|000014c0| 64 5f 6e 65 78 74 2d 3e | 64 5f 70 72 65 76 20 3d |d_next->|d_prev =|
|000014d0| 20 64 62 67 3b 0a 58 20 | 20 20 20 63 68 61 69 6e | dbg;.X | chain|
|000014e0| 2d 3e 64 5f 6e 65 78 74 | 20 3d 20 64 62 67 3b 0a |->d_next| = dbg;.|
|000014f0| 58 20 20 20 20 63 68 61 | 69 6e 20 3d 20 64 62 67 |X cha|in = dbg|
|00001500| 3b 0a 58 20 20 20 20 5f | 6d 65 6d 75 73 65 64 20 |;.X _|memused |
|00001510| 2b 3d 20 63 68 61 69 6e | 2d 3e 64 5f 73 69 7a 65 |+= chain|->d_size|
|00001520| 3b 0a 58 20 20 20 20 5f | 6d 65 6d 61 6c 6c 6f 63 |;.X _|memalloc|
|00001530| 2b 2b 3b 0a 58 20 20 20 | 20 72 65 74 75 72 6e 28 |++;.X | return(|
|00001540| 64 62 67 29 3b 0a 58 7d | 20 2f 2a 20 65 6e 64 20 |dbg);.X}| /* end |
|00001550| 5f 63 68 61 69 6e 69 20 | 2a 2f 0a 58 0a 58 0a 58 |_chaini |*/.X.X.X|
|00001560| 2f 2a 20 5f 63 68 61 69 | 6e 61 28 29 3a 0a 58 20 |/* _chai|na():.X |
|00001570| 2a 09 41 6c 6c 6f 63 61 | 74 65 20 61 20 62 6c 6f |*.Alloca|te a blo|
|00001580| 63 6b 20 6f 66 20 74 68 | 65 20 72 65 71 75 69 72 |ck of th|e requir|
|00001590| 65 64 20 73 69 7a 65 0a | 58 20 2a 2f 0a 58 70 72 |ed size.|X */.Xpr|
|000015a0| 69 76 61 74 65 20 50 74 | 72 0a 58 5f 63 68 61 69 |ivate Pt|r.X_chai|
|000015b0| 6e 61 28 6e 2c 20 61 63 | 74 69 6f 6e 2c 20 72 6f |na(n, ac|tion, ro|
|000015c0| 75 74 69 6e 65 2c 20 66 | 6e 61 6d 65 2c 20 6c 69 |utine, f|name, li|
|000015d0| 6e 65 6e 6f 2c 20 74 70 | 74 72 29 0a 58 75 6e 73 |neno, tp|tr).Xuns|
|000015e0| 69 67 6e 65 64 20 6e 3b | 0a 58 63 68 61 72 20 2a |igned n;|.Xchar *|
|000015f0| 61 63 74 69 6f 6e 3b 0a | 58 50 74 72 20 28 2a 72 |action;.|XPtr (*r|
|00001600| 6f 75 74 69 6e 65 29 28 | 29 3b 0a 58 63 68 61 72 |outine)(|);.Xchar|
|00001610| 20 2a 66 6e 61 6d 65 3b | 0a 58 69 6e 74 20 6c 69 | *fname;|.Xint li|
|00001620| 6e 65 6e 6f 3b 0a 58 50 | 74 72 20 74 70 74 72 3b |neno;.XP|tr tptr;|
|00001630| 0a 58 7b 0a 58 20 20 20 | 20 63 68 61 72 20 2a 70 |.X{.X | char *p|
|00001640| 74 72 3b 0a 58 20 20 20 | 20 64 65 62 75 67 5f 74 |tr;.X | debug_t|
|00001650| 20 2a 64 62 67 3b 0a 58 | 0a 58 20 20 20 20 69 66 | *dbg;.X|.X if|
|00001660| 20 28 74 70 74 72 20 21 | 3d 20 28 50 74 72 29 20 | (tptr !|= (Ptr) |
|00001670| 30 20 26 26 20 28 74 70 | 74 72 20 3c 20 5f 6d 65 |0 && (tp|tr < _me|
|00001680| 6d 62 6f 74 20 7c 7c 20 | 74 70 74 72 20 3e 20 5f |mbot || |tptr > _|
|00001690| 6d 65 6d 74 6f 70 20 7c | 7c 20 0a 58 09 28 28 69 |memtop ||| .X.((i|
|000016a0| 6e 74 29 20 74 70 74 72 | 29 20 26 20 30 78 33 29 |nt) tptr|) & 0x3)|
|000016b0| 29 20 7b 0a 58 09 28 76 | 6f 69 64 29 20 66 70 72 |) {.X.(v|oid) fpr|
|000016c0| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 2a 2a |intf(std|err, "**|
|000016d0| 2a 20 25 73 2c 20 25 64 | 3a 20 25 73 20 69 6e 76 |* %s, %d|: %s inv|
|000016e0| 61 6c 69 64 20 70 6f 69 | 6e 74 65 72 2e 5c 6e 22 |alid poi|nter.\n"|
|000016f0| 2c 20 0a 58 09 09 20 20 | 20 20 20 20 20 66 6e 61 |, .X.. | fna|
|00001700| 6d 65 2c 20 6c 69 6e 65 | 6e 6f 2c 20 61 63 74 69 |me, line|no, acti|
|00001710| 6f 6e 29 3b 0a 58 09 61 | 62 6f 72 74 28 29 3b 0a |on);.X.a|bort();.|
|00001720| 58 20 20 20 20 7d 0a 58 | 20 20 20 20 69 66 20 28 |X }.X| if (|
|00001730| 6e 20 3d 3d 20 30 29 20 | 7b 0a 58 09 28 76 6f 69 |n == 0) |{.X.(voi|
|00001740| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00001750| 72 2c 20 0a 58 09 09 20 | 20 20 20 20 20 20 22 2a |r, .X.. | "*|
|00001760| 2a 2a 20 25 73 2c 20 25 | 64 3a 20 25 73 20 7a 65 |** %s, %|d: %s ze|
|00001770| 72 6f 20 6c 65 6e 67 74 | 68 20 62 6c 6f 63 6b 2e |ro lengt|h block.|
|00001780| 5c 6e 22 2c 20 0a 58 09 | 09 20 20 20 20 20 20 20 |\n", .X.|. |
|00001790| 66 6e 61 6d 65 2c 20 6c | 69 6e 65 6e 6f 2c 20 61 |fname, l|ineno, a|
|000017a0| 63 74 69 6f 6e 29 3b 0a | 58 09 69 66 20 28 74 70 |ction);.|X.if (tp|
|000017b0| 74 72 20 21 3d 20 28 50 | 74 72 29 20 30 29 20 7b |tr != (P|tr) 0) {|
|000017c0| 0a 58 09 20 20 20 20 64 | 62 67 20 3d 20 28 64 65 |.X. d|bg = (de|
|000017d0| 62 75 67 5f 74 20 2a 29 | 20 74 70 74 72 3b 0a 58 |bug_t *)| tptr;.X|
|000017e0| 09 20 20 20 20 28 76 6f | 69 64 29 20 5f 63 68 61 |. (vo|id) _cha|
|000017f0| 69 6e 69 28 28 63 68 61 | 72 20 2a 2a 29 20 26 74 |ini((cha|r **) &t|
|00001800| 70 74 72 2c 20 28 75 6e | 73 69 67 6e 65 64 29 20 |ptr, (un|signed) |
|00001810| 64 62 67 2d 3e 64 5f 73 | 69 7a 65 2c 20 0a 58 09 |dbg->d_s|ize, .X.|
|00001820| 09 09 20 20 20 64 62 67 | 2d 3e 64 5f 66 69 6c 65 |.. dbg|->d_file|
|00001830| 2c 20 28 69 6e 74 29 20 | 64 62 67 2d 3e 64 5f 6c |, (int) |dbg->d_l|
|00001840| 69 6e 65 29 3b 0a 58 09 | 7d 0a 58 09 61 62 6f 72 |ine);.X.|}.X.abor|
|00001850| 74 28 29 3b 0a 58 20 20 | 20 20 7d 0a 58 0a 58 20 |t();.X | }.X.X |
|00001860| 20 20 20 70 74 72 20 3d | 20 28 74 70 74 72 20 3d | ptr =| (tptr =|
|00001870| 3d 20 28 50 74 72 29 20 | 30 29 20 3f 20 28 63 68 |= (Ptr) |0) ? (ch|
|00001880| 61 72 20 2a 29 20 28 2a | 72 6f 75 74 69 6e 65 29 |ar *) (*|routine)|
|00001890| 28 6e 2b 4f 56 45 52 48 | 45 41 44 29 20 3a 0a 58 |(n+OVERH|EAD) :.X|
|000018a0| 09 20 20 28 2a 72 6f 75 | 74 69 6e 65 29 28 74 70 |. (*rou|tine)(tp|
|000018b0| 74 72 2c 20 6e 2b 4f 56 | 45 52 48 45 41 44 29 3b |tr, n+OV|ERHEAD);|
|000018c0| 0a 58 0a 58 20 20 20 20 | 5f 6d 65 6d 74 6f 70 20 |.X.X |_memtop |
|000018d0| 3d 20 4d 41 58 28 28 50 | 74 72 29 20 70 74 72 2c |= MAX((P|tr) ptr,|
|000018e0| 20 5f 6d 65 6d 74 6f 70 | 29 3b 0a 58 20 20 20 20 | _memtop|);.X |
|000018f0| 5f 6d 65 6d 62 6f 74 20 | 3d 20 4d 49 4e 28 28 50 |_membot |= MIN((P|
|00001900| 74 72 29 20 70 74 72 2c | 20 5f 6d 65 6d 62 6f 74 |tr) ptr,| _membot|
|00001910| 29 3b 0a 58 0a 58 20 20 | 20 20 69 66 20 28 70 74 |);.X.X | if (pt|
|00001920| 72 20 3d 3d 20 4e 49 4c | 28 63 68 61 72 29 29 20 |r == NIL|(char)) |
|00001930| 7b 0a 58 09 28 76 6f 69 | 64 29 20 66 70 72 69 6e |{.X.(voi|d) fprin|
|00001940| 74 66 28 73 74 64 65 72 | 72 2c 20 0a 58 09 20 20 |tf(stder|r, .X. |
|00001950| 20 20 22 2a 2a 2a 20 25 | 73 2c 20 25 64 3a 20 4f | "*** %|s, %d: O|
|00001960| 75 74 20 6f 66 20 6d 65 | 6d 6f 72 79 20 69 6e 20 |ut of me|mory in |
|00001970| 25 73 20 28 63 75 72 72 | 65 6e 74 20 61 6c 6c 6f |%s (curr|ent allo|
|00001980| 63 61 74 69 6f 6e 20 25 | 75 29 2e 5c 6e 22 2c 20 |cation %|u).\n", |
|00001990| 0a 58 09 20 20 20 20 66 | 6e 61 6d 65 2c 20 6c 69 |.X. f|name, li|
|000019a0| 6e 65 6e 6f 2c 20 61 63 | 74 69 6f 6e 2c 20 6e 29 |neno, ac|tion, n)|
|000019b0| 3b 0a 58 09 69 66 20 28 | 74 70 74 72 20 21 3d 20 |;.X.if (|tptr != |
|000019c0| 28 50 74 72 29 20 30 29 | 20 7b 0a 58 09 20 20 20 |(Ptr) 0)| {.X. |
|000019d0| 20 64 62 67 20 3d 20 28 | 64 65 62 75 67 5f 74 20 | dbg = (|debug_t |
|000019e0| 2a 29 20 74 70 74 72 3b | 0a 58 09 20 20 20 20 28 |*) tptr;|.X. (|
|000019f0| 76 6f 69 64 29 20 5f 63 | 68 61 69 6e 69 28 28 63 |void) _c|haini((c|
|00001a00| 68 61 72 20 2a 2a 29 20 | 26 74 70 74 72 2c 20 28 |har **) |&tptr, (|
|00001a10| 75 6e 73 69 67 6e 65 64 | 29 20 64 62 67 2d 3e 64 |unsigned|) dbg->d|
|00001a20| 5f 73 69 7a 65 2c 20 0a | 58 09 09 09 20 20 20 64 |_size, .|X... d|
|00001a30| 62 67 2d 3e 64 5f 66 69 | 6c 65 2c 20 28 69 6e 74 |bg->d_fi|le, (int|
|00001a40| 29 20 64 62 67 2d 3e 64 | 5f 6c 69 6e 65 29 3b 0a |) dbg->d|_line);.|
|00001a50| 58 09 7d 0a 58 09 61 62 | 6f 72 74 28 29 3b 0a 58 |X.}.X.ab|ort();.X|
|00001a60| 20 20 20 20 7d 0a 58 20 | 20 20 20 72 65 74 75 72 | }.X | retur|
|00001a70| 6e 28 28 50 74 72 29 20 | 70 74 72 29 3b 0a 58 7d |n((Ptr) |ptr);.X}|
|00001a80| 20 2f 2a 20 65 6e 64 20 | 5f 63 68 61 69 6e 61 20 | /* end |_chaina |
|00001a90| 2a 2f 0a 58 0a 58 0a 58 | 2f 2a 20 5f 63 68 61 69 |*/.X.X.X|/* _chai|
|00001aa0| 6e 66 28 29 3a 0a 58 20 | 2a 09 46 72 65 65 20 62 |nf():.X |*.Free b|
|00001ab0| 6c 6f 63 6b 20 69 6e 20 | 63 68 61 69 6e 0a 58 20 |lock in |chain.X |
|00001ac0| 2a 2f 0a 58 70 72 69 76 | 61 74 65 20 76 6f 69 64 |*/.Xpriv|ate void|
|00001ad0| 0a 58 5f 63 68 61 69 6e | 66 28 64 62 67 2c 20 61 |.X_chain|f(dbg, a|
|00001ae0| 63 74 69 6f 6e 2c 20 66 | 6e 61 6d 65 2c 20 6c 69 |ction, f|name, li|
|00001af0| 6e 65 6e 6f 29 0a 58 64 | 65 62 75 67 5f 74 20 2a |neno).Xd|ebug_t *|
|00001b00| 64 62 67 3b 0a 58 63 68 | 61 72 20 2a 61 63 74 69 |dbg;.Xch|ar *acti|
|00001b10| 6f 6e 3b 0a 58 63 68 61 | 72 20 2a 66 6e 61 6d 65 |on;.Xcha|r *fname|
|00001b20| 3b 0a 58 69 6e 74 20 6c | 69 6e 65 6e 6f 3b 0a 58 |;.Xint l|ineno;.X|
|00001b30| 7b 0a 58 20 20 20 20 64 | 62 67 2d 3e 64 5f 73 69 |{.X d|bg->d_si|
|00001b40| 67 6e 20 3d 20 53 49 47 | 5f 46 52 45 45 3b 0a 58 |gn = SIG|_FREE;.X|
|00001b50| 20 20 20 20 69 66 20 28 | 63 68 61 69 6e 20 3d 3d | if (|chain ==|
|00001b60| 20 64 62 67 29 0a 58 09 | 63 68 61 69 6e 20 3d 20 | dbg).X.|chain = |
|00001b70| 64 62 67 2d 3e 64 5f 70 | 72 65 76 3b 0a 58 20 20 |dbg->d_p|rev;.X |
|00001b80| 20 20 64 62 67 2d 3e 64 | 5f 70 72 65 76 2d 3e 64 | dbg->d|_prev->d|
|00001b90| 5f 6e 65 78 74 20 3d 20 | 64 62 67 2d 3e 64 5f 6e |_next = |dbg->d_n|
|00001ba0| 65 78 74 3b 0a 58 20 20 | 20 20 64 62 67 2d 3e 64 |ext;.X | dbg->d|
|00001bb0| 5f 6e 65 78 74 2d 3e 64 | 5f 70 72 65 76 20 3d 20 |_next->d|_prev = |
|00001bc0| 64 62 67 2d 3e 64 5f 70 | 72 65 76 3b 0a 58 20 20 |dbg->d_p|rev;.X |
|00001bd0| 20 20 64 62 67 2d 3e 64 | 5f 66 66 69 6c 65 20 3d | dbg->d|_ffile =|
|00001be0| 20 66 6e 61 6d 65 3b 0a | 58 20 20 20 20 64 62 67 | fname;.|X dbg|
|00001bf0| 2d 3e 64 5f 66 6c 69 6e | 65 20 3d 20 6c 69 6e 65 |->d_flin|e = line|
|00001c00| 6e 6f 3b 0a 58 20 20 20 | 20 5f 6d 65 6d 75 73 65 |no;.X | _memuse|
|00001c10| 64 20 2d 3d 20 64 62 67 | 2d 3e 64 5f 73 69 7a 65 |d -= dbg|->d_size|
|00001c20| 3b 0a 58 20 20 20 20 5f | 6d 65 6d 61 6c 6c 6f 63 |;.X _|memalloc|
|00001c30| 2d 2d 3b 0a 58 7d 20 2f | 2a 20 65 6e 64 20 5f 63 |--;.X} /|* end _c|
|00001c40| 68 61 69 6e 66 20 2a 2f | 0a 58 0a 58 0a 58 2f 2a |hainf */|.X.X.X/*|
|00001c50| 20 5f 63 68 61 69 6e 67 | 28 29 3a 0a 58 20 2a 09 | _chaing|():.X *.|
|00001c60| 52 65 74 75 72 6e 20 74 | 68 65 20 64 65 62 75 67 |Return t|he debug|
|00001c70| 20 68 65 61 64 65 72 20 | 6f 66 20 61 20 63 68 61 | header |of a cha|
|00001c80| 69 6e 0a 58 20 2a 2f 0a | 58 70 72 69 76 61 74 65 |in.X */.|Xprivate|
|00001c90| 20 64 65 62 75 67 5f 74 | 20 2a 0a 58 5f 63 68 61 | debug_t| *.X_cha|
|00001ca0| 69 6e 67 28 70 74 72 2c | 20 61 63 74 69 6f 6e 2c |ing(ptr,| action,|
|00001cb0| 20 66 6e 61 6d 65 2c 20 | 6c 69 6e 65 6e 6f 29 0a | fname, |lineno).|
|00001cc0| 58 63 68 61 72 20 2a 2a | 70 74 72 3b 0a 58 63 68 |Xchar **|ptr;.Xch|
|00001cd0| 61 72 20 2a 61 63 74 69 | 6f 6e 3b 0a 58 63 68 61 |ar *acti|on;.Xcha|
|00001ce0| 72 20 2a 66 6e 61 6d 65 | 3b 0a 58 69 6e 74 20 6c |r *fname|;.Xint l|
|00001cf0| 69 6e 65 6e 6f 3b 0a 58 | 7b 0a 58 20 20 20 20 69 |ineno;.X|{.X i|
|00001d00| 66 20 28 2a 70 74 72 20 | 3d 3d 20 4e 49 4c 28 63 |f (*ptr |== NIL(c|
|00001d10| 68 61 72 29 29 20 7b 0a | 58 09 28 76 6f 69 64 29 |har)) {.|X.(void)|
|00001d20| 20 66 70 72 69 6e 74 66 | 28 73 74 64 65 72 72 2c | fprintf|(stderr,|
|00001d30| 20 22 2a 2a 2a 2a 20 25 | 73 2c 20 25 64 3a 20 25 | "**** %|s, %d: %|
|00001d40| 73 20 6e 69 6c 20 70 6f | 69 6e 74 65 72 2e 5c 6e |s nil po|inter.\n|
|00001d50| 22 2c 20 0a 58 09 09 20 | 20 20 20 20 20 20 66 6e |", .X.. | fn|
|00001d60| 61 6d 65 2c 20 6c 69 6e | 65 6e 6f 2c 20 61 63 74 |ame, lin|eno, act|
|00001d70| 69 6f 6e 29 3b 0a 58 09 | 61 62 6f 72 74 28 29 3b |ion);.X.|abort();|
|00001d80| 0a 58 20 20 20 20 7d 0a | 58 20 20 20 20 2a 70 74 |.X }.|X *pt|
|00001d90| 72 20 2d 3d 20 4f 56 45 | 52 48 45 41 44 3b 0a 58 |r -= OVE|RHEAD;.X|
|00001da0| 20 20 20 20 69 66 20 28 | 28 50 74 72 29 20 2a 70 | if (|(Ptr) *p|
|00001db0| 74 72 20 3c 20 5f 6d 65 | 6d 62 6f 74 20 7c 7c 20 |tr < _me|mbot || |
|00001dc0| 28 50 74 72 29 20 2a 70 | 74 72 20 3e 20 5f 6d 65 |(Ptr) *p|tr > _me|
|00001dd0| 6d 74 6f 70 20 7c 7c 20 | 28 28 28 6c 6f 6e 67 29 |mtop || |(((long)|
|00001de0| 20 2a 70 74 72 29 20 26 | 20 30 78 33 29 29 20 7b | *ptr) &| 0x3)) {|
|00001df0| 0a 58 09 28 76 6f 69 64 | 29 20 66 70 72 69 6e 74 |.X.(void|) fprint|
|00001e00| 66 28 73 74 64 65 72 72 | 2c 20 22 2a 2a 2a 20 25 |f(stderr|, "*** %|
|00001e10| 73 2c 20 25 64 3a 20 25 | 73 20 69 6e 76 61 6c 69 |s, %d: %|s invali|
|00001e20| 64 20 70 6f 69 6e 74 65 | 72 2e 5c 6e 22 2c 20 0a |d pointe|r.\n", .|
|00001e30| 58 09 09 20 20 20 20 20 | 20 20 66 6e 61 6d 65 2c |X.. | fname,|
|00001e40| 20 6c 69 6e 65 6e 6f 2c | 20 61 63 74 69 6f 6e 29 | lineno,| action)|
|00001e50| 3b 0a 58 09 61 62 6f 72 | 74 28 29 3b 0a 58 20 20 |;.X.abor|t();.X |
|00001e60| 20 20 7d 0a 58 20 20 20 | 20 72 65 74 75 72 6e 28 | }.X | return(|
|00001e70| 28 64 65 62 75 67 5f 74 | 20 2a 29 20 2a 70 74 72 |(debug_t| *) *ptr|
|00001e80| 29 3b 0a 58 7d 20 2f 2a | 20 65 6e 64 20 5f 63 68 |);.X} /*| end _ch|
|00001e90| 61 69 6e 67 20 2a 2f 0a | 58 0a 58 0a 58 0a 58 0a |aing */.|X.X.X.X.|
|00001ea0| 58 2f 2a 20 5f 63 68 61 | 69 6e 63 28 29 3a 0a 58 |X/* _cha|inc():.X|
|00001eb0| 20 2a 09 43 68 65 63 6b | 20 62 6c 6f 63 6b 20 69 | *.Check| block i|
|00001ec0| 6e 20 63 68 61 69 6e 0a | 58 20 2a 2f 0a 58 70 72 |n chain.|X */.Xpr|
|00001ed0| 69 76 61 74 65 20 76 6f | 69 64 0a 58 5f 63 68 61 |ivate vo|id.X_cha|
|00001ee0| 69 6e 63 28 64 62 67 2c | 20 61 63 74 69 6f 6e 2c |inc(dbg,| action,|
|00001ef0| 20 66 6e 61 6d 65 2c 20 | 6c 69 6e 65 6e 6f 29 0a | fname, |lineno).|
|00001f00| 58 64 65 62 75 67 5f 74 | 20 2a 64 62 67 3b 0a 58 |Xdebug_t| *dbg;.X|
|00001f10| 63 68 61 72 20 2a 61 63 | 74 69 6f 6e 3b 0a 58 63 |char *ac|tion;.Xc|
|00001f20| 68 61 72 20 2a 66 6e 61 | 6d 65 3b 0a 58 69 6e 74 |har *fna|me;.Xint|
|00001f30| 20 6c 69 6e 65 6e 6f 3b | 0a 58 7b 0a 58 20 20 20 | lineno;|.X{.X |
|00001f40| 20 73 74 61 74 69 63 20 | 63 68 61 72 20 2a 6d 73 | static |char *ms|
|00001f50| 67 31 20 3d 20 22 2a 2a | 2a 20 25 73 2c 20 25 64 |g1 = "**|* %s, %d|
|00001f60| 3a 20 25 73 20 25 73 20 | 62 6c 6f 63 6b 22 3b 0a |: %s %s |block";.|
|00001f70| 58 20 20 20 20 73 74 61 | 74 69 63 20 63 68 61 72 |X sta|tic char|
|00001f80| 20 2a 6d 73 67 32 20 3d | 20 22 20 5b 25 73 2c 20 | *msg2 =| " [%s, |
|00001f90| 25 64 3a 20 25 73 5d 22 | 3b 0a 58 0a 58 20 20 20 |%d: %s]"|;.X.X |
|00001fa0| 20 73 77 69 74 63 68 20 | 28 64 62 67 2d 3e 64 5f | switch |(dbg->d_|
|00001fb0| 73 69 67 6e 29 20 7b 0a | 58 20 20 20 20 63 61 73 |sign) {.|X cas|
|00001fc0| 65 20 53 49 47 5f 47 4f | 4f 44 3a 0a 58 09 62 72 |e SIG_GO|OD:.X.br|
|00001fd0| 65 61 6b 3b 0a 58 20 20 | 20 20 63 61 73 65 20 53 |eak;.X | case S|
|00001fe0| 49 47 5f 46 52 45 45 3a | 0a 58 20 20 20 20 20 20 |IG_FREE:|.X |
|00001ff0| 20 20 28 76 6f 69 64 29 | 20 66 70 72 69 6e 74 66 | (void)| fprintf|
|00002000| 28 73 74 64 65 72 72 2c | 20 6d 73 67 31 2c 20 66 |(stderr,| msg1, f|
|00002010| 6e 61 6d 65 2c 20 6c 69 | 6e 65 6e 6f 2c 20 61 63 |name, li|neno, ac|
|00002020| 74 69 6f 6e 2c 20 22 66 | 72 65 65 64 22 29 3b 0a |tion, "f|reed");.|
|00002030| 58 20 20 20 20 20 20 20 | 20 28 76 6f 69 64 29 20 |X | (void) |
|00002040| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00002050| 6d 73 67 32 2c 20 64 62 | 67 2d 3e 64 5f 66 69 6c |msg2, db|g->d_fil|
|00002060| 65 2c 20 64 62 67 2d 3e | 64 5f 6c 69 6e 65 2c 20 |e, dbg->|d_line, |
|00002070| 22 61 6c 6c 6f 63 61 74 | 65 64 22 29 3b 0a 58 20 |"allocat|ed");.X |
|00002080| 20 20 20 20 20 20 20 28 | 76 6f 69 64 29 20 66 70 | (|void) fp|
|00002090| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 6d 73 |rintf(st|derr, ms|
|000020a0| 67 32 2c 20 64 62 67 2d | 3e 64 5f 66 66 69 6c 65 |g2, dbg-|>d_ffile|
|000020b0| 2c 20 64 62 67 2d 3e 64 | 5f 66 6c 69 6e 65 2c 20 |, dbg->d|_fline, |
|000020c0| 22 66 72 65 65 64 22 29 | 3b 0a 58 09 61 62 6f 72 |"freed")|;.X.abor|
|000020d0| 74 28 29 3b 0a 58 09 62 | 72 65 61 6b 3b 0a 58 20 |t();.X.b|reak;.X |
|000020e0| 20 20 20 64 65 66 61 75 | 6c 74 3a 0a 58 20 20 20 | defau|lt:.X |
|000020f0| 20 20 20 20 20 28 76 6f | 69 64 29 20 66 70 72 69 | (vo|id) fpri|
|00002100| 6e 74 66 28 73 74 64 65 | 72 72 2c 20 6d 73 67 31 |ntf(stde|rr, msg1|
|00002110| 2c 20 66 6e 61 6d 65 2c | 20 6c 69 6e 65 6e 6f 2c |, fname,| lineno,|
|00002120| 20 61 63 74 69 6f 6e 2c | 20 22 69 6e 76 61 6c 69 | action,| "invali|
|00002130| 64 22 29 3b 0a 58 09 28 | 76 6f 69 64 29 20 66 70 |d");.X.(|void) fp|
|00002140| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 22 2e |rintf(st|derr, ".|
|00002150| 5c 6e 22 29 3b 0a 58 09 | 61 62 6f 72 74 28 29 3b |\n");.X.|abort();|
|00002160| 0a 58 09 62 72 65 61 6b | 3b 0a 58 20 20 20 20 7d |.X.break|;.X }|
|00002170| 0a 58 7d 20 2f 2a 20 65 | 6e 64 20 5f 63 68 61 69 |.X} /* e|nd _chai|
|00002180| 6e 63 20 2a 2f 0a 58 0a | 58 0a 58 2f 2a 20 44 65 |nc */.X.|X.X/* De|
|00002190| 62 75 67 4d 61 6c 6c 6f | 63 28 29 3a 0a 58 20 2a |bugMallo|c():.X *|
|000021a0| 09 72 65 61 6c 20 61 6c | 6c 6f 63 20 0a 58 20 2a |.real al|loc .X *|
|000021b0| 2f 0a 58 70 75 62 6c 69 | 63 20 50 74 72 0a 58 44 |/.Xpubli|c Ptr.XD|
|000021c0| 65 62 75 67 4d 61 6c 6c | 6f 63 28 6e 2c 20 66 6e |ebugMall|oc(n, fn|
|000021d0| 61 6d 65 2c 20 6c 69 6e | 65 6e 6f 29 0a 58 75 6e |ame, lin|eno).Xun|
|000021e0| 73 69 67 6e 65 64 20 6e | 3b 0a 58 63 68 61 72 20 |signed n|;.Xchar |
|000021f0| 2a 66 6e 61 6d 65 3b 0a | 58 69 6e 74 20 6c 69 6e |*fname;.|Xint lin|
|00002200| 65 6e 6f 3b 0a 58 7b 0a | 58 20 20 20 20 73 74 61 |eno;.X{.|X sta|
|00002210| 74 69 63 20 63 68 61 72 | 20 2a 72 6f 75 74 69 6e |tic char| *routin|
|00002220| 65 20 3d 20 22 6d 61 6c | 6c 6f 63 22 3b 0a 58 20 |e = "mal|loc";.X |
|00002230| 20 20 20 50 74 72 20 70 | 74 72 3b 0a 58 0a 58 20 | Ptr p|tr;.X.X |
|00002240| 20 20 20 70 74 72 20 3d | 20 5f 63 68 61 69 6e 61 | ptr =| _chaina|
|00002250| 28 6e 2c 20 72 6f 75 74 | 69 6e 65 2c 20 6d 61 6c |(n, rout|ine, mal|
|00002260| 6c 6f 63 2c 20 66 6e 61 | 6d 65 2c 20 6c 69 6e 65 |loc, fna|me, line|
|00002270| 6e 6f 2c 20 28 50 74 72 | 29 20 30 29 3b 0a 58 20 |no, (Ptr|) 0);.X |
|00002280| 20 20 20 28 76 6f 69 64 | 29 20 5f 63 68 61 69 6e | (void|) _chain|
|00002290| 69 28 28 63 68 61 72 20 | 2a 2a 29 20 26 70 74 72 |i((char |**) &ptr|
|000022a0| 2c 20 6e 2c 20 66 6e 61 | 6d 65 2c 20 6c 69 6e 65 |, n, fna|me, line|
|000022b0| 6e 6f 29 3b 0a 58 20 20 | 20 20 72 65 74 75 72 6e |no);.X | return|
|000022c0| 28 70 74 72 29 3b 0a 58 | 7d 20 2f 2a 20 65 6e 64 |(ptr);.X|} /* end|
|000022d0| 20 44 65 62 75 67 4d 61 | 6c 6c 6f 63 20 2a 2f 0a | DebugMa|lloc */.|
|000022e0| 58 0a 58 0a 58 2f 2a 20 | 44 65 62 75 67 46 72 65 |X.X.X/* |DebugFre|
|000022f0| 65 28 29 3a 0a 58 20 2a | 09 66 72 65 65 20 6d 65 |e():.X *|.free me|
|00002300| 6d 6f 72 79 20 63 6f 75 | 6e 74 69 6e 67 20 74 68 |mory cou|nting th|
|00002310| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 62 79 74 65 |e number| of byte|
|00002320| 73 20 66 72 65 65 64 0a | 58 20 2a 2f 0a 58 70 75 |s freed.|X */.Xpu|
|00002330| 62 6c 69 63 20 76 6f 69 | 64 0a 58 44 65 62 75 67 |blic voi|d.XDebug|
|00002340| 46 72 65 65 28 70 74 72 | 2c 20 66 6e 61 6d 65 2c |Free(ptr|, fname,|
|00002350| 20 6c 69 6e 65 6e 6f 29 | 0a 58 50 74 72 20 70 74 | lineno)|.XPtr pt|
|00002360| 72 3b 0a 58 63 68 61 72 | 20 2a 66 6e 61 6d 65 3b |r;.Xchar| *fname;|
|00002370| 0a 58 69 6e 74 20 6c 69 | 6e 65 6e 6f 3b 0a 58 7b |.Xint li|neno;.X{|
|00002380| 0a 58 20 20 20 20 73 74 | 61 74 69 63 20 63 68 61 |.X st|atic cha|
|00002390| 72 20 2a 72 6f 75 74 69 | 6e 65 20 3d 20 22 66 72 |r *routi|ne = "fr|
|000023a0| 65 65 22 3b 0a 58 20 20 | 20 20 64 65 62 75 67 5f |ee";.X | debug_|
|000023b0| 74 20 2a 64 62 67 3b 0a | 58 0a 58 20 20 20 20 64 |t *dbg;.|X.X d|
|000023c0| 62 67 20 3d 20 5f 63 68 | 61 69 6e 67 28 28 63 68 |bg = _ch|aing((ch|
|000023d0| 61 72 20 2a 2a 29 20 26 | 70 74 72 2c 20 72 6f 75 |ar **) &|ptr, rou|
|000023e0| 74 69 6e 65 2c 20 66 6e | 61 6d 65 2c 20 6c 69 6e |tine, fn|ame, lin|
|000023f0| 65 6e 6f 29 3b 0a 58 20 | 20 20 20 5f 63 68 61 69 |eno);.X | _chai|
|00002400| 6e 63 28 64 62 67 2c 20 | 72 6f 75 74 69 6e 65 2c |nc(dbg, |routine,|
|00002410| 20 66 6e 61 6d 65 2c 20 | 6c 69 6e 65 6e 6f 29 3b | fname, |lineno);|
|00002420| 0a 58 20 20 20 20 5f 63 | 68 61 69 6e 66 28 64 62 |.X _c|hainf(db|
|00002430| 67 2c 20 72 6f 75 74 69 | 6e 65 2c 20 66 6e 61 6d |g, routi|ne, fnam|
|00002440| 65 2c 20 6c 69 6e 65 6e | 6f 29 3b 0a 58 20 20 20 |e, linen|o);.X |
|00002450| 20 66 72 65 65 28 70 74 | 72 29 3b 0a 58 7d 20 2f | free(pt|r);.X} /|
|00002460| 2a 20 65 6e 64 20 44 65 | 62 75 67 46 72 65 65 20 |* end De|bugFree |
|00002470| 2a 2f 0a 58 0a 58 0a 58 | 2f 2a 20 44 65 62 75 67 |*/.X.X.X|/* Debug|
|00002480| 4d 65 6d 53 74 61 74 28 | 29 3a 0a 58 20 2a 09 72 |MemStat(|):.X *.r|
|00002490| 65 74 75 72 6e 20 74 68 | 65 20 61 6d 6f 75 6e 74 |eturn th|e amount|
|000024a0| 20 6f 66 20 6d 65 6d 6f | 72 79 20 69 6e 20 75 73 | of memo|ry in us|
|000024b0| 65 0a 58 20 2a 2f 0a 58 | 70 75 62 6c 69 63 20 75 |e.X */.X|public u|
|000024c0| 6e 73 69 67 6e 65 64 0a | 58 44 65 62 75 67 4d 65 |nsigned.|XDebugMe|
|000024d0| 6d 53 74 61 74 28 29 0a | 58 7b 0a 58 20 20 20 20 |mStat().|X{.X |
|000024e0| 72 65 74 75 72 6e 28 5f | 6d 65 6d 75 73 65 64 29 |return(_|memused)|
|000024f0| 3b 0a 58 7d 20 2f 2a 20 | 65 6e 64 20 44 65 62 75 |;.X} /* |end Debu|
|00002500| 67 4d 65 6d 53 74 61 74 | 20 2a 2f 0a 58 0a 58 0a |gMemStat| */.X.X.|
|00002510| 58 2f 2a 20 44 65 62 75 | 67 4d 65 6d 50 74 72 28 |X/* Debu|gMemPtr(|
|00002520| 29 3a 0a 58 20 2a 09 72 | 65 74 75 72 6e 20 74 68 |):.X *.r|eturn th|
|00002530| 65 20 61 6d 6f 75 6e 74 | 20 6f 66 20 6d 65 6d 6f |e amount| of memo|
|00002540| 72 79 20 69 6e 20 75 73 | 65 0a 58 20 2a 2f 0a 58 |ry in us|e.X */.X|
|00002550| 70 75 62 6c 69 63 20 75 | 6e 73 69 67 6e 65 64 0a |public u|nsigned.|
|00002560| 58 44 65 62 75 67 4d 65 | 6d 50 74 72 28 70 74 72 |XDebugMe|mPtr(ptr|
|00002570| 2c 20 66 6e 61 6d 65 2c | 20 6c 69 6e 65 6e 6f 29 |, fname,| lineno)|
|00002580| 0a 58 50 74 72 20 70 74 | 72 3b 0a 58 63 68 61 72 |.XPtr pt|r;.Xchar|
|00002590| 20 2a 66 6e 61 6d 65 3b | 0a 58 69 6e 74 20 6c 69 | *fname;|.Xint li|
|000025a0| 6e 65 6e 6f 3b 0a 58 7b | 0a 58 20 20 20 20 73 74 |neno;.X{|.X st|
|000025b0| 61 74 69 63 20 63 68 61 | 72 20 2a 72 6f 75 74 69 |atic cha|r *routi|
|000025c0| 6e 65 20 3d 20 22 67 65 | 74 20 73 69 7a 65 22 3b |ne = "ge|t size";|
|000025d0| 0a 58 20 20 20 20 64 65 | 62 75 67 5f 74 20 2a 64 |.X de|bug_t *d|
|000025e0| 62 67 3b 0a 58 0a 58 20 | 20 20 20 64 62 67 20 3d |bg;.X.X | dbg =|
|000025f0| 20 5f 63 68 61 69 6e 67 | 28 28 63 68 61 72 20 2a | _chaing|((char *|
|00002600| 2a 29 20 26 70 74 72 2c | 20 72 6f 75 74 69 6e 65 |*) &ptr,| routine|
|00002610| 2c 20 66 6e 61 6d 65 2c | 20 6c 69 6e 65 6e 6f 29 |, fname,| lineno)|
|00002620| 3b 0a 58 20 20 20 20 5f | 63 68 61 69 6e 63 28 64 |;.X _|chainc(d|
|00002630| 62 67 2c 20 72 6f 75 74 | 69 6e 65 2c 20 66 6e 61 |bg, rout|ine, fna|
|00002640| 6d 65 2c 20 6c 69 6e 65 | 6e 6f 29 3b 0a 58 0a 58 |me, line|no);.X.X|
|00002650| 20 20 20 20 72 65 74 75 | 72 6e 28 28 75 6e 73 69 | retu|rn((unsi|
|00002660| 67 6e 65 64 29 20 64 62 | 67 2d 3e 64 5f 73 69 7a |gned) db|g->d_siz|
|00002670| 65 29 3b 0a 58 7d 20 2f | 2a 20 65 6e 64 20 44 65 |e);.X} /|* end De|
|00002680| 62 75 67 4d 65 6d 50 74 | 72 20 2a 2f 0a 58 0a 58 |bugMemPt|r */.X.X|
|00002690| 0a 58 2f 2a 20 44 65 62 | 75 67 52 65 61 6c 6c 6f |.X/* Deb|ugReallo|
|000026a0| 63 28 29 3a 0a 58 20 2a | 09 72 65 61 6c 20 61 6c |c():.X *|.real al|
|000026b0| 6c 6f 63 20 0a 58 20 2a | 2f 0a 58 70 75 62 6c 69 |loc .X *|/.Xpubli|
|000026c0| 63 20 50 74 72 0a 58 44 | 65 62 75 67 52 65 61 6c |c Ptr.XD|ebugReal|
|000026d0| 6c 6f 63 28 70 74 72 2c | 20 6e 2c 20 66 6e 61 6d |loc(ptr,| n, fnam|
|000026e0| 65 2c 20 6c 69 6e 65 6e | 6f 29 0a 58 50 74 72 20 |e, linen|o).XPtr |
|000026f0| 70 74 72 3b 0a 58 75 6e | 73 69 67 6e 65 64 20 6e |ptr;.Xun|signed n|
|00002700| 3b 0a 58 63 68 61 72 20 | 2a 66 6e 61 6d 65 3b 0a |;.Xchar |*fname;.|
|00002710| 58 69 6e 74 20 6c 69 6e | 65 6e 6f 3b 0a 58 7b 0a |Xint lin|eno;.X{.|
|00002720| 58 20 20 20 20 73 74 61 | 74 69 63 20 63 68 61 72 |X sta|tic char|
|00002730| 20 2a 72 6f 75 74 69 6e | 65 20 3d 20 22 72 65 61 | *routin|e = "rea|
|00002740| 6c 6c 6f 63 22 3b 0a 58 | 20 20 20 20 64 65 62 75 |lloc";.X| debu|
|00002750| 67 5f 74 20 2a 64 62 67 | 3b 0a 58 0a 58 20 20 20 |g_t *dbg|;.X.X |
|00002760| 20 64 62 67 20 3d 20 5f | 63 68 61 69 6e 67 28 28 | dbg = _|chaing((|
|00002770| 63 68 61 72 20 2a 2a 29 | 20 26 70 74 72 2c 20 72 |char **)| &ptr, r|
|00002780| 6f 75 74 69 6e 65 2c 20 | 66 6e 61 6d 65 2c 20 6c |outine, |fname, l|
|00002790| 69 6e 65 6e 6f 29 3b 0a | 58 20 20 20 20 5f 63 68 |ineno);.|X _ch|
|000027a0| 61 69 6e 63 28 64 62 67 | 2c 20 72 6f 75 74 69 6e |ainc(dbg|, routin|
|000027b0| 65 2c 20 66 6e 61 6d 65 | 2c 20 6c 69 6e 65 6e 6f |e, fname|, lineno|
|000027c0| 29 3b 0a 58 20 20 20 20 | 5f 63 68 61 69 6e 66 28 |);.X |_chainf(|
|000027d0| 64 62 67 2c 20 72 6f 75 | 74 69 6e 65 2c 20 66 6e |dbg, rou|tine, fn|
|000027e0| 61 6d 65 2c 20 6c 69 6e | 65 6e 6f 29 3b 0a 58 20 |ame, lin|eno);.X |
|000027f0| 20 20 20 70 74 72 20 3d | 20 5f 63 68 61 69 6e 61 | ptr =| _chaina|
|00002800| 28 6e 2c 20 72 6f 75 74 | 69 6e 65 2c 20 72 65 61 |(n, rout|ine, rea|
|00002810| 6c 6c 6f 63 2c 20 66 6e | 61 6d 65 2c 20 6c 69 6e |lloc, fn|ame, lin|
|00002820| 65 6e 6f 2c 20 70 74 72 | 29 3b 0a 58 20 20 20 20 |eno, ptr|);.X |
|00002830| 64 62 67 20 3d 20 5f 63 | 68 61 69 6e 69 28 28 63 |dbg = _c|haini((c|
|00002840| 68 61 72 20 2a 2a 29 20 | 26 70 74 72 2c 20 6e 2c |har **) |&ptr, n,|
|00002850| 20 66 6e 61 6d 65 2c 20 | 6c 69 6e 65 6e 6f 29 3b | fname, |lineno);|
|00002860| 0a 58 0a 58 20 20 20 20 | 72 65 74 75 72 6e 28 70 |.X.X |return(p|
|00002870| 74 72 29 3b 0a 58 7d 20 | 2f 2a 20 65 6e 64 20 44 |tr);.X} |/* end D|
|00002880| 65 62 75 67 52 65 61 6c | 6c 6f 63 20 2a 2f 0a 58 |ebugReal|loc */.X|
|00002890| 0a 58 0a 58 2f 2a 20 44 | 65 62 75 67 43 61 6c 6c |.X.X/* D|ebugCall|
|000028a0| 6f 63 28 29 3a 0a 58 20 | 2a 09 72 65 61 6c 20 61 |oc():.X |*.real a|
|000028b0| 6c 6c 6f 63 20 0a 58 20 | 2a 2f 0a 58 70 75 62 6c |lloc .X |*/.Xpubl|
|000028c0| 69 63 20 50 74 72 0a 58 | 44 65 62 75 67 43 61 6c |ic Ptr.X|DebugCal|
|000028d0| 6c 6f 63 28 6e 2c 20 73 | 7a 2c 20 66 6e 61 6d 65 |loc(n, s|z, fname|
|000028e0| 2c 20 6c 69 6e 65 6e 6f | 29 0a 58 75 6e 73 69 67 |, lineno|).Xunsig|
|000028f0| 6e 65 64 20 6e 2c 20 73 | 7a 3b 0a 58 63 68 61 72 |ned n, s|z;.Xchar|
|00002900| 20 2a 66 6e 61 6d 65 3b | 0a 58 69 6e 74 20 6c 69 | *fname;|.Xint li|
|00002910| 6e 65 6e 6f 3b 0a 58 7b | 0a 58 20 20 20 20 73 74 |neno;.X{|.X st|
|00002920| 61 74 69 63 20 63 68 61 | 72 20 2a 72 6f 75 74 69 |atic cha|r *routi|
|00002930| 6e 65 20 3d 20 22 63 61 | 6c 6c 6f 63 22 3b 0a 58 |ne = "ca|lloc";.X|
|00002940| 20 20 20 20 50 74 72 20 | 70 74 72 3b 0a 58 0a 58 | Ptr |ptr;.X.X|
|00002950| 20 20 20 20 6e 20 2a 3d | 20 73 7a 3b 0a 58 20 20 | n *=| sz;.X |
|00002960| 20 20 70 74 72 20 3d 20 | 5f 63 68 61 69 6e 61 28 | ptr = |_chaina(|
|00002970| 6e 2c 20 72 6f 75 74 69 | 6e 65 2c 20 6d 61 6c 6c |n, routi|ne, mall|
|00002980| 6f 63 2c 20 66 6e 61 6d | 65 2c 20 6c 69 6e 65 6e |oc, fnam|e, linen|
|00002990| 6f 2c 20 28 50 74 72 29 | 20 30 29 3b 0a 58 20 20 |o, (Ptr)| 0);.X |
|000029a0| 20 20 28 76 6f 69 64 29 | 20 5f 63 68 61 69 6e 69 | (void)| _chaini|
|000029b0| 28 28 63 68 61 72 20 2a | 2a 29 20 26 70 74 72 2c |((char *|*) &ptr,|
|000029c0| 20 6e 2c 20 66 6e 61 6d | 65 2c 20 6c 69 6e 65 6e | n, fnam|e, linen|
|000029d0| 6f 29 3b 0a 58 20 20 20 | 20 6d 65 6d 73 65 74 28 |o);.X | memset(|
|000029e0| 28 63 68 61 72 20 2a 29 | 20 70 74 72 2c 20 30 2c |(char *)| ptr, 0,|
|000029f0| 20 6e 29 3b 0a 58 20 20 | 20 20 72 65 74 75 72 6e | n);.X | return|
|00002a00| 28 70 74 72 29 3b 0a 58 | 7d 20 2f 2a 20 65 6e 64 |(ptr);.X|} /* end|
|00002a10| 20 44 65 62 75 67 43 61 | 6c 6c 6f 63 20 2a 2f 0a | DebugCa|lloc */.|
|00002a20| 58 0a 58 2f 2a 20 44 65 | 62 75 67 4d 65 6d 43 68 |X.X/* De|bugMemCh|
|00002a30| 61 69 6e 28 29 3a 0a 58 | 20 2a 09 44 75 6d 70 20 |ain():.X| *.Dump |
|00002a40| 74 68 65 20 6d 65 6d 6f | 72 79 20 63 68 61 69 6e |the memo|ry chain|
|00002a50| 0a 58 20 2a 2f 0a 58 70 | 75 62 6c 69 63 20 76 6f |.X */.Xp|ublic vo|
|00002a60| 69 64 0a 58 44 65 62 75 | 67 4d 65 6d 43 68 61 69 |id.XDebu|gMemChai|
|00002a70| 6e 28 29 0a 58 7b 0a 58 | 20 20 20 20 64 65 62 75 |n().X{.X| debu|
|00002a80| 67 5f 74 20 2a 64 62 67 | 3b 0a 58 20 20 20 20 75 |g_t *dbg|;.X u|
|00002a90| 6e 73 69 67 6e 65 64 20 | 6d 69 6e 2c 20 6d 61 78 |nsigned |min, max|
|00002aa0| 3b 0a 58 0a 58 20 20 20 | 20 6d 61 78 20 3d 20 30 |;.X.X | max = 0|
|00002ab0| 78 30 30 30 30 30 30 30 | 30 3b 0a 58 20 20 20 20 |x0000000|0;.X |
|00002ac0| 6d 69 6e 20 3d 20 30 78 | 66 66 66 66 66 66 66 66 |min = 0x|ffffffff|
|00002ad0| 3b 0a 58 0a 58 20 20 20 | 20 69 66 20 28 63 68 61 |;.X.X | if (cha|
|00002ae0| 69 6e 20 3d 3d 20 4e 49 | 4c 28 64 65 62 75 67 5f |in == NI|L(debug_|
|00002af0| 74 29 20 7c 7c 20 63 68 | 61 69 6e 2d 3e 64 5f 73 |t) || ch|ain->d_s|
|00002b00| 69 67 6e 20 3d 3d 20 53 | 49 47 5f 43 48 41 49 4e |ign == S|IG_CHAIN|
|00002b10| 29 20 7b 0a 58 09 28 76 | 6f 69 64 29 20 66 70 72 |) {.X.(v|oid) fpr|
|00002b20| 69 6e 74 66 28 73 74 64 | 6f 75 74 2c 20 22 5c 74 |intf(std|out, "\t|
|00002b30| 4e 6f 20 6d 65 6d 6f 72 | 79 20 61 6c 6c 6f 63 61 |No memor|y alloca|
|00002b40| 74 65 64 2e 5c 6e 22 29 | 3b 0a 58 09 72 65 74 75 |ted.\n")|;.X.retu|
|00002b50| 72 6e 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |rn;.X | }.X |
|00002b60| 28 76 6f 69 64 29 20 66 | 70 72 69 6e 74 66 28 73 |(void) f|printf(s|
|00002b70| 74 64 6f 75 74 2c 20 22 | 5c 74 4d 65 6d 6f 72 79 |tdout, "|\tMemory|
|00002b80| 20 41 6c 6c 6f 63 61 74 | 69 6f 6e 20 53 74 61 74 | Allocat|ion Stat|
|00002b90| 69 73 74 69 63 73 2e 5c | 6e 22 29 3b 0a 58 20 20 |istics.\|n");.X |
|00002ba0| 20 20 28 76 6f 69 64 29 | 20 66 70 72 69 6e 74 66 | (void)| fprintf|
|00002bb0| 28 73 74 64 6f 75 74 2c | 20 22 5c 74 25 75 20 62 |(stdout,| "\t%u b|
|00002bc0| 79 74 65 73 20 61 6c 6c | 6f 63 61 74 65 64 20 69 |ytes all|ocated i|
|00002bd0| 6e 20 25 75 20 63 68 75 | 6e 6b 73 2e 5c 6e 22 2c |n %u chu|nks.\n",|
|00002be0| 0a 58 09 09 20 20 20 5f | 6d 65 6d 75 73 65 64 2c |.X.. _|memused,|
|00002bf0| 20 5f 6d 65 6d 61 6c 6c | 6f 63 29 3b 0a 58 20 20 | _memall|oc);.X |
|00002c00| 20 20 66 6f 72 20 28 64 | 62 67 20 3d 20 63 68 61 | for (d|bg = cha|
|00002c10| 69 6e 3b 20 64 62 67 2d | 3e 64 5f 73 69 67 6e 20 |in; dbg-|>d_sign |
|00002c20| 21 3d 20 53 49 47 5f 43 | 48 41 49 4e 3b 20 64 62 |!= SIG_C|HAIN; db|
|00002c30| 67 20 3d 20 64 62 67 2d | 3e 64 5f 6e 65 78 74 29 |g = dbg-|>d_next)|
|00002c40| 3b 0a 58 20 20 20 20 28 | 76 6f 69 64 29 20 66 70 |;.X (|void) fp|
|00002c50| 72 69 6e 74 66 28 73 74 | 64 6f 75 74 2c 20 22 5c |rintf(st|dout, "\|
|00002c60| 74 25 38 2e 38 73 20 25 | 38 2e 38 73 20 25 32 30 |t%8.8s %|8.8s %20|
|00002c70| 2e 32 30 73 20 25 35 2e | 35 73 5c 6e 22 2c 0a 58 |.20s %5.|5s\n",.X|
|00002c80| 09 09 20 20 20 22 41 64 | 64 72 65 73 73 22 2c 20 |.. "Ad|dress", |
|00002c90| 22 53 69 7a 65 22 2c 20 | 22 46 69 6c 65 6e 61 6d |"Size", |"Filenam|
|00002ca0| 65 22 2c 20 22 4c 69 6e | 65 22 29 3b 0a 58 20 20 |e", "Lin|e");.X |
|00002cb0| 20 20 66 6f 72 20 28 64 | 62 67 20 3d 20 64 62 67 | for (d|bg = dbg|
|00002cc0| 2d 3e 64 5f 6e 65 78 74 | 3b 20 64 62 67 2d 3e 64 |->d_next|; dbg->d|
|00002cd0| 5f 73 69 67 6e 20 21 3d | 20 53 49 47 5f 43 48 41 |_sign !=| SIG_CHA|
|00002ce0| 49 4e 3b 20 64 62 67 20 | 3d 20 64 62 67 2d 3e 64 |IN; dbg |= dbg->d|
|00002cf0| 5f 6e 65 78 74 29 20 7b | 0a 58 09 28 76 6f 69 64 |_next) {|.X.(void|
|00002d00| 29 20 66 70 72 69 6e 74 | 66 28 73 74 64 6f 75 74 |) fprint|f(stdout|
|00002d10| 2c 20 22 5c 74 25 2e 38 | 78 20 25 38 64 20 25 32 |, "\t%.8|x %8d %2|
|00002d20| 30 2e 32 30 73 20 25 35 | 64 5c 6e 22 2c 0a 58 09 |0.20s %5|d\n",.X.|
|00002d30| 09 20 20 20 20 20 20 20 | 64 62 67 2c 20 64 62 67 |. |dbg, dbg|
|00002d40| 2d 3e 64 5f 73 69 7a 65 | 2c 20 64 62 67 2d 3e 64 |->d_size|, dbg->d|
|00002d50| 5f 66 69 6c 65 2c 20 64 | 62 67 2d 3e 64 5f 6c 69 |_file, d|bg->d_li|
|00002d60| 6e 65 29 3b 0a 58 09 6d | 69 6e 20 3d 20 4d 49 4e |ne);.X.m|in = MIN|
|00002d70| 28 6d 69 6e 2c 20 64 62 | 67 2d 3e 64 5f 73 69 7a |(min, db|g->d_siz|
|00002d80| 65 29 3b 0a 58 09 6d 61 | 78 20 3d 20 4d 41 58 28 |e);.X.ma|x = MAX(|
|00002d90| 6d 61 78 2c 20 64 62 67 | 2d 3e 64 5f 73 69 7a 65 |max, dbg|->d_size|
|00002da0| 29 3b 0a 58 20 20 20 20 | 7d 0a 58 20 20 20 20 28 |);.X |}.X (|
|00002db0| 76 6f 69 64 29 20 66 70 | 72 69 6e 74 66 28 73 74 |void) fp|rintf(st|
|00002dc0| 64 6f 75 74 2c 20 22 5c | 74 4d 69 6e 20 25 75 20 |dout, "\|tMin %u |
|00002dd0| 4d 61 78 20 25 75 20 41 | 76 67 20 25 75 2e 5c 6e |Max %u A|vg %u.\n|
|00002de0| 22 2c 20 0a 58 09 09 20 | 20 20 6d 69 6e 2c 20 6d |", .X.. | min, m|
|00002df0| 61 78 2c 20 5f 6d 65 6d | 75 73 65 64 20 2f 20 5f |ax, _mem|used / _|
|00002e00| 6d 65 6d 61 6c 6c 6f 63 | 29 3b 0a 58 7d 20 2f 2a |memalloc|);.X} /*|
|00002e10| 20 65 6e 64 20 44 65 62 | 75 67 4d 65 6d 43 68 61 | end Deb|ugMemCha|
|00002e20| 69 6e 20 2a 2f 0a 45 4e | 44 5f 4f 46 5f 46 49 4c |in */.EN|D_OF_FIL|
|00002e30| 45 0a 69 66 20 74 65 73 | 74 20 39 30 30 33 20 2d |E.if tes|t 9003 -|
|00002e40| 6e 65 20 60 77 63 20 2d | 63 20 3c 27 64 65 62 75 |ne `wc -|c <'debu|
|00002e50| 67 61 6c 6c 6f 63 2e 63 | 27 60 3b 20 74 68 65 6e |galloc.c|'`; then|
|00002e60| 0a 20 20 20 20 65 63 68 | 6f 20 73 68 61 72 3a 20 |. ech|o shar: |
|00002e70| 5c 22 27 64 65 62 75 67 | 61 6c 6c 6f 63 2e 63 27 |\"'debug|alloc.c'|
|00002e80| 5c 22 20 75 6e 70 61 63 | 6b 65 64 20 77 69 74 68 |\" unpac|ked with|
|00002e90| 20 77 72 6f 6e 67 20 73 | 69 7a 65 21 0a 66 69 0a | wrong s|ize!.fi.|
|00002ea0| 23 20 65 6e 64 20 6f 66 | 20 27 64 65 62 75 67 61 |# end of| 'debuga|
|00002eb0| 6c 6c 6f 63 2e 63 27 0a | 66 69 0a 69 66 20 74 65 |lloc.c'.|fi.if te|
|00002ec0| 73 74 20 2d 66 20 27 6d | 61 6c 6c 6f 63 2e 68 27 |st -f 'm|alloc.h'|
|00002ed0| 20 2d 61 20 22 24 7b 31 | 7d 22 20 21 3d 20 22 2d | -a "${1|}" != "-|
|00002ee0| 63 22 20 3b 20 74 68 65 | 6e 20 0a 20 20 65 63 68 |c" ; the|n . ech|
|00002ef0| 6f 20 73 68 61 72 3a 20 | 57 69 6c 6c 20 6e 6f 74 |o shar: |Will not|
|00002f00| 20 63 6c 6f 62 62 65 72 | 20 65 78 69 73 74 69 6e | clobber| existin|
|00002f10| 67 20 66 69 6c 65 20 5c | 22 27 6d 61 6c 6c 6f 63 |g file \|"'malloc|
|00002f20| 2e 68 27 5c 22 0a 65 6c | 73 65 0a 65 63 68 6f 20 |.h'\".el|se.echo |
|00002f30| 73 68 61 72 3a 20 45 78 | 74 72 61 63 74 69 6e 67 |shar: Ex|tracting|
|00002f40| 20 5c 22 27 6d 61 6c 6c | 6f 63 2e 68 27 5c 22 20 | \"'mall|oc.h'\" |
|00002f50| 5c 28 31 38 36 30 20 63 | 68 61 72 61 63 74 65 72 |\(1860 c|haracter|
|00002f60| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00002f70| 20 3e 27 6d 61 6c 6c 6f | 63 2e 68 27 20 3c 3c 27 | >'mallo|c.h' <<'|
|00002f80| 45 4e 44 5f 4f 46 5f 46 | 49 4c 45 27 0a 58 2f 2a |END_OF_F|ILE'.X/*|
|00002f90| 20 24 48 65 61 64 65 72 | 24 20 2a 2f 0a 58 2f 2a | $Header|$ */.X/*|
|00002fa0| 0a 58 20 2a 20 6d 61 6c | 6c 6f 63 2e 68 3a 20 44 |.X * mal|loc.h: D|
|00002fb0| 65 62 75 67 67 69 6e 67 | 20 6d 61 6c 6c 6f 63 20 |ebugging| malloc |
|00002fc0| 75 74 69 6c 73 2e 0a 58 | 20 2a 0a 58 20 2a 2f 0a |utils..X| *.X */.|
|00002fd0| 58 23 69 66 6e 64 65 66 | 20 5f 68 5f 6d 61 6c 6c |X#ifndef| _h_mall|
|00002fe0| 6f 63 0a 58 23 64 65 66 | 69 6e 65 20 5f 68 5f 6d |oc.X#def|ine _h_m|
|00002ff0| 61 6c 6c 6f 63 0a 58 0a | 58 0a 58 23 69 66 64 65 |alloc.X.|X.X#ifde|
|00003000| 66 20 5f 5f 53 54 44 43 | 5f 5f 0a 58 23 20 64 65 |f __STDC|__.X# de|
|00003010| 66 69 6e 65 20 50 5f 28 | 61 29 09 61 0a 58 23 65 |fine P_(|a).a.X#e|
|00003020| 6c 73 65 0a 58 23 20 64 | 65 66 69 6e 65 20 50 5f |lse.X# d|efine P_|
|00003030| 28 61 29 20 20 28 29 0a | 58 23 65 6e 64 69 66 20 |(a) ().|X#endif |
|00003040| 2f 2a 20 5f 5f 53 54 44 | 43 5f 5f 20 2a 2f 0a 58 |/* __STD|C__ */.X|
|00003050| 0a 58 23 69 66 64 65 66 | 20 5f 5f 53 54 44 43 5f |.X#ifdef| __STDC_|
|00003060| 5f 0a 58 23 20 69 66 6e | 64 65 66 20 5f 4d 45 4d |_.X# ifn|def _MEM|
|00003070| 41 4c 49 47 4e 5f 54 0a | 58 23 20 20 64 65 66 69 |ALIGN_T.|X# defi|
|00003080| 6e 65 20 5f 4d 45 4d 41 | 4c 49 47 4e 5f 54 0a 58 |ne _MEMA|LIGN_T.X|
|00003090| 20 20 20 74 79 70 65 64 | 65 66 20 76 6f 69 64 20 | typed|ef void |
|000030a0| 2a 6d 65 6d 61 6c 69 67 | 6e 5f 74 3b 0a 58 23 20 |*memalig|n_t;.X# |
|000030b0| 65 6e 64 69 66 20 2f 2a | 20 5f 4d 45 4d 41 4c 49 |endif /*| _MEMALI|
|000030c0| 47 4e 5f 54 20 2a 2f 0a | 58 23 20 69 66 6e 64 65 |GN_T */.|X# ifnde|
|000030d0| 66 20 5f 50 54 52 5f 54 | 0a 58 23 20 20 64 65 66 |f _PTR_T|.X# def|
|000030e0| 69 6e 65 20 5f 50 54 52 | 5f 54 0a 58 20 20 20 74 |ine _PTR|_T.X t|
|000030f0| 79 70 65 64 65 66 20 76 | 6f 69 64 20 2a 70 74 72 |ypedef v|oid *ptr|
|00003100| 5f 74 3b 0a 58 23 20 65 | 6e 64 69 66 20 2f 2a 20 |_t;.X# e|ndif /* |
|00003110| 5f 50 54 52 5f 54 20 2a | 2f 0a 58 23 65 6c 73 65 |_PTR_T *|/.X#else|
|00003120| 20 2f 2a 20 21 20 5f 5f | 53 54 44 43 5f 5f 20 2a | /* ! __|STDC__ *|
|00003130| 2f 0a 58 23 20 69 66 6e | 64 65 66 20 5f 50 54 52 |/.X# ifn|def _PTR|
|00003140| 5f 54 0a 58 23 20 20 64 | 65 66 69 6e 65 20 5f 50 |_T.X# d|efine _P|
|00003150| 54 52 5f 54 0a 58 20 20 | 20 74 79 70 65 64 65 66 |TR_T.X | typedef|
|00003160| 20 63 68 61 72 20 2a 70 | 74 72 5f 74 3b 0a 58 23 | char *p|tr_t;.X#|
|00003170| 20 65 6e 64 69 66 20 2f | 2a 20 5f 50 54 52 5f 54 | endif /|* _PTR_T|
|00003180| 20 2a 2f 0a 58 23 20 69 | 66 64 65 66 20 6c 69 6e | */.X# i|fdef lin|
|00003190| 74 0a 58 20 20 20 2f 2a | 20 46 6f 6f 6c 20 6c 69 |t.X /*| Fool li|
|000031a0| 6e 74 20 74 6f 20 62 65 | 6c 69 65 76 65 20 74 68 |nt to be|lieve th|
|000031b0| 61 74 20 4d 61 6c 6c 6f | 63 20 72 65 74 75 72 6e |at Mallo|c return|
|000031c0| 73 20 61 6c 69 67 6e 65 | 64 20 70 6f 69 6e 74 65 |s aligne|d pointe|
|000031d0| 72 73 2e 2e 2e 20 2a 2f | 0a 58 23 20 20 69 66 6e |rs... */|.X# ifn|
|000031e0| 64 65 66 20 5f 4d 45 4d | 41 4c 49 47 4e 5f 54 0a |def _MEM|ALIGN_T.|
|000031f0| 58 23 20 20 20 64 65 66 | 69 6e 65 20 5f 4d 45 4d |X# def|ine _MEM|
|00003200| 41 4c 49 47 4e 5f 54 0a | 58 20 20 20 20 74 79 70 |ALIGN_T.|X typ|
|00003210| 65 64 65 66 20 75 6e 69 | 6f 6e 20 5f 6d 65 6d 61 |edef uni|on _mema|
|00003220| 6c 69 67 6e 5f 74 20 7b | 0a 58 09 63 68 61 72 20 |lign_t {|.X.char |
|00003230| 61 3b 20 73 68 6f 72 74 | 20 62 3b 20 69 6e 74 20 |a; short| b; int |
|00003240| 63 3b 20 6c 6f 6e 67 20 | 64 3b 20 66 6c 6f 61 74 |c; long |d; float|
|00003250| 20 65 3b 20 64 6f 75 62 | 6c 65 20 66 3b 20 75 6e | e; doub|le f; un|
|00003260| 69 6f 6e 20 5f 6d 65 6d | 61 6c 69 67 6e 5f 74 20 |ion _mem|align_t |
|00003270| 2a 67 3b 0a 58 20 20 20 | 20 7d 20 2a 6d 65 6d 61 |*g;.X | } *mema|
|00003280| 6c 69 67 6e 5f 74 3b 0a | 58 23 20 20 65 6e 64 69 |lign_t;.|X# endi|
|00003290| 66 20 2f 2a 20 5f 4d 45 | 4d 41 4c 49 47 4e 5f 54 |f /* _ME|MALIGN_T|
|000032a0| 20 2a 2f 0a 58 23 20 65 | 6c 73 65 0a 58 23 20 20 | */.X# e|lse.X# |
|000032b0| 69 66 6e 64 65 66 20 5f | 4d 45 4d 41 4c 49 47 4e |ifndef _|MEMALIGN|
|000032c0| 5f 54 0a 58 23 20 20 20 | 64 65 66 69 6e 65 20 5f |_T.X# |define _|
|000032d0| 4d 45 4d 41 4c 49 47 4e | 5f 54 0a 58 20 20 20 20 |MEMALIGN|_T.X |
|000032e0| 74 79 70 65 64 65 66 20 | 63 68 61 72 20 2a 6d 65 |typedef |char *me|
|000032f0| 6d 61 6c 69 67 6e 5f 74 | 3b 0a 58 23 20 20 65 6e |malign_t|;.X# en|
|00003300| 64 69 66 20 2f 2a 20 5f | 4d 45 4d 41 4c 49 47 4e |dif /* _|MEMALIGN|
|00003310| 5f 54 20 2a 2f 0a 58 23 | 20 65 6e 64 69 66 20 2f |_T */.X#| endif /|
|00003320| 2a 20 6c 69 6e 74 20 2a | 2f 0a 58 0a 58 23 65 6e |* lint *|/.X.X#en|
|00003330| 64 69 66 20 2f 2a 20 21 | 20 5f 5f 53 54 44 43 5f |dif /* !| __STDC_|
|00003340| 5f 20 2a 2f 0a 58 0a 58 | 2f 2a 0a 58 20 2a 20 4d |_ */.X.X|/*.X * M|
|00003350| 65 6d 6f 72 79 20 61 6c | 6c 6f 63 61 74 69 6f 6e |emory al|location|
|00003360| 20 6d 61 63 72 6f 73 0a | 58 20 2a 2f 0a 58 23 69 | macros.|X */.X#i|
|00003370| 66 64 65 66 20 44 45 42 | 55 47 0a 58 23 20 64 65 |fdef DEB|UG.X# de|
|00003380| 66 69 6e 65 20 6d 61 6c | 6c 6f 63 28 61 29 09 28 |fine mal|loc(a).(|
|00003390| 70 74 72 5f 74 29 20 44 | 65 62 75 67 4d 61 6c 6c |ptr_t) D|ebugMall|
|000033a0| 6f 63 28 61 2c 20 5f 5f | 46 49 4c 45 5f 5f 2c 20 |oc(a, __|FILE__, |
|000033b0| 5f 5f 4c 49 4e 45 5f 5f | 29 0a 58 23 20 64 65 66 |__LINE__|).X# def|
|000033c0| 69 6e 65 20 72 65 61 6c | 6c 6f 63 28 61 2c 20 6e |ine real|loc(a, n|
|000033d0| 29 09 28 70 74 72 5f 74 | 29 20 44 65 62 75 67 52 |).(ptr_t|) DebugR|
|000033e0| 65 61 6c 6c 6f 63 28 61 | 2c 20 6e 2c 20 5f 5f 46 |ealloc(a|, n, __F|
|000033f0| 49 4c 45 5f 5f 2c 20 5f | 5f 4c 49 4e 45 5f 5f 29 |ILE__, _|_LINE__)|
|00003400| 0a 58 23 20 64 65 66 69 | 6e 65 20 63 61 6c 6c 6f |.X# defi|ne callo|
|00003410| 63 28 61 2c 20 6e 29 09 | 28 70 74 72 5f 74 29 20 |c(a, n).|(ptr_t) |
|00003420| 44 65 62 75 67 43 61 6c | 6c 6f 63 28 61 2c 20 6e |DebugCal|loc(a, n|
|00003430| 2c 20 5f 5f 46 49 4c 45 | 5f 5f 2c 20 5f 5f 4c 49 |, __FILE|__, __LI|
|00003440| 4e 45 29 0a 58 23 20 64 | 65 66 69 6e 65 20 66 72 |NE).X# d|efine fr|
|00003450| 65 65 28 61 29 09 44 65 | 62 75 67 46 72 65 65 28 |ee(a).De|bugFree(|
|00003460| 61 2c 20 5f 5f 46 49 4c | 45 5f 5f 2c 20 5f 5f 4c |a, __FIL|E__, __L|
|00003470| 49 4e 45 5f 5f 29 0a 58 | 23 20 64 65 66 69 6e 65 |INE__).X|# define|
|00003480| 20 4d 65 6d 50 74 72 28 | 61 29 09 44 65 62 75 67 | MemPtr(|a).Debug|
|00003490| 4d 65 6d 50 74 72 28 61 | 2c 20 5f 5f 46 49 4c 45 |MemPtr(a|, __FILE|
|000034a0| 5f 5f 2c 20 5f 5f 4c 49 | 4e 45 5f 5f 29 0a 58 23 |__, __LI|NE__).X#|
|000034b0| 20 64 65 66 69 6e 65 20 | 4d 65 6d 53 74 61 74 28 | define |MemStat(|
|000034c0| 29 09 44 65 62 75 67 4d | 65 6d 53 74 61 74 28 29 |).DebugM|emStat()|
|000034d0| 0a 58 23 20 64 65 66 69 | 6e 65 20 4d 65 6d 43 68 |.X# defi|ne MemCh|
|000034e0| 61 69 6e 28 29 09 44 65 | 62 75 67 4d 65 6d 43 68 |ain().De|bugMemCh|
|000034f0| 61 69 6e 28 29 0a 58 23 | 65 6c 73 65 0a 58 23 20 |ain().X#|else.X# |
|00003500| 64 65 66 69 6e 65 20 4d | 65 6d 50 74 72 28 61 29 |define M|emPtr(a)|
|00003510| 0a 58 23 20 64 65 66 69 | 6e 65 20 4d 65 6d 53 74 |.X# defi|ne MemSt|
|00003520| 61 74 28 29 0a 58 23 20 | 64 65 66 69 6e 65 20 4d |at().X# |define M|
|00003530| 65 6d 43 68 61 69 6e 28 | 29 0a 58 23 65 6e 64 69 |emChain(|).X#endi|
|00003540| 66 20 2f 2a 20 44 45 42 | 55 47 20 2a 2f 0a 58 0a |f /* DEB|UG */.X.|
|00003550| 58 23 69 66 64 65 66 20 | 44 45 42 55 47 0a 58 65 |X#ifdef |DEBUG.Xe|
|00003560| 78 74 65 72 6e 20 6d 65 | 6d 61 6c 69 67 6e 5f 74 |xtern me|malign_t|
|00003570| 20 44 65 62 75 67 4d 61 | 6c 6c 6f 63 20 20 20 50 | DebugMa|lloc P|
|00003580| 5f 28 28 75 6e 73 69 67 | 6e 65 64 2c 20 63 68 61 |_((unsig|ned, cha|
|00003590| 72 20 2a 2c 20 69 6e 74 | 29 29 3b 0a 58 65 78 74 |r *, int|));.Xext|
|000035a0| 65 72 6e 20 6d 65 6d 61 | 6c 69 67 6e 5f 74 20 44 |ern mema|lign_t D|
|000035b0| 65 62 75 67 43 61 6c 6c | 6f 63 20 20 20 50 5f 28 |ebugCall|oc P_(|
|000035c0| 28 75 6e 73 69 67 6e 65 | 64 2c 20 75 6e 73 69 67 |(unsigne|d, unsig|
|000035d0| 6e 65 64 2c 20 63 68 61 | 72 20 2a 2c 20 69 6e 74 |ned, cha|r *, int|
|000035e0| 29 29 3b 0a 58 65 78 74 | 65 72 6e 20 6d 65 6d 61 |));.Xext|ern mema|
|000035f0| 6c 69 67 6e 5f 74 20 44 | 65 62 75 67 52 65 61 6c |lign_t D|ebugReal|
|00003600| 6c 6f 63 20 20 50 5f 28 | 28 70 74 72 5f 74 2c 20 |loc P_(|(ptr_t, |
|00003610| 75 6e 73 69 67 6e 65 64 | 2c 20 63 68 61 72 20 2a |unsigned|, char *|
|00003620| 2c 20 69 6e 74 29 29 3b | 0a 58 65 78 74 65 72 6e |, int));|.Xextern|
|00003630| 20 6d 65 6d 61 6c 69 67 | 6e 5f 74 20 44 65 62 75 | memalig|n_t Debu|
|00003640| 67 46 72 65 65 20 20 20 | 20 20 50 5f 28 28 70 74 |gFree | P_((pt|
|00003650| 72 5f 74 2c 20 63 68 61 | 72 20 2a 2c 20 69 6e 74 |r_t, cha|r *, int|
|00003660| 29 29 3b 0a 58 65 78 74 | 65 72 6e 20 75 6e 73 69 |));.Xext|ern unsi|
|00003670| 67 6e 65 64 20 20 20 44 | 65 62 75 67 4d 65 6d 50 |gned D|ebugMemP|
|00003680| 74 72 20 20 20 50 5f 28 | 28 70 74 72 5f 74 2c 20 |tr P_(|(ptr_t, |
|00003690| 63 68 61 72 20 2a 2c 20 | 69 6e 74 29 29 3b 0a 58 |char *, |int));.X|
|000036a0| 65 78 74 65 72 6e 20 75 | 6e 73 69 67 6e 65 64 20 |extern u|nsigned |
|000036b0| 20 20 44 65 62 75 67 4d | 65 6d 53 74 61 74 20 20 | DebugM|emStat |
|000036c0| 50 5f 28 28 76 6f 69 64 | 29 29 3b 0a 58 65 78 74 |P_((void|));.Xext|
|000036d0| 65 72 6e 20 6d 65 6d 61 | 6c 69 67 6e 5f 74 20 44 |ern mema|lign_t D|
|000036e0| 65 62 75 67 4d 65 6d 43 | 68 61 69 6e 20 50 5f 28 |ebugMemC|hain P_(|
|000036f0| 28 76 6f 69 64 29 29 3b | 0a 58 23 65 6e 64 69 66 |(void));|.X#endif|
|00003700| 0a 58 0a 58 23 65 6e 64 | 69 66 20 2f 2a 20 5f 68 |.X.X#end|if /* _h|
|00003710| 5f 6d 61 6c 6c 6f 63 20 | 2a 2f 0a 45 4e 44 5f 4f |_malloc |*/.END_O|
|00003720| 46 5f 46 49 4c 45 0a 69 | 66 20 74 65 73 74 20 31 |F_FILE.i|f test 1|
|00003730| 38 36 30 20 2d 6e 65 20 | 60 77 63 20 2d 63 20 3c |860 -ne |`wc -c <|
|00003740| 27 6d 61 6c 6c 6f 63 2e | 68 27 60 3b 20 74 68 65 |'malloc.|h'`; the|
|00003750| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|00003760| 20 5c 22 27 6d 61 6c 6c | 6f 63 2e 68 27 5c 22 20 | \"'mall|oc.h'\" |
|00003770| 75 6e 70 61 63 6b 65 64 | 20 77 69 74 68 20 77 72 |unpacked| with wr|
|00003780| 6f 6e 67 20 73 69 7a 65 | 21 0a 66 69 0a 23 20 65 |ong size|!.fi.# e|
|00003790| 6e 64 20 6f 66 20 27 6d | 61 6c 6c 6f 63 2e 68 27 |nd of 'm|alloc.h'|
|000037a0| 0a 66 69 0a 69 66 20 74 | 65 73 74 20 2d 66 20 27 |.fi.if t|est -f '|
|000037b0| 74 73 74 2e 63 27 20 2d | 61 20 22 24 7b 31 7d 22 |tst.c' -|a "${1}"|
|000037c0| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|000037d0| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |. echo |shar: Wi|
|000037e0| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|000037f0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|00003800| 74 73 74 2e 63 27 5c 22 | 0a 65 6c 73 65 0a 65 63 |tst.c'\"|.else.ec|
|00003810| 68 6f 20 73 68 61 72 3a | 20 45 78 74 72 61 63 74 |ho shar:| Extract|
|00003820| 69 6e 67 20 5c 22 27 74 | 73 74 2e 63 27 5c 22 20 |ing \"'t|st.c'\" |
|00003830| 5c 28 32 32 32 33 20 63 | 68 61 72 61 63 74 65 72 |\(2223 c|haracter|
|00003840| 73 5c 29 0a 73 65 64 20 | 22 73 2f 5e 58 2f 2f 22 |s\).sed |"s/^X//"|
|00003850| 20 3e 27 74 73 74 2e 63 | 27 20 3c 3c 27 45 4e 44 | >'tst.c|' <<'END|
|00003860| 5f 4f 46 5f 46 49 4c 45 | 27 0a 58 0a 58 23 69 6e |_OF_FILE|'.X.X#in|
|00003870| 63 6c 75 64 65 20 3c 73 | 74 64 69 6f 2e 68 3e 0a |clude <s|tdio.h>.|
|00003880| 58 23 69 6e 63 6c 75 64 | 65 20 3c 73 69 67 6e 61 |X#includ|e <signa|
|00003890| 6c 2e 68 3e 0a 58 23 69 | 6e 63 6c 75 64 65 20 3c |l.h>.X#i|nclude <|
|000038a0| 73 65 74 6a 6d 70 2e 68 | 3e 0a 58 0a 58 23 69 66 |setjmp.h|>.X.X#if|
|000038b0| 64 65 66 20 5f 5f 53 54 | 44 43 5f 5f 0a 58 23 20 |def __ST|DC__.X# |
|000038c0| 69 6e 63 6c 75 64 65 20 | 3c 73 74 64 6c 69 62 2e |include |<stdlib.|
|000038d0| 68 3e 0a 58 23 20 69 6e | 63 6c 75 64 65 20 3c 6d |h>.X# in|clude <m|
|000038e0| 65 6d 6f 72 79 2e 68 3e | 0a 58 23 65 6c 73 65 0a |emory.h>|.X#else.|
|000038f0| 58 65 78 74 65 72 6e 20 | 63 68 61 72 20 2a 6d 61 |Xextern |char *ma|
|00003900| 6c 6c 6f 63 28 29 3b 0a | 58 65 78 74 65 72 6e 20 |lloc();.|Xextern |
|00003910| 63 68 61 72 20 2a 63 61 | 6c 6c 6f 63 28 29 3b 0a |char *ca|lloc();.|
|00003920| 58 65 78 74 65 72 6e 20 | 63 68 61 72 20 2a 72 65 |Xextern |char *re|
|00003930| 61 6c 6c 6f 63 28 29 3b | 0a 58 65 78 74 65 72 6e |alloc();|.Xextern|
|00003940| 20 76 6f 69 64 20 66 72 | 65 65 28 29 3b 0a 58 65 | void fr|ee();.Xe|
|00003950| 78 74 65 72 6e 20 76 6f | 69 64 20 61 62 6f 72 74 |xtern vo|id abort|
|00003960| 28 29 3b 0a 58 65 78 74 | 65 72 6e 20 63 68 61 72 |();.Xext|ern char|
|00003970| 20 2a 6d 65 6d 73 65 74 | 28 29 3b 0a 58 65 78 74 | *memset|();.Xext|
|00003980| 65 72 6e 20 76 6f 69 64 | 20 65 78 69 74 28 29 3b |ern void| exit();|
|00003990| 0a 58 23 65 6e 64 69 66 | 0a 58 0a 58 23 69 6e 63 |.X#endif|.X.X#inc|
|000039a0| 6c 75 64 65 20 22 6d 61 | 6c 6c 6f 63 2e 68 22 0a |lude "ma|lloc.h".|
|000039b0| 58 0a 58 6a 6d 70 5f 62 | 75 66 20 6a 62 3b 0a 58 |X.Xjmp_b|uf jb;.X|
|000039c0| 0a 58 0a 58 76 6f 69 64 | 0a 58 73 69 67 69 6f 74 |.X.Xvoid|.Xsigiot|
|000039d0| 28 29 0a 58 7b 0a 58 20 | 20 20 20 73 69 67 6e 61 |().X{.X | signa|
|000039e0| 6c 28 53 49 47 49 4f 54 | 2c 20 73 69 67 69 6f 74 |l(SIGIOT|, sigiot|
|000039f0| 29 3b 0a 58 20 20 20 20 | 4d 65 6d 43 68 61 69 6e |);.X |MemChain|
|00003a00| 28 29 3b 0a 58 20 20 20 | 20 6c 6f 6e 67 6a 6d 70 |();.X | longjmp|
|00003a10| 28 6a 62 2c 20 31 29 3b | 0a 58 7d 0a 58 0a 58 0a |(jb, 1);|.X}.X.X.|
|00003a20| 58 6d 61 69 6e 28 29 0a | 58 7b 0a 58 20 20 20 20 |Xmain().|X{.X |
|00003a30| 63 68 61 72 20 2a 70 74 | 72 3b 0a 58 0a 58 20 20 |char *pt|r;.X.X |
|00003a40| 20 20 73 69 67 6e 61 6c | 28 53 49 47 49 4f 54 2c | signal|(SIGIOT,|
|00003a50| 20 73 69 67 69 6f 74 29 | 3b 0a 58 0a 58 20 20 20 | sigiot)|;.X.X |
|00003a60| 20 69 66 20 28 21 73 65 | 74 6a 6d 70 28 6a 62 29 | if (!se|tjmp(jb)|
|00003a70| 29 20 7b 0a 58 09 70 74 | 72 20 3d 20 28 63 68 61 |) {.X.pt|r = (cha|
|00003a80| 72 20 2a 29 20 6d 61 6c | 6c 6f 63 28 31 30 29 3b |r *) mal|loc(10);|
|00003a90| 0a 58 09 28 76 6f 69 64 | 29 20 66 70 72 69 6e 74 |.X.(void|) fprint|
|00003aa0| 66 28 73 74 64 65 72 72 | 2c 20 22 31 2e 20 4d 61 |f(stderr|, "1. Ma|
|00003ab0| 6c 6c 6f 63 20 31 30 20 | 6f 6b 5c 6e 22 29 3b 0a |lloc 10 |ok\n");.|
|00003ac0| 58 20 20 20 20 7d 0a 58 | 20 20 20 20 65 6c 73 65 |X }.X| else|
|00003ad0| 20 0a 58 09 28 76 6f 69 | 64 29 20 66 70 72 69 6e | .X.(voi|d) fprin|
|00003ae0| 74 66 28 73 74 64 65 72 | 72 2c 20 22 31 2e 20 4d |tf(stder|r, "1. M|
|00003af0| 61 6c 6c 6f 63 20 31 30 | 20 66 61 69 6c 65 64 5c |alloc 10| failed\|
|00003b00| 6e 22 29 3b 0a 58 0a 58 | 20 20 20 20 69 66 20 28 |n");.X.X| if (|
|00003b10| 21 73 65 74 6a 6d 70 28 | 6a 62 29 29 20 7b 0a 58 |!setjmp(|jb)) {.X|
|00003b20| 09 6d 61 6c 6c 6f 63 28 | 30 29 3b 0a 58 09 28 76 |.malloc(|0);.X.(v|
|00003b30| 6f 69 64 29 20 66 70 72 | 69 6e 74 66 28 73 74 64 |oid) fpr|intf(std|
|00003b40| 65 72 72 2c 20 22 32 2e | 20 4d 61 6c 6c 6f 63 20 |err, "2.| Malloc |
|00003b50| 30 20 66 61 69 6c 65 64 | 5c 6e 22 29 3b 0a 58 20 |0 failed|\n");.X |
|00003b60| 20 20 20 7d 0a 58 20 20 | 20 20 65 6c 73 65 20 0a | }.X | else .|
|00003b70| 58 09 28 76 6f 69 64 29 | 20 66 70 72 69 6e 74 66 |X.(void)| fprintf|
|00003b80| 28 73 74 64 65 72 72 2c | 20 22 32 2e 20 4d 61 6c |(stderr,| "2. Mal|
|00003b90| 6c 6f 63 20 30 20 6f 6b | 5c 6e 22 29 3b 0a 58 0a |loc 0 ok|\n");.X.|
|00003ba0| 58 20 20 20 20 69 66 20 | 28 21 73 65 74 6a 6d 70 |X if |(!setjmp|
|00003bb0| 28 6a 62 29 29 20 7b 0a | 58 09 72 65 61 6c 6c 6f |(jb)) {.|X.reallo|
|00003bc0| 63 28 30 2c 20 32 30 29 | 3b 0a 58 09 28 76 6f 69 |c(0, 20)|;.X.(voi|
|00003bd0| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00003be0| 72 2c 20 22 33 2e 20 52 | 65 61 6c 6c 6f 63 20 6e |r, "3. R|ealloc n|
|00003bf0| 75 6c 6c 20 66 61 69 6c | 65 64 5c 6e 22 29 3b 0a |ull fail|ed\n");.|
|00003c00| 58 20 20 20 20 7d 0a 58 | 20 20 20 20 65 6c 73 65 |X }.X| else|
|00003c10| 20 0a 58 09 28 76 6f 69 | 64 29 20 66 70 72 69 6e | .X.(voi|d) fprin|
|00003c20| 74 66 28 73 74 64 65 72 | 72 2c 20 22 33 2e 20 52 |tf(stder|r, "3. R|
|00003c30| 65 61 6c 6c 6f 63 20 6e | 75 6c 6c 20 6f 6b 5c 6e |ealloc n|ull ok\n|
|00003c40| 22 29 3b 0a 58 0a 58 20 | 20 20 20 69 66 20 28 21 |");.X.X | if (!|
|00003c50| 73 65 74 6a 6d 70 28 6a | 62 29 29 20 7b 0a 58 09 |setjmp(j|b)) {.X.|
|00003c60| 72 65 61 6c 6c 6f 63 28 | 70 74 72 2c 20 30 29 3b |realloc(|ptr, 0);|
|00003c70| 0a 58 09 28 76 6f 69 64 | 29 20 66 70 72 69 6e 74 |.X.(void|) fprint|
|00003c80| 66 28 73 74 64 65 72 72 | 2c 20 22 34 2e 20 52 65 |f(stderr|, "4. Re|
|00003c90| 61 6c 6c 6f 63 20 30 20 | 66 61 69 6c 65 64 5c 6e |alloc 0 |failed\n|
|00003ca0| 22 29 3b 0a 58 20 20 20 | 20 7d 0a 58 20 20 20 20 |");.X | }.X |
|00003cb0| 65 6c 73 65 20 0a 58 09 | 28 76 6f 69 64 29 20 66 |else .X.|(void) f|
|00003cc0| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 20 22 |printf(s|tderr, "|
|00003cd0| 34 2e 20 52 65 61 6c 6c | 6f 63 20 30 20 6f 6b 5c |4. Reall|oc 0 ok\|
|00003ce0| 6e 22 29 3b 0a 58 0a 58 | 20 20 20 20 69 66 20 28 |n");.X.X| if (|
|00003cf0| 21 73 65 74 6a 6d 70 28 | 6a 62 29 29 20 7b 0a 58 |!setjmp(|jb)) {.X|
|00003d00| 09 70 74 72 20 3d 20 28 | 63 68 61 72 20 2a 29 20 |.ptr = (|char *) |
|00003d10| 72 65 61 6c 6c 6f 63 28 | 70 74 72 2c 20 34 30 29 |realloc(|ptr, 40)|
|00003d20| 3b 0a 58 09 28 76 6f 69 | 64 29 20 66 70 72 69 6e |;.X.(voi|d) fprin|
|00003d30| 74 66 28 73 74 64 65 72 | 72 2c 20 22 35 2e 20 52 |tf(stder|r, "5. R|
|00003d40| 65 61 6c 6c 6f 63 20 76 | 61 6c 69 64 20 6f 6b 5c |ealloc v|alid ok\|
|00003d50| 6e 22 29 3b 0a 58 20 20 | 20 20 7d 0a 58 20 20 20 |n");.X | }.X |
|00003d60| 20 65 6c 73 65 20 0a 58 | 09 28 76 6f 69 64 29 20 | else .X|.(void) |
|00003d70| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00003d80| 22 35 2e 20 52 65 61 6c | 6c 6f 63 20 76 61 6c 69 |"5. Real|loc vali|
|00003d90| 64 20 66 61 69 6c 65 64 | 5c 6e 22 29 3b 0a 58 0a |d failed|\n");.X.|
|00003da0| 58 20 20 20 20 69 66 20 | 28 21 73 65 74 6a 6d 70 |X if |(!setjmp|
|00003db0| 28 6a 62 29 29 20 7b 0a | 58 09 70 74 72 20 3d 20 |(jb)) {.|X.ptr = |
|00003dc0| 28 63 68 61 72 20 2a 29 | 20 72 65 61 6c 6c 6f 63 |(char *)| realloc|
|00003dd0| 28 32 30 2c 20 34 30 29 | 3b 0a 58 09 28 76 6f 69 |(20, 40)|;.X.(voi|
|00003de0| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00003df0| 72 2c 20 22 36 2e 20 52 | 65 61 6c 6c 6f 63 20 69 |r, "6. R|ealloc i|
|00003e00| 6e 76 61 6c 69 64 20 66 | 61 69 6c 65 64 5c 6e 22 |nvalid f|ailed\n"|
|00003e10| 29 3b 0a 58 20 20 20 20 | 7d 0a 58 20 20 20 20 65 |);.X |}.X e|
|00003e20| 6c 73 65 20 0a 58 09 28 | 76 6f 69 64 29 20 66 70 |lse .X.(|void) fp|
|00003e30| 72 69 6e 74 66 28 73 74 | 64 65 72 72 2c 20 22 36 |rintf(st|derr, "6|
|00003e40| 2e 20 52 65 61 6c 6c 6f | 63 20 69 6e 76 61 6c 69 |. Reallo|c invali|
|00003e50| 64 20 6f 6b 5c 6e 22 29 | 3b 0a 58 0a 58 20 20 20 |d ok\n")|;.X.X |
|00003e60| 20 69 66 20 28 21 73 65 | 74 6a 6d 70 28 6a 62 29 | if (!se|tjmp(jb)|
|00003e70| 29 20 7b 0a 58 09 66 72 | 65 65 28 30 29 3b 0a 58 |) {.X.fr|ee(0);.X|
|00003e80| 09 28 76 6f 69 64 29 20 | 66 70 72 69 6e 74 66 28 |.(void) |fprintf(|
|00003e90| 73 74 64 65 72 72 2c 20 | 22 37 2e 20 46 72 65 65 |stderr, |"7. Free|
|00003ea0| 20 6e 75 6c 6c 20 66 61 | 69 6c 65 64 5c 6e 22 29 | null fa|iled\n")|
|00003eb0| 3b 0a 58 20 20 20 20 7d | 0a 58 20 20 20 20 65 6c |;.X }|.X el|
|00003ec0| 73 65 20 0a 58 09 28 76 | 6f 69 64 29 20 66 70 72 |se .X.(v|oid) fpr|
|00003ed0| 69 6e 74 66 28 73 74 64 | 65 72 72 2c 20 22 37 2e |intf(std|err, "7.|
|00003ee0| 20 46 72 65 65 20 6e 75 | 6c 6c 20 6f 6b 5c 6e 22 | Free nu|ll ok\n"|
|00003ef0| 29 3b 0a 58 0a 58 20 20 | 20 20 69 66 20 28 21 73 |);.X.X | if (!s|
|00003f00| 65 74 6a 6d 70 28 6a 62 | 29 29 20 7b 0a 58 09 66 |etjmp(jb|)) {.X.f|
|00003f10| 72 65 65 28 70 74 72 29 | 3b 0a 58 09 28 76 6f 69 |ree(ptr)|;.X.(voi|
|00003f20| 64 29 20 66 70 72 69 6e | 74 66 28 73 74 64 65 72 |d) fprin|tf(stder|
|00003f30| 72 2c 20 22 38 2e 20 46 | 72 65 65 20 76 61 6c 69 |r, "8. F|ree vali|
|00003f40| 64 20 6f 6b 5c 6e 22 29 | 3b 0a 58 20 20 20 20 7d |d ok\n")|;.X }|
|00003f50| 0a 58 20 20 20 20 65 6c | 73 65 20 0a 58 09 28 76 |.X el|se .X.(v|
|00003f60| 6f 69 64 29 20 66 70 72 | 69 6e 74 66 28 73 74 64 |oid) fpr|intf(std|
|00003f70| 65 72 72 2c 20 22 38 2e | 20 46 72 65 65 20 76 61 |err, "8.| Free va|
|00003f80| 6c 69 64 20 66 61 69 6c | 65 64 5c 6e 22 29 3b 0a |lid fail|ed\n");.|
|00003f90| 58 0a 58 20 20 20 20 69 | 66 20 28 21 73 65 74 6a |X.X i|f (!setj|
|00003fa0| 6d 70 28 6a 62 29 29 20 | 7b 0a 58 09 66 72 65 65 |mp(jb)) |{.X.free|
|00003fb0| 28 32 30 29 3b 0a 58 09 | 28 76 6f 69 64 29 20 66 |(20);.X.|(void) f|
|00003fc0| 70 72 69 6e 74 66 28 73 | 74 64 65 72 72 2c 20 22 |printf(s|tderr, "|
|00003fd0| 39 2e 20 46 72 65 65 20 | 69 6e 76 61 6c 69 64 20 |9. Free |invalid |
|00003fe0| 66 61 69 6c 65 64 5c 6e | 22 29 3b 0a 58 20 20 20 |failed\n|");.X |
|00003ff0| 20 7d 0a 58 20 20 20 20 | 65 6c 73 65 20 0a 58 09 | }.X |else .X.|
|00004000| 28 76 6f 69 64 29 20 66 | 70 72 69 6e 74 66 28 73 |(void) f|printf(s|
|00004010| 74 64 65 72 72 2c 20 22 | 39 2e 20 46 72 65 65 20 |tderr, "|9. Free |
|00004020| 69 6e 76 61 6c 69 64 20 | 6f 6b 5c 6e 22 29 3b 0a |invalid |ok\n");.|
|00004030| 58 0a 58 20 20 20 20 69 | 66 20 28 21 73 65 74 6a |X.X i|f (!setj|
|00004040| 6d 70 28 6a 62 29 29 20 | 7b 0a 58 09 66 72 65 65 |mp(jb)) |{.X.free|
|00004050| 28 70 74 72 29 3b 0a 58 | 09 28 76 6f 69 64 29 20 |(ptr);.X|.(void) |
|00004060| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00004070| 22 31 30 2e 20 46 72 65 | 65 20 66 72 65 65 64 20 |"10. Fre|e freed |
|00004080| 66 61 69 6c 65 64 5c 6e | 22 29 3b 0a 58 20 20 20 |failed\n|");.X |
|00004090| 20 7d 0a 58 20 20 20 20 | 65 6c 73 65 20 0a 58 09 | }.X |else .X.|
|000040a0| 28 76 6f 69 64 29 20 66 | 70 72 69 6e 74 66 28 73 |(void) f|printf(s|
|000040b0| 74 64 65 72 72 2c 20 22 | 31 30 2e 20 46 72 65 65 |tderr, "|10. Free|
|000040c0| 20 66 72 65 65 64 20 6f | 6b 5c 6e 22 29 3b 0a 58 | freed o|k\n");.X|
|000040d0| 0a 58 20 20 20 20 69 66 | 20 28 21 73 65 74 6a 6d |.X if| (!setjm|
|000040e0| 70 28 6a 62 29 29 20 7b | 0a 58 09 72 65 61 6c 6c |p(jb)) {|.X.reall|
|000040f0| 6f 63 28 70 74 72 2c 20 | 32 30 29 3b 0a 58 09 28 |oc(ptr, |20);.X.(|
|00004100| 76 6f 69 64 29 20 66 70 | 72 69 6e 74 66 28 73 74 |void) fp|rintf(st|
|00004110| 64 65 72 72 2c 20 22 31 | 31 2e 20 52 65 61 6c 6c |derr, "1|1. Reall|
|00004120| 6f 63 20 66 72 65 65 64 | 20 66 61 69 6c 65 64 5c |oc freed| failed\|
|00004130| 6e 22 29 3b 0a 58 20 20 | 20 20 7d 0a 58 20 20 20 |n");.X | }.X |
|00004140| 20 65 6c 73 65 20 0a 58 | 09 28 76 6f 69 64 29 20 | else .X|.(void) |
|00004150| 66 70 72 69 6e 74 66 28 | 73 74 64 65 72 72 2c 20 |fprintf(|stderr, |
|00004160| 22 31 31 2e 20 52 65 61 | 6c 6c 6f 63 20 66 72 65 |"11. Rea|lloc fre|
|00004170| 65 64 20 6f 6b 5c 6e 22 | 29 3b 0a 58 20 20 20 20 |ed ok\n"|);.X |
|00004180| 65 78 69 74 28 30 29 3b | 0a 58 7d 0a 58 0a 45 4e |exit(0);|.X}.X.EN|
|00004190| 44 5f 4f 46 5f 46 49 4c | 45 0a 69 66 20 74 65 73 |D_OF_FIL|E.if tes|
|000041a0| 74 20 32 32 32 33 20 2d | 6e 65 20 60 77 63 20 2d |t 2223 -|ne `wc -|
|000041b0| 63 20 3c 27 74 73 74 2e | 63 27 60 3b 20 74 68 65 |c <'tst.|c'`; the|
|000041c0| 6e 0a 20 20 20 20 65 63 | 68 6f 20 73 68 61 72 3a |n. ec|ho shar:|
|000041d0| 20 5c 22 27 74 73 74 2e | 63 27 5c 22 20 75 6e 70 | \"'tst.|c'\" unp|
|000041e0| 61 63 6b 65 64 20 77 69 | 74 68 20 77 72 6f 6e 67 |acked wi|th wrong|
|000041f0| 20 73 69 7a 65 21 0a 66 | 69 0a 23 20 65 6e 64 20 | size!.f|i.# end |
|00004200| 6f 66 20 27 74 73 74 2e | 63 27 0a 66 69 0a 65 63 |of 'tst.|c'.fi.ec|
|00004210| 68 6f 20 73 68 61 72 3a | 20 45 6e 64 20 6f 66 20 |ho shar:| End of |
|00004220| 73 68 65 6c 6c 20 61 72 | 63 68 69 76 65 2e 0a 65 |shell ar|chive..e|
|00004230| 78 69 74 20 30 0a 2d 2d | 20 0a 43 68 72 69 73 74 |xit 0.--| .Christ|
|00004240| 6f 73 20 5a 6f 75 6c 61 | 73 20 20 20 20 20 20 20 |os Zoula|s |
|00004250| 20 20 7c 20 33 38 39 20 | 54 68 65 6f 72 79 20 43 | | 389 |Theory C|
|00004260| 65 6e 74 65 72 2c 20 45 | 6c 65 63 74 72 69 63 61 |enter, E|lectrica|
|00004270| 6c 20 45 6e 67 69 6e 65 | 65 72 69 6e 67 2c 0a 63 |l Engine|ering,.c|
|00004280| 68 72 69 73 74 6f 73 40 | 65 65 2e 63 6f 72 6e 65 |hristos@|ee.corne|
|00004290| 6c 6c 2e 65 64 75 20 7c | 20 43 6f 72 6e 65 6c 6c |ll.edu || Cornell|
|000042a0| 20 55 6e 69 76 65 72 73 | 69 74 79 2c 20 49 74 68 | Univers|ity, Ith|
|000042b0| 61 63 61 20 4e 59 20 31 | 34 38 35 33 2e 0a 63 68 |aca NY 1|4853..ch|
|000042c0| 72 69 73 74 6f 73 40 63 | 72 6e 6c 65 65 2e 62 69 |ristos@c|rnlee.bi|
|000042d0| 74 6e 65 74 20 20 7c 20 | 50 68 6f 6e 65 3a 20 28 |tnet | |Phone: (|
|000042e0| 36 30 37 29 20 32 35 35 | 20 30 33 30 32 2c 20 46 |607) 255| 0302, F|
|000042f0| 61 78 3a 20 28 36 30 37 | 29 20 32 35 35 20 39 30 |ax: (607|) 255 90|
|00004300| 37 32 0a | |72. | |
+--------+-------------------------+-------------------------+--------+--------+
