(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10) (FILECREATED "13-Mar-87 15:04:51" ("compiled on " {ERIS}LIBRARY>GCHAX.;26) " 9-Mar-87 13:16:50" brecompiled exprs%: \SEE-GC-ENTRY \FINDPOINTER in "Xerox Lisp 9-Mar-87 ..." dated " 9-Mar-87 13:43:48") (FILECREATED "13-Mar-87 15:03:06" {ERIS}LIBRARY>GCHAX.;26 60457 changes to%: (FNS \SEE-GC-ENTRY \FINDPOINTER) previous date%: " 5-Feb-87 15:48:11" {ERIS}LIBRARY>GCHAX.;25) \MAPGC :D4 (L (1 INCLUDEZEROCNT 0 MAPFN)) jA`HYjzIdj2AIjfIwHl?I\LIwH hl@An`J[K\jA!KwHl?LLKwH il@JjnHkXr(123 \GC.LOOKUP.BIGREFCNT 63 \GC.LOOKUP.BIGREFCNT) (82 \HTCOLL 6 \HTMAIN) () \SHOWGCA0001A0002 :D4 (L (2 COLL? 1 CNT 0 PTR) F 0 ONLYTYPES F 1 SELECTEDITEMS F 2 MAXCNT F 3 TOTALCNT F 4 COLLCNT F 5 MINCNT F 6 CARLVL F 7 CDRLVL F 8 COLLECT) S P@PKUAEBgg A l @hVW WQd@&cSkcBTkcl?ARkch(43 LVLPRINT 35 SPACES 29 PRIN1 24 PRIN1) (21 % 17 *) () \SHOWGCA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 3 SELECTEDITEMS P 2 MAXCNT P 1 COLLCNT P 0 TOTALCNT I 0 SI::*CLEANUP-FORMS* F 4 FILE F 5 SI::*RESETFORMS* F 6 MINCNT F 7 COLLECT F 8 RESULT) gTi#g gTg chhhUc T hhUc o h jddWhhKcgkV H o V h l?VJjJ o h I o h WWT(158 TERPRI 153 PRIN1 145 PRIN1 140 TERPRI 135 PRIN1 127 PRIN1 112 TERPRI 107 PRIN1 102 PRIN1 94 PRIN1 90 \MAPGC 65 TERPRI 60 PRIN1 44 OUTPUT 26 OPENFILE 14 OPENP) (84 \SHOWGCA0001A0002 23 OUTPUT 19 CLOSEF 11 OUTPUT 2 OUTPUT) ( 150 " collision entries" 132 " items with overflowed reference cnt" 99 " items with reference cnt greater than or equal to " 57 " cnt datum") \SHOWGC :D4 (P 1 SI::*RESETFORMS* P 0 LISPXHIST I 5 MINCNT I 4 CDRLVL I 3 CARLVL I 2 FILE I 1 COLLECT I 0 ONLYTYPES F 7 LISPXHIST) jClbDlbElb @Wg  AJ KbJhJJNd3 oN L Mh\M&(88 ERROR 78 \TYPENUMBERFROMNAME 44 CL:VALUES-LIST 40 SI::RESETUNWIND 37 \MVLIST 34 \SHOWGCA0001) (31 SI::RESETUNWIND) ( 84 "Not a valid type") \GCENTRIES.BY.TYPEA0001 :D4 (L (2 COLL? 1 REFCNT 0 PTR) F 2 \#OFENTRIES F 3 \#COLLISIONS F 4 MINREFCNT F 5 TYPECOUNTS F 6 TYPECOLLISIONS) <TA6Rkc@UIHIH k BSkc@VIHIH k h(56 SETA 51 ELT 28 SETA 23 ELT) NIL () \GCENTRIES.BY.TYPE :D4 (L (1 MINFRACTION) P 3 \#COLLISIONS P 2 \#OFENTRIES P 1 TYPECOLLISIONS P 0 TYPECOUNTS I 0 MINREFCNT) @jbAob`kgjd `kgjd jddddG g `j OdO@joi @i i Nojhdi oi i i `j__OONojhdi oJL_i oOJoi oi oKM_i oOKoi oi i i Nojhdi oJi oKi i i h _NOOk_HO _jOJ_ANO oO jhdi oOi oOoi oi LOԼIO _j-MOԽoOi oOKoi oi i Ok_(471 TERPRI 466 PRIN1 457 PRINTNUM 439 PRINTNUM 418 ELT 406 PRIN1 397 PRINTNUM 381 PRINTNUM 370 FLUSHRIGHT 362 CONCAT 351 \TYPENAMEFROMNUMBER 325 ELT 302 NCHARS 299 \TYPENAMEFROMNUMBER 294 TERPRI 289 TERPRI 284 PRINTNUM 274 PRINTNUM 264 FLUSHRIGHT 250 TERPRI 246 TERPRI 241 PRIN1 232 PRINTNUM 214 PRINTNUM 201 PRIN1 192 PRINTNUM 174 PRINTNUM 160 FLUSHRIGHT 128 TERPRI 123 TERPRI 118 PRIN1 109 FLUSHRIGHT 95 TERPRI 90 PRIN2 84 PRIN1 54 \MAPGC 40 ARRAY 27 ARRAY) (131 \MaxTypeNumber 57 \MaxTypeNumber 51 \GCENTRIES.BY.TYPEA0001 35 WORD 30 \MaxTypeNumber 22 WORD 17 \MaxTypeNumber) ( 462 "%%" 452 100.0 444 (FLOAT 6 1) 433 (FIX 10) 402 "%%" 392 100.0 386 (FLOAT 6 1) 375 (FIX 7) 357 "Type " 279 (FIX 17) 269 (FIX 7) 256 "Total" 237 "%%" 227 100.0 219 (FLOAT 6 1) 205 (FIX 10) 197 "%%" 187 100.0 179 (FLOAT 6 1) 165 (FIX 7) 152 "All other types" 114 " all entries collisions" 101 "Type" 80 " with reference count at least " 11 0.002) \#COLLISIONS :D4 NIL g (5 \GCSTATS.AUX) (2 \#COLLISIONS) () \#OVERFLOWS :D4 NIL g (5 \GCSTATS.AUX) (2 \#OVERFLOWS) () \GCSTATS.AUXA0001 :D4 (L (2 COLLISIONP 1 REFCNT 0 PTR) F 0 \#GCLOSERS F 1 \#GCENTRIES F 2 \GCTYPE.AUX) -QkcRdgl?APkchgBPkc(42 SHOULDNT) (28 \#COLLISIONS 9 \#OVERFLOWS) () \GCSTATS.AUX :D4 (P 1 \#GCLOSERS P 0 \#GCENTRIES I 0 \GCTYPE.AUX) "jdg HIdHHnh(10 \MAPGC) (22 FLOATP 16 FLOATP 7 \GCSTATS.AUXA0001) () \SEE-GC-ENTRY :D4 (L (0 OFFSET)) `@AHdjoj.HjiHw@YH\l?LI ioHIL HnZ`J[Kj'Kw@ѹKl?LI ioKILJ Jjh(131 CL:FORMAT 117 \GC.LOOKUP.BIGREFCNT 69 CL:FORMAT 56 \GC.LOOKUP.BIGREFCNT) (81 \HTCOLL 2 \HTMAIN) ( 123 "OVENTRY: ~O LINKPOINTER: ~S CNT: ~A LINK: ~A~%%" 62 "ENTRY: ~O POINTER ~S CNT: ~A ~%%" 18 "EMPTY") \PRINTFREELIST :D4 (L (2 FILE 1 DETAILS 0 TYPE))  @d3 o@ bBg b`@qBo@ HjoB B B h@ Yd!d3 B IB B B hj OO]j*oB B B h_OO_O_BoMIh_^pO ZI J nH[j\I i j" OZLjBoL A/oB B I jhB l k O_WB B LdOO_N~_OOOkO_jOO_KLlԼj_O_rOl hB oOB oB oOB OOgB Ok_Oj_OV(435 PRIN1 418 PRINTNUM 405 PRIN1 396 PRINTNUM 383 TAB 298 TERPRI 293 TERPRI 273 LINELENGTH 267 REVERSE 262 TERPRI 257 PRIN1 245 CL:FORMAT 222 SORT 218 \APPEND2 206 CL:FORMAT 200 LENGTH 195 LENGTH 153 TERPRI 148 TERPRI 143 PRIN1 116 TERPRI 111 TERPRI 106 PRIN1 99 TERPRI 83 \SCANFREELIST 77 TERPRI 72 TERPRI 67 PRIN1 54 CL:FORMAT 51 \TYPENAMEFROMNUMBER 26 \GETSTREAM 17 ERROR 7 \TYPENUMBERFROMNAME) (431 + 31 \DTDSpaceBase 23 OUTPUT) ( 410 (FIX 3) 401 "/" 388 (FIX 6 8) 253 "Details (page/#free):" 241 "~D pages are reclaimable~%%" 180 "~D cells free~%%Free list covers ~D Pages with ~D extra hops~%%" 139 "Free list is empty" 63 "not an allocated type" 47 "Type ~S: " 13 "Not a valid type") \SHOWFREELISTS :D4 (L (1 FILE 0 DETAILS)) EAg b`ljIdHJo l`IJI@A jԺIkY(56 \PRINTFREELIST 31 CONCAT 6 \GETSTREAM) (40 \DTDSpaceBase 11 \MaxTypeNumber 3 OUTPUT) ( 28 " total free pages") \SCANFREELIST :D4 (L (0 TYPE)) yP@d3 o@ bdlohh`@Yd JHKHI\JKk԰&JI@oIIhHKHLkIY(20 ERROR 10 \TYPENUMBERFROMNAME) (39 \DTDSpaceBase) ( 89 "Bad free list at" 31 "LISTP scan not implemented" 16 "Not a valid type") \ISONFREELIST :D4 (L (0 OBJECT) F 2 \DTDSpaceBase) )@HloRHYd@IiIYNIL NIL ( 13 "LISTP scan not implemented") PFL :D4 (L (0 X)) @i (4 \PRINTFREELIST) NIL () SFL :D4 (L (0 X)) @ @i (8 \PRINTFREELIST 3 \SORTFREELIST) NIL () \COLLECTINUSEA0001 :D4 (NAME SI::*UNWIND-PROTECT* P 0 \INTERRUPTABLE I 0 SI::*CLEANUP-FORMS* F 16 TYPE F 17 PRED)  W i `W bOhOkjo nnOOnOk_nj_n_j_n`OnW OO OkO _ OO_OdkjOkO O_OjNMTjNOYIlѼKO[O5OOZdLhOJiW"LdkW"LO_LOмNk^OlԱBO(174 \SFLHASHLOOKUP 138 \SFLHASHLOOKUP 127 \SFLHASHLOOKUP 49 LISPVERSION 42 SHOULDNT 8 \SORTFREELIST) (103 \MDSTypeTable 11 \DTDSpaceBase) ( 39 "Odd size?") \COLLECTINUSE :D4 (P 1 SI::*RESETFORMS* I 1 PRED I 0 TYPE) M@d3 o@ blHjHkXgn hhhg  (74 CL:VALUES-LIST 70 SI::RESETUNWIND 67 \MVLIST 64 \COLLECTINUSEA0001 48 RECLAIMMIN 31 RECLAIM 17 ERROR 7 \TYPENUMBERFROMNAME) (61 SI::RESETUNWIND 42 RECLAIMMIN) ( 13 "Not a valid type") \SORTFREELIST :D4 (L (2 READONLY 1 FLG 0 TYPE) P 14 \INTERRUPTABLE) @d3 o@ b`@ @lhnjd OO"`On@Ok_Ol_Oldoj[ldKi[dl YdnIKlkH\dL]NLNL_h_^H\dL]NNL_AIkjNkI Z O__OBOOO#dHo HLOOLIi Z_JOO_JOaO@JoL LdԱBOOO o .LOOML_\ML_\(385 RAID 355 RAID 303 \SFLHASHLOOKUP 273 RAID 225 \SFLHASHLOOKUP 120 \ALLOCBLOCK 17 ERROR 7 \TYPENUMBERFROMNAME) (56 \MDSTypeTable 22 \DTDSpaceBase) ( 382 "No PREVPAGELASTFREE" 351 "Bad free list" 270 "No PREVPAGELASTFREE" 96 1.4 13 "Not a valid type") \SFLHASHLOOKUP :D4 (L (2 INSERT 1 HASHTABLE 0 PAGE#)) -A!@HAIZdd@jBJ@JIlذNIL NIL () \SHOWCIRCULARITY :D4 (P 0 CIRCLEHASH I 1 MAXLEVEL I 0 OBJECT) ld hA3 Ajnb@ h(27 \SHOWCIRCULARITY1 4 HARRAY) NIL () \SHOWCIRCULARITY1 :D4 (L (1 PATH 0 OBJ) F 6 CIRCLEHASH F 7 MAXLEVEL F 8 OBJECT F 9 \DTDSpaceBase) @dWA*@QHdl"@Ab@AW @AW lHji@jl@@mZ nU}JjtJkm@V e@iV @AbJdk[Kм@dL𒿰EA @lbWHY*@V "@iV @AbId@MA h(215 \SHOWCIRCULARITY1 194 PUTHASH 186 GETHASH 159 \SHOWCIRCULARITY1 127 PUTHASH 119 GETHASH 52 \SHOWCIRCULARPATH 45 \SHOWCIRCULARLIST 36 \SHOWCIRCULARLIST) NIL () \SHOWCIRCULARLIST :D4 (L (2 DEPTH 1 PATH 0 LST) F 0 OBJECT) 0@dA PA Bj@ABk @Bkbbh(30 \SHOWCIRCULARLIST 15 \SHOWCIRCULARITY 7 \SHOWCIRCULARITY1) NIL () \SHOWCIRCULARPATH :D4 (L (0 PATH) F 3 OBJECT) =i S@ !Hi Joi iZIdikl HX(53 PRIN2 49 LVLPRIN2 34 PRIN1 21 TERPRI 9 REVERSE 3 TERPRI) NIL ( 30 " -> ") \SHOW.CLOSED.WINDOWS :D4 NIL cg j#HJH[ JK oK oi K $oi K l \jLkٰK kԺ(91 \FINDPOINTER 81 RECLAIM 71 CLOSEW 65 MOUSECONFIRM 55 CLOSEW 50 MOUSECONFIRM 41 CURSORPOSITION 32 OPENW 25 \WINDOW.ACCOUNTED.FOR? 8 OPENWINDOWS 5 \COLLECTINUSE) (2 WINDOW) ( 61 "Find pointers? Click LEFT to search, RIGHT to leave window open and go on" 46 "Click LEFT to close window, RIGHT to save" 37 (0 . 0)) \WINDOW.ACCOUNTED.FOR? :D4 (L (0 WINDOW)) -@ '@g @g @g db(36 GETWINDOWUSERPROP 27 OPENWP 24 GETWINDOWUSERPROP 15 OPENWP 12 GETWINDOWUSERPROP 3 OPENWP) (33 MAINWINDOW 21 ICONFOR 9 ICONWINDOW) () \FINDPOINTER :D4 (L (4 ALLBACKFLG 2 ALLFLG 0 PTR) P 4 REFSFOUND P 0 *PRINT-BASE* I 3 MARGIN I 1 COLLECT/INSPECT?) KCjbl @ BBgA``````k````h`j IkDCji oi Ii i IjB@ B`Jo_AMLgM h_lk__OdOOJqOj_ljOO4OOUOO _"j,`O"_$'O _"jO jOKO `lO k_,O,O(O*@O"djOmN(`oh`oh`ohh^_&Ci oi O&i oi jO*Okjnj_&i i O&+OKO* O* hlO*DB O*O$B _AOMBILO,k_,O*l_*Ok_Ok_O n_ Ok_{(508 \FINDPOINTER.TYPE 499 \FINDPOINTER.LISTP 484 \FINDPOINTER.FOUND 477 \FINDPOINTER.FOUND.ON.STACK 462 TERPRI 457 PRIN2 431 PRIN1 422 PRIN1 415 PRIN1 406 \FINDPOINTER.NEWITEM 284 \LOOKUPPAGEMAP 174 INSPECT 135 \FINDPOINTER.STACK 124 TERPRI 119 PRIN1 113 PRIN1 104 TAB 65 SCREENBITMAP 11 \REFCNT) (382 \PLISTSPACE 371 \DEFSPACE 360 \VALSPACE 301 \InterfacePage 255 \DTDSpaceBase 167 COLLECT 143 \STACKSPACE 86 \STACKSPACE 68 BITMAP 61 \HTCOLL 57 \HTMAIN 53 \SMALLNEGSPACE 49 \SMALLPOSPSPACE 43 \PNPSPACE 39 \PNPSPACE 35 \AtomHashTable 31 \PageMapTBL 27 \PAGEMAP 23 \FPTOVP 17 :STACK) ( 427 " of atom " 411 "as " 387 "property list" 376 "function definition" 365 "value" 151 (T NIL) 109 "Reference count = ") \FINDPOINTERS.OF.TYPE :D4 (L (1 FILTER 0 TYPE) P 2 PTR) =@ A HdHAIJkAA Ji i (56 TERPRI 51 \FINDPOINTER 48 PRINT 42 RECLAIM 38 RECLAIM 33 EVAL 7 FNTYP 3 \COLLECTINUSE) NIL () \FINDPOINTER.FOUND :D4 (L (1 MSG 0 BASE)) 7h A*oi o@i gi o@i i i (50 PRIN1 45 TERPRI 41 PRINTNUM 31 PRIN1 24 PRINTNUM 14 PRIN1 3 \FINDPOINTER.NEWITEM) (27 %,) ( 35 (FIX 6 8) 18 (FIX 2 8) 10 "at location ") \FINDPOINTER.NEWITEM :D4 (L (0 COUNTIT) F 0 REFSFOUND F 1 MARGIN) 'Qji @Pkci oi oi @(35 PRIN1 26 PRIN1 17 PRIN1 5 TAB) NIL ( 31 "Found " 22 ". ") \FINDPOINTER.LISTP :D4 (L (2 ALLFLG 1 ALLBACKFLG 0 BASE) F 9 REFSFOUND F 10 MARGIN) O @@n@lW3HI B @o hIllO%OjaOO UjOlOOlDHO[lM)HO !LKlooHObO]Ol__L@jjWkcA+@ kAkbWkcgi ki oi oi Lgi oi @ikl Jji `goo i dg@gkbJlZ@ghJA \@LL(320 \FINDPOINTER 285 TERPRI 281 ASKUSER 263 TAB 256 LVLPRINT 247 PRIN1 238 PRIN1 227 PRIN1 218 \FINDPOINTER.NEWITEM 207 \FINDPOINTER.NEWITEM 201 PRIN1 177 \REFCNT 107 \FINDPOINTER.LISTP.FREE 67 \FZEROP 35 \FINDPOINTER.FOUND 23 \FINDPOINTER.LISTP.FREE) (313 COLLECT 297 A 290 N 270 N 267 DWIMWAIT 234 CAR 197 %.) ( 278 ((Y "es") (N "o") (A "ll the way back")) 274 "Shall I search for pointers to this list? " 243 " of list " 223 "as " 212 "somewhere inside list " 125 "a tail" 120 "an element" 32 "in freed list cell ") \FINDPOINTER.LISTP.FREE :D4 (L (1 WORDOFFSET 0 PAGEBASE)) )@@kZHIAIi@IJk԰hNIL NIL () \FINDPOINTER.TYPE :D4 (L (2 ALLFLG 1 DTD 0 BASE) F 11 COLLECT/INSPECT? F 12 MARGIN) / A nnHHnH@l@m@n@oIHH]@JM_IM^A [O \BhKLh oi Ni jA_ C`h__"h4Koi oi L$o"_OO iON oi oi Oi i KsLm`goo i dgOWhWl gO hO(294 INSPECT 283 \FINDPOINTER 262 TERPRI 258 ASKUSER 229 TERPRI 224 PRIN1 217 PRIN1 208 PRIN1 197 \FINDPOINTER.INTERPRET.RECORD 162 PRIN1 153 PRIN1 126 RECLOOK 116 PRIN2 110 PRIN1 102 \FINDPOINTER.NEWITEM 87 \ISONFREELIST 81 MEMB 11 LISPVERSION) (287 N 267 Y 247 N 244 DWIMWAIT 131 SYSTEMRECLST) ( 255 ((Y "es") (N "o") (I "nspect it")) 251 "Shall I search for pointers to this object? " 213 "object " 204 " " 170 " freed " 158 " in" 149 " (not a pointer field)" 106 "at offset " 55 -512) \FINDPOINTER.INTERPRET.RECORD :D4 (L (1 OFFSET 0 DEC)) @j"HhZdg/gdgdgdgIKJJgKlhԻIdA!oi JJi oi hlYUdgKIkYDlhIk԰dgKl(lIkԹhdgdg𴶿KjJk[HX7(114 PRIN1 105 PRIN1 94 PRIN1) (188 BITS 182 FLAG 155 BYTE 126 WORD 64 FULLXPOINTER 48 FULLXPOINTER 42 POINTER 36 XPOINTER 32 POINTER 21 *) ( 110 ")" 90 " (") \FINDPOINTER.STACK :D4 (L (0 PTR)) %`jIHhkI@kI IkY(28 \FINDPOINTER.FOUND.ON.STACK) (2 \InterfacePage) () \FINDPOINTER.PARSE.STACK :D4 (L (0 BASE)) ``@HJolBJkH&kH`jkHkHkHkHHkHXVhHlԸkHjkHl:HlXdJ1kHl$kH`jkHkHkHkHѿHIkHdldlYJHkHXoNIL (7 \InterfacePage 2 \InterfacePage) ( 214 "Free block" 25 "System context") \FINDPOINTER.FOUND.ON.STACK :D4 (L (0 BASE) P 0 \INTERRUPTABLE F 2 *TERMINAL-IO*) b`g0`@2`h4l~`6I oI -h Ro@ IRI ooI i h(94 TERPRI 89 CL:FORMAT 75 STRINGP 66 CL:FORMAT 55 \FINDPOINTER.NEWITEM 49 STRPOS) (32 \InterfacePage 21 \InterfacePage 14 \InterfacePage 8 \FINDPOINTER.PARSE.STACK 5 \InterfacePage) ( 85 "(~S)" 80 "(~A)" 61 "in stack cell ~O " 45 "FINDPOINTER") (PRETTYCOMPRINT GCHAXCOMS) (RPAQQ GCHAXCOMS ((COMS (* ; "Looking at gc table") (FNS \MAPGC \SHOWGC \GCENTRIES.BY.TYPE \#COLLISIONS \#OVERFLOWS \GCSTATS.AUX \SEE-GC-ENTRY)) (COMS (* ; "Hacking free lists") (FNS \PRINTFREELIST \SHOWFREELISTS \SCANFREELIST \ISONFREELIST) (FNS PFL SFL) (FNS \COLLECTINUSE \SORTFREELIST \SFLHASHLOOKUP)) (COMS (* ; "finding circularities") (FNS \SHOWCIRCULARITY \SHOWCIRCULARITY1 \SHOWCIRCULARLIST \SHOWCIRCULARPATH)) (COMS (* ; "special window storage leak finder") (FNS \SHOW.CLOSED.WINDOWS \WINDOW.ACCOUNTED.FOR?)) (COMS (* ; "Brute force search for raw pointers") (FNS \FINDPOINTER \FINDPOINTERS.OF.TYPE \FINDPOINTER.FOUND \FINDPOINTER.NEWITEM \FINDPOINTER.LISTP \FINDPOINTER.LISTP.FREE \FINDPOINTER.TYPE \FINDPOINTER.INTERPRET.RECORD \FINDPOINTER.STACK \FINDPOINTER.PARSE.STACK \FINDPOINTER.FOUND.ON.STACK) ) (DECLARE%: EVAL@COMPILE DONTCOPY (MACROS \COERCETOTYPENUMBER .ALLOCATED.PER.PAGE. MDSTYPE#) (RECORDS FREELISTENTRY HASHENTRY) (FILES (LOADCOMP) LLGC) (LOCALVARS . T) (GLOBALVARS SYSTEMRECLST)) ( DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS (ADDVARS (NLAMA SFL PFL) (NLAML) (LAMA))) )) (PUTPROPS GCHAX COPYRIGHT ("Xerox Corporation" 1982 1983 1984 1985 1986 1987)) NIL