Remove explicit old versions from cloned repo (#392)
it took a long time to figure out how to restore old versions, using the './scripts/restore-versions file'. Now that it's there and tested it should be ok to remove them from new 'git clone' of medley
This commit is contained in:
Larry Masinter
GitHub
@@ -1,920 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
(FILECREATED "23-Jun-88 16:06:34" {ERIS}<TEST>GC>HAND>MAIKO-GC-TESTS.\;6 46489
|
||||
|
||||
|changes| |to:| (VARS MAIKO-GC-TESTSCOMS)
|
||||
(FNS MAIN-GC-TEST ARRAY-STRING-TEST VARIOUS-TYPES-TEST LIST-MANIPULATION-TEST
|
||||
CODE-RECLAIM-TEST)
|
||||
|
||||
|previous| |date:| "27-May-88 14:59:01" {ERIS}<TEST>GC>HAND>MAIKO-GC-TESTS.\;5)
|
||||
|
||||
|
||||
; Copyright (c) 1988 by John Sybalsky & Xerox Corporation. All rights reserved.
|
||||
|
||||
(PRETTYCOMPRINT MAIKO-GC-TESTSCOMS)
|
||||
|
||||
(RPAQQ MAIKO-GC-TESTSCOMS
|
||||
((FILES DANCEROBJ GCHAX)
|
||||
(ADDVARS (DISPLAYFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
(INTERPRESSFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>"))
|
||||
(P (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT AC STRIKE)))
|
||||
(FNS MAIN-GC-TEST)
|
||||
(FNS ITEMS-ON-STACK-TEST MANY-BIGNUM-MAKER MANY-FIXP-MAKER MANY-FLOAT-MAKER BOUNDARY-TESTS
|
||||
ARRAY-STRING-TEST VARIOUS-TYPES-TEST)
|
||||
(FNS TEDIT-CRUNCH-TEST LIST-MANIPULATION-TEST)
|
||||
(FNS ATOM-FULL-TEST STORAGE-FULL-TEST)
|
||||
(COMS (FNS DATATYPE-TEST)
|
||||
(RECORDS GC-TEST-TYPE)
|
||||
|
||||
(* |;;| "DATATYPE TESTS")
|
||||
)
|
||||
(COMS
|
||||
|
||||
(* |;;| "CODE RECLAIMATION TESTS")
|
||||
|
||||
(FNS CODE-RECLAIM-TEST)
|
||||
|
||||
(* |;;| "The function that is repeatedly compiled to test that code-block constants inside code blocks are reclaimed.")
|
||||
|
||||
(VARS (CODE-RECLAIM-TEST-TEMP-FN
|
||||
'(DEFINEQ (CODE-RECLAIM-TEST-TEMP-FN
|
||||
(ASDF)
|
||||
(LET (I)
|
||||
(FOR I FROM 1 TO 10 COLLECT (SQRT 4.5))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(CL:FLET ((TEMP (ARG)
|
||||
(SETQ ARG (FLOAT ARG))
|
||||
(EXPT (SQRT I)
|
||||
(SQRT (COS (/ I 180))))))
|
||||
(CL:UNWIND-PROTECT
|
||||
(FOR I FROM 1 TO 1000 COLLECT (TEMP I))
|
||||
(SETQ I NIL)))))))))))
|
||||
|
||||
(FILESLOAD DANCEROBJ GCHAX)
|
||||
|
||||
(ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>" "{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
|
||||
(ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
|
||||
(SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT AC STRIKE))
|
||||
(DEFINEQ
|
||||
|
||||
(MAIN-GC-TEST
|
||||
(LAMBDA (LIMIT DRIBBLE-FILE STACK-COUNT BIGNUM-COUNT FIXP-COUNT FLOAT-COUNT TEDIT-COUNT LIST-COUNT
|
||||
CODE-COUNT) (* \; "Edited 23-Jun-88 13:30 by jds")
|
||||
(DRIBBLE (OR DRIBBLE-FILE "{LPT}"))
|
||||
(PRINTOUT T ";;; ***********" T ";;; MAIKO GARBAGE COLLECTOR TESTS" T ";;; Run on " (DATE)
|
||||
T ";;; Dribble to " (OR DRIBBLE-FILE "{LPT}")
|
||||
T T)
|
||||
(|for| I |from| 1 |to| (OR LIMIT 10) |do| (PRINTOUT T
|
||||
"Starting Maiko GC tests, pass "
|
||||
I T)
|
||||
(ITEMS-ON-STACK-TEST (OR STACK-COUNT
|
||||
100))
|
||||
(MANY-BIGNUM-MAKER (OR BIGNUM-COUNT
|
||||
1000))
|
||||
(MANY-FIXP-MAKER (OR FIXP-COUNT 1000))
|
||||
(MANY-FLOAT-MAKER (OR FLOAT-COUNT 1000
|
||||
))
|
||||
(TEDIT-CRUNCH-TEST (OR TEDIT-COUNT 5))
|
||||
(ARRAY-STRING-TEST 3)
|
||||
(LIST-MANIPULATION-TEST (OR LIST-COUNT
|
||||
5))
|
||||
(BOUNDARY-TESTS)
|
||||
(CODE-RECLAIM-TEST (OR CODE-COUNT 20))
|
||||
(VARIOUS-TYPES-TEST (OR TYPE-COUNT 10)
|
||||
)
|
||||
(FRPTQ 100 (RECLAIM))
|
||||
(STORAGE))
|
||||
(ATOM-FULL-TEST)
|
||||
(STORAGE-FULL-TEST)
|
||||
(DRIBBLE NIL)))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(ITEMS-ON-STACK-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:56 by jds")
|
||||
(PRINTOUT T " Starting ITEMS-ON-STACK test for " LIMIT " iterations." T)
|
||||
(FOR I FROM 1 TO LIMIT DO (LET ((X (CREATE CHARLOOKS))
|
||||
(Y (EXPT 1234.5 (RAND 3 7))))
|
||||
(ERSETQ (FRPTQ 5 (RECLAIM))
|
||||
(COND
|
||||
((\\ISONFREELIST X)
|
||||
(HELP
|
||||
"X is free, but pointer is on stack."
|
||||
))
|
||||
((\\ISONFREELIST Y)
|
||||
(HELP
|
||||
"Y is free, but pointer is on stack."
|
||||
))))))))
|
||||
|
||||
(MANY-BIGNUM-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:54 by jds")
|
||||
(PRINTOUT T " Starting MANY-BIGNUM-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (CL:* 12345678901234567890
|
||||
(RAND 1 I)))
|
||||
(SETQ Y (IQUOTIENT X 3))
|
||||
(SETQ Z (IPLUS Y X X 34 2 9 (IMOD X 7)
|
||||
(IREMAINDER Y 3)
|
||||
(CL:FLOOR Y 2)
|
||||
(CL:CEILING X 8)))
|
||||
(SETQ W (/ Z Y))))))
|
||||
|
||||
(MANY-FIXP-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:54 by jds")
|
||||
(PRINTOUT T " Starting MANY-FIXP-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (CL:* 543 (RAND 1 I)))
|
||||
(SETQ Y (IQUOTIENT X 3))
|
||||
(SETQ Z (IPLUS Y X X 34 2 9 (IMOD X 7)
|
||||
(IREMAINDER Y 3)
|
||||
(CL:FLOOR Y 2)
|
||||
(CL:CEILING X 8)))
|
||||
(SETQ W (/ Z Y))))))
|
||||
|
||||
(MANY-FLOAT-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:55 by jds")
|
||||
(PRINTOUT T " Starting MANY-FLOAT-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (FTIMES 1.0 (RAND 0 1)))
|
||||
(SETQ Y (+ (SQRT I)
|
||||
(EXPT (SQRT (SQRT I))
|
||||
3.4)))
|
||||
(SETQ Z (LOG Y))))))
|
||||
|
||||
(BOUNDARY-TESTS
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:54 by jds")
|
||||
|
||||
(* |;;| "Tests the transition into and out of big refcnts, and BIG refcnt's.")
|
||||
|
||||
(PRINTOUT T " Starting Refcnt-63 crossing test" T)
|
||||
(LET* ((ITEM (|create| FMTSPEC))
|
||||
(LIST (|for| I |from| 1 |to| 62 |collect| ITEM)))
|
||||
(|for| I |from| 1 |to| 1000 |do| (|for| J |from| (LENGTH LIST)
|
||||
|to| (+ 63 (RAND 1 10))
|
||||
|do| (SETQ LIST (CONS ITEM LIST)))
|
||||
(|for| J |from| (LENGTH LIST)
|
||||
|to| (- 63 (RAND 3 12))
|
||||
|do| (|pop| LIST))
|
||||
(COND
|
||||
((ZEROP (IMOD I 31))
|
||||
(RECLAIM))))
|
||||
(PRINTOUT T " Starting Refcount-500K <-> NIL test." T)
|
||||
(|for| LOOP |from| 1 |to| 10 |do| (|for| I |from| 1 |to| 500000
|
||||
|do| (SETQ LIST (CONS ITEM LIST)))
|
||||
(SETQ LIST NIL))
|
||||
(PRINTOUT T " Starting Refcount 1-2 boundary test." T)
|
||||
(LET ((ITEM (LIST (|create| FMTSPEC))))
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM2 (CAR ITEM))
|
||||
(SETQ ITEM2 NIL)))
|
||||
(PRINTOUT T " Starting Refcount 1 + stack boundary test." T)
|
||||
(LET ((ITEM (|create| FMTSPEC))
|
||||
ITEM2)
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM2 (LIST ITEM))
|
||||
(RPLACA ITEM2 NIL)))
|
||||
(PRINTOUT T " Starting Refcount 0-1 boundary test." T)
|
||||
(LET (ITEM)
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM (LIST (|create|
|
||||
FMTSPEC)))
|
||||
(RPLACA ITEM NIL))))))
|
||||
|
||||
(ARRAY-STRING-TEST
|
||||
(LAMBDA (LIMIT REAL-STRESS) (* \; "Edited 23-Jun-88 12:23 by jds")
|
||||
|
||||
(* |;;| "Try out array & string creation, and substringing on the GC.")
|
||||
|
||||
(PRINTOUT T " Starting Array & String test." T)
|
||||
(FOR I FROM 1 TO (OR LIMIT 10)
|
||||
DO (LET (STRINGS ARRAYS)
|
||||
(FOR ARRAY-COUNT FROM 1 TO 5000
|
||||
COLLECT (CL:MAKE-ARRAY (RAND 10 (COND
|
||||
(REAL-STRESS 65000)
|
||||
(T (IMAX 100 (IQUOTIENT 65000
|
||||
ARRAY-COUNT)))))))
|
||||
(FOR I FROM 1 TO 5000 COLLECT (BITMAPCREATE (RAND 1 512)
|
||||
(RAND 1 512)))
|
||||
(SETQ STRINGS (FOR STRING-COUNT FROM 1 TO 5000
|
||||
COLLECT (ALLOCSTRING (RAND 10
|
||||
(COND
|
||||
(REAL-STRESS 65000)
|
||||
(T (IMAX 100 (IQUOTIENT 65000
|
||||
STRING-COUNT
|
||||
))))))))
|
||||
(FOR STRING IN STRINGS
|
||||
COLLECT (SUBSTRING STRING (RAND 1 (LRSH (NCHARS STRING)
|
||||
1))
|
||||
(RAND (ADD1 (LRSH (NCHARS STRING)
|
||||
1))
|
||||
(NCHARS STRING))))))))
|
||||
|
||||
(VARIOUS-TYPES-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 23-Jun-88 12:04 by jds")
|
||||
|
||||
(* |;;|
|
||||
"Run thru creation and collection of various types that have caused trouble in the past. ")
|
||||
|
||||
(PRINTOUT T " Starting various type cases." T)
|
||||
(FOR REPEAT-COUNT FROM 1 TO (OR LIMIT 10)
|
||||
DO (|for| TYPE IN '(VMEMPAGEP) AS CREATION-LIMIT IN '(100)
|
||||
|do| (FOR I FROM 1 TO CREATION-LIMIT COLLECT (NCREATE TYPE))
|
||||
(DORECLAIM)))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT-CRUNCH-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 27-May-88 13:06 by jds")
|
||||
|
||||
(* |;;| "GC Testing -- stressing the world.")
|
||||
|
||||
(* |;;| "Hardcopy a big TEdit file to a {CORE} file, copy that to disk, and delete everything.")
|
||||
|
||||
(PRINTOUT T " Starting TEDIT-CRUNCH test for " LIMIT " iterations." T)
|
||||
(FOR PASS FROM 1 TO LIMIT DO (PRINTOUT T " Round " PASS " started " (DATE)
|
||||
"." T)
|
||||
(LET ((TS (OPENTEXTSTREAM
|
||||
'
|
||||
|{ERIS}<Test>GC>Hand-Aux>ADVDICT-N-Z.TEDIT|
|
||||
))
|
||||
TLIST)
|
||||
(TEDIT.HARDCOPY TS '{CORE}FOO.IP T)
|
||||
(COPYFILE '{CORE}FOO.IP '{DSK}FOO.IP)
|
||||
(DELFILE '{DSK}FOO.IP)
|
||||
(DELFILE '{CORE}FOO.IP)
|
||||
(CLOSEF (FETCH (TEXTOBJ TXTFILE)
|
||||
OF (TEXTOBJ TS)))))))
|
||||
|
||||
(LIST-MANIPULATION-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 23-Jun-88 14:03 by jds")
|
||||
|
||||
(* |;;| "Do lots of list creation, popping, and consing, to make sure the GC works.")
|
||||
|
||||
(PRINTOUT T " Starting LIST-MANIPULATION test for " LIMIT " iterations." T)
|
||||
(|for| PASS |from| 1 |to| LIMIT
|
||||
|do| (PRINTOUT T " Round " PASS " started " (DATE)
|
||||
"." T)
|
||||
(LET ((TS (OPENTEXTSTREAM '|{ERIS}<sybalsky>Top10-87>Dictionaries>ADVDICT-A-M.TEDIT|))
|
||||
(LEN (RAND 0 100000))
|
||||
TLIST)
|
||||
(SETQ TLIST (|for| I |from| 1 |to| LEN |collect| TS))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH LEN 1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| I |from| 1 |to| (RAND 1 100) |do| (SETQ TLIST
|
||||
(CONS TS TLIST)))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| I |from| 1 |to| (RAND 1 2000) |do| (SETQ TLIST
|
||||
(CONS TS TLIST)))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| \i |from| 1 |to| (RAND 1 1500)
|
||||
|do| (SETQ TLIST (NCONC TLIST
|
||||
(|for| J |from| 1
|
||||
|to| (RAND 1 10)
|
||||
|join| (|for| K |from| 1 |to|
|
||||
3
|
||||
|collect| (CONS TS K))))))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(CLOSEF (|fetch| (TEXTOBJ TXTFILE) |of| (TEXTOBJ TS))))
|
||||
(LET ((GC-ITEM (NCREATE 'VMEMPAGEP))
|
||||
(LEN (RAND 10 500))
|
||||
TLIST ELT)
|
||||
(SETQ TLIST (|for| I |from| 1 |to| LEN |collect| NIL))
|
||||
(|for| I |from| 1 |to| LEN |do| (SETQ ELT (CL:RANDOM LEN))
|
||||
(RPLACA (CL:NTHCDR ELT TLIST)
|
||||
GC-ITEM)
|
||||
(RPLACA (CL:NTHCDR (SUB1 I)
|
||||
TLIST)
|
||||
GC-ITEM))
|
||||
(|for| I |from| (SUB1 LEN) |to| 0 |by| -1
|
||||
|do| (RPLACD (CL:NTHCDR I TLIST)
|
||||
GC-ITEM))))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(ATOM-FULL-TEST
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:39 by jds")
|
||||
(PRINTOUT T " Starting ATOM-space full test.")
|
||||
(LET ((CUR-ATOM-COUNT |\\AtomFrLst|))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROGN (SETQ |\\AtomFrLst| 64000)
|
||||
(FOR I FROM 64000 TO 70000 DO (GENSYM 'GC-TEST)))
|
||||
(SETQ |\\AtomFrLst| CUR-ATOM-COUNT)))))
|
||||
|
||||
(STORAGE-FULL-TEST
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:47 by jds")
|
||||
(PRINTOUT T " Starting Storage-full test." T)
|
||||
(ERSETQ (FOR I FROM 1 COLLECT (ARRAY 100)))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(DATATYPE-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 26-May-88 11:26 by jds")
|
||||
(FOR I FROM 1 TO (OR LIMIT 10)
|
||||
DO (FOR L FROM 1 TO 100 DO (FOR Y FROM 1 TO 20
|
||||
COLLECT (CREATE GC-TEST-TYPE
|
||||
FIELD-1 _ T))
|
||||
(RECLAIM)))))
|
||||
)
|
||||
(DECLARE\: EVAL@COMPILE
|
||||
|
||||
(DATATYPE GC-TEST-TYPE (FIELD-1 FIELD-2 FIELD-3 (FIELD-4 BYTE)
|
||||
(FIELD-5 FIXP)
|
||||
FIELD-6
|
||||
(FIELD-7 WORD)
|
||||
FIELD-8 FIELD-9 FIELD-10 FIELD-11 FIELD-12 FIELD-13 (FIELD-14
|
||||
FIXP)
|
||||
FIELD-15
|
||||
(FIELD-16 XPOINTER)
|
||||
FIELD-17
|
||||
(FIELD-18 BYTE)
|
||||
(FIELD-19 FIXP)
|
||||
FIELD-20
|
||||
(FIELD-21 BYTE)
|
||||
FIELD-22 FIELD-23 FIELD-24 (FIELD-25 BYTE)
|
||||
FIELD-26
|
||||
(FIELD-27 BYTE)
|
||||
FIELD-28
|
||||
(FIELD-29 BYTE)
|
||||
FIELD-30
|
||||
(FIELD-31 WORD)
|
||||
FIELD-32
|
||||
(FIELD-33 XPOINTER)
|
||||
FIELD-34
|
||||
(FIELD-35 FIXP)
|
||||
FIELD-36 FIELD-37 FIELD-38 (FIELD-39 FLAG)
|
||||
FIELD-40
|
||||
(FIELD-41 FLAG)
|
||||
FIELD-42
|
||||
(FIELD-43 FIXP)
|
||||
(FIELD-44 FIXP)
|
||||
FIELD-45
|
||||
(FIELD-46 XPOINTER)
|
||||
FIELD-47 FIELD-48 FIELD-49 (FIELD-50 FLAG)
|
||||
(FIELD-51 BYTE)
|
||||
FIELD-52 FIELD-53 (FIELD-54 BYTE)
|
||||
FIELD-55 FIELD-56 (FIELD-57 BYTE)
|
||||
(FIELD-58 WORD)
|
||||
FIELD-59 FIELD-60 (FIELD-61 XPOINTER)
|
||||
FIELD-62 FIELD-63 (FIELD-64 XPOINTER)
|
||||
(FIELD-65 XPOINTER)
|
||||
FIELD-66 FIELD-67 FIELD-68 FIELD-69 (FIELD-70 FLAG)
|
||||
FIELD-71 FIELD-72 (FIELD-73 WORD)
|
||||
FIELD-74
|
||||
(FIELD-75 FLAG)
|
||||
FIELD-76 FIELD-77 FIELD-78 FIELD-79 (FIELD-80 FIXP)
|
||||
(FIELD-81 FIXP)
|
||||
FIELD-82 FIELD-83 FIELD-84 FIELD-85 (FIELD-86 XPOINTER)
|
||||
(FIELD-87 BYTE)
|
||||
(FIELD-88 XPOINTER)
|
||||
FIELD-89
|
||||
(FIELD-90 BYTE)
|
||||
(FIELD-91 FLAG)
|
||||
(FIELD-92 FIXP)
|
||||
(FIELD-93 FIXP)
|
||||
(FIELD-94 FLAG)
|
||||
FIELD-95
|
||||
(FIELD-96 FLAG)
|
||||
FIELD-97
|
||||
(FIELD-98 FLAG)
|
||||
FIELD-99 FIELD-100 FIELD-101 FIELD-102 FIELD-103 (FIELD-104
|
||||
XPOINTER)
|
||||
FIELD-105 FIELD-106 FIELD-107 FIELD-108 (FIELD-109 BYTE)
|
||||
FIELD-110
|
||||
(FIELD-111 WORD)
|
||||
FIELD-112
|
||||
(FIELD-113 XPOINTER)
|
||||
(FIELD-114 FLAG)
|
||||
(FIELD-115 FIXP)
|
||||
FIELD-116 FIELD-117 (FIELD-118 BYTE)
|
||||
FIELD-119 FIELD-120 FIELD-121 FIELD-122 FIELD-123 (FIELD-124
|
||||
XPOINTER)
|
||||
(FIELD-125 BYTE)
|
||||
(FIELD-126 XPOINTER)
|
||||
FIELD-127 FIELD-128 (FIELD-129 FIXP)
|
||||
(FIELD-130 FLAG)
|
||||
FIELD-131 FIELD-132 FIELD-133 FIELD-134 (FIELD-135 WORD)
|
||||
(FIELD-136 FLAG)
|
||||
FIELD-137 FIELD-138 FIELD-139 (FIELD-140 WORD)
|
||||
(FIELD-141 FLAG)
|
||||
FIELD-142 FIELD-143 FIELD-144 (FIELD-145 FIXP)
|
||||
FIELD-146 FIELD-147 FIELD-148 FIELD-149 (FIELD-150 FLAG)
|
||||
FIELD-151 FIELD-152 FIELD-153 FIELD-154 (FIELD-155 FIXP)
|
||||
FIELD-156
|
||||
(FIELD-157 BYTE)
|
||||
FIELD-158
|
||||
(FIELD-159 FIXP)
|
||||
(FIELD-160 WORD)
|
||||
FIELD-161
|
||||
(FIELD-162 WORD)
|
||||
(FIELD-163 FIXP)
|
||||
FIELD-164
|
||||
(FIELD-165 FIXP)
|
||||
FIELD-166
|
||||
(FIELD-167 FLAG)
|
||||
(FIELD-168 BYTE)
|
||||
FIELD-169 FIELD-170 (FIELD-171 XPOINTER)
|
||||
(FIELD-172 BYTE)
|
||||
FIELD-173 FIELD-174 (FIELD-175 FLAG)
|
||||
(FIELD-176 BYTE)
|
||||
(FIELD-177 WORD)
|
||||
FIELD-178
|
||||
(FIELD-179 FIXP)
|
||||
FIELD-180 FIELD-181 (FIELD-182 BYTE)
|
||||
FIELD-183 FIELD-184 FIELD-185 FIELD-186 FIELD-187 (FIELD-188 BYTE)
|
||||
(FIELD-189 FIXP)
|
||||
FIELD-190 FIELD-191 FIELD-192 (FIELD-193 BYTE)
|
||||
FIELD-194
|
||||
(FIELD-195 WORD)
|
||||
FIELD-196 FIELD-197 FIELD-198 FIELD-199 (FIELD-200 WORD)
|
||||
FIELD-201
|
||||
(FIELD-202 FLAG)
|
||||
FIELD-203
|
||||
(FIELD-204 XPOINTER)
|
||||
FIELD-205 FIELD-206 FIELD-207 (FIELD-208 FLAG)
|
||||
FIELD-209
|
||||
(FIELD-210 WORD)
|
||||
(FIELD-211 BYTE)
|
||||
FIELD-212 FIELD-213 FIELD-214 (FIELD-215 FIXP)
|
||||
FIELD-216 FIELD-217 (FIELD-218 XPOINTER)
|
||||
FIELD-219
|
||||
(FIELD-220 FLAG)
|
||||
FIELD-221
|
||||
(FIELD-222 FLAG)
|
||||
(FIELD-223 WORD)
|
||||
(FIELD-224 FLAG)
|
||||
(FIELD-225 WORD)
|
||||
FIELD-226 FIELD-227 FIELD-228 FIELD-229 FIELD-230 (FIELD-231
|
||||
XPOINTER)
|
||||
FIELD-232
|
||||
(FIELD-233 WORD)
|
||||
(FIELD-234 WORD)
|
||||
FIELD-235 FIELD-236 FIELD-237 FIELD-238 FIELD-239 FIELD-240
|
||||
FIELD-241 (FIELD-242 XPOINTER)
|
||||
FIELD-243
|
||||
(FIELD-244 WORD)
|
||||
FIELD-245 FIELD-246 (FIELD-247 XPOINTER)
|
||||
FIELD-248 FIELD-249 FIELD-250 FIELD-251 FIELD-252 FIELD-253
|
||||
FIELD-254 FIELD-255 FIELD-256 FIELD-257 (FIELD-258 XPOINTER)
|
||||
FIELD-259
|
||||
(FIELD-260 FIXP)
|
||||
FIELD-261 FIELD-262 (FIELD-263 XPOINTER)
|
||||
FIELD-264
|
||||
(FIELD-265 WORD)
|
||||
(FIELD-266 FLAG)
|
||||
FIELD-267 FIELD-268 FIELD-269 FIELD-270 FIELD-271 (FIELD-272 BYTE)
|
||||
FIELD-273 FIELD-274 (FIELD-275 FLAG)
|
||||
(FIELD-276 BYTE)
|
||||
FIELD-277 FIELD-278 FIELD-279 (FIELD-280 XPOINTER)
|
||||
(FIELD-281 WORD)
|
||||
(FIELD-282 WORD)
|
||||
FIELD-283 FIELD-284 FIELD-285 (FIELD-286 WORD)
|
||||
FIELD-287
|
||||
(FIELD-288 XPOINTER)
|
||||
(FIELD-289 BYTE)
|
||||
FIELD-290
|
||||
(FIELD-291 XPOINTER)
|
||||
(FIELD-292 FLAG)
|
||||
FIELD-293 FIELD-294 (FIELD-295 FLAG)
|
||||
FIELD-296 FIELD-297 (FIELD-298 XPOINTER)
|
||||
(FIELD-299 FIXP)
|
||||
(FIELD-300 FIXP)
|
||||
(FIELD-301 BYTE)
|
||||
FIELD-302 FIELD-303 FIELD-304 FIELD-305 (FIELD-306 FIXP)
|
||||
FIELD-307
|
||||
(FIELD-308 FLAG)
|
||||
(FIELD-309 FIXP)
|
||||
FIELD-310
|
||||
(FIELD-311 XPOINTER)
|
||||
FIELD-312 FIELD-313 (FIELD-314 BYTE)
|
||||
FIELD-315
|
||||
(FIELD-316 WORD)
|
||||
(FIELD-317 FIXP)
|
||||
FIELD-318
|
||||
(FIELD-319 FLAG)
|
||||
FIELD-320
|
||||
(FIELD-321 WORD)))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'GC-TEST-TYPE
|
||||
'(POINTER POINTER POINTER BYTE FIXP POINTER WORD POINTER POINTER POINTER POINTER POINTER
|
||||
POINTER FIXP POINTER XPOINTER POINTER BYTE FIXP POINTER BYTE POINTER POINTER POINTER
|
||||
BYTE POINTER BYTE POINTER BYTE POINTER WORD POINTER XPOINTER POINTER FIXP POINTER
|
||||
POINTER POINTER FLAG POINTER FLAG POINTER FIXP FIXP POINTER XPOINTER POINTER POINTER
|
||||
POINTER FLAG BYTE POINTER POINTER BYTE POINTER POINTER BYTE WORD POINTER POINTER
|
||||
XPOINTER POINTER POINTER XPOINTER XPOINTER POINTER POINTER POINTER POINTER FLAG
|
||||
POINTER POINTER WORD POINTER FLAG POINTER POINTER POINTER POINTER FIXP FIXP POINTER
|
||||
POINTER POINTER POINTER XPOINTER BYTE XPOINTER POINTER BYTE FLAG FIXP FIXP FLAG
|
||||
POINTER FLAG POINTER FLAG POINTER POINTER POINTER POINTER POINTER XPOINTER POINTER
|
||||
POINTER POINTER POINTER BYTE POINTER WORD POINTER XPOINTER FLAG FIXP POINTER POINTER
|
||||
BYTE POINTER POINTER POINTER POINTER POINTER XPOINTER BYTE XPOINTER POINTER POINTER
|
||||
FIXP FLAG POINTER POINTER POINTER POINTER WORD FLAG POINTER POINTER POINTER WORD FLAG
|
||||
POINTER POINTER POINTER FIXP POINTER POINTER POINTER POINTER FLAG POINTER POINTER
|
||||
POINTER POINTER FIXP POINTER BYTE POINTER FIXP WORD POINTER WORD FIXP POINTER FIXP
|
||||
POINTER FLAG BYTE POINTER POINTER XPOINTER BYTE POINTER POINTER FLAG BYTE WORD POINTER
|
||||
FIXP POINTER POINTER BYTE POINTER POINTER POINTER POINTER POINTER BYTE FIXP POINTER
|
||||
POINTER POINTER BYTE POINTER WORD POINTER POINTER POINTER POINTER WORD POINTER FLAG
|
||||
POINTER XPOINTER POINTER POINTER POINTER FLAG POINTER WORD BYTE POINTER POINTER
|
||||
POINTER FIXP POINTER POINTER XPOINTER POINTER FLAG POINTER FLAG WORD FLAG WORD POINTER
|
||||
POINTER POINTER POINTER POINTER XPOINTER POINTER WORD WORD POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER XPOINTER POINTER WORD POINTER POINTER XPOINTER POINTER
|
||||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER XPOINTER
|
||||
POINTER FIXP POINTER POINTER XPOINTER POINTER WORD FLAG POINTER POINTER POINTER
|
||||
POINTER POINTER BYTE POINTER POINTER FLAG BYTE POINTER POINTER POINTER XPOINTER WORD
|
||||
WORD POINTER POINTER POINTER WORD POINTER XPOINTER BYTE POINTER XPOINTER FLAG POINTER
|
||||
POINTER FLAG POINTER POINTER XPOINTER FIXP FIXP BYTE POINTER POINTER POINTER POINTER
|
||||
FIXP POINTER FLAG FIXP POINTER XPOINTER POINTER POINTER BYTE POINTER WORD FIXP POINTER
|
||||
FLAG POINTER WORD)
|
||||
'((GC-TEST-TYPE 0 POINTER)
|
||||
(GC-TEST-TYPE 2 POINTER)
|
||||
(GC-TEST-TYPE 4 POINTER)
|
||||
(GC-TEST-TYPE 4 (BITS . 7))
|
||||
(GC-TEST-TYPE 6 FIXP)
|
||||
(GC-TEST-TYPE 8 POINTER)
|
||||
(GC-TEST-TYPE 10 (BITS . 15))
|
||||
(GC-TEST-TYPE 12 POINTER)
|
||||
(GC-TEST-TYPE 14 POINTER)
|
||||
(GC-TEST-TYPE 16 POINTER)
|
||||
(GC-TEST-TYPE 18 POINTER)
|
||||
(GC-TEST-TYPE 20 POINTER)
|
||||
(GC-TEST-TYPE 22 POINTER)
|
||||
(GC-TEST-TYPE 24 FIXP)
|
||||
(GC-TEST-TYPE 26 POINTER)
|
||||
(GC-TEST-TYPE 28 XPOINTER)
|
||||
(GC-TEST-TYPE 30 POINTER)
|
||||
(GC-TEST-TYPE 30 (BITS . 7))
|
||||
(GC-TEST-TYPE 32 FIXP)
|
||||
(GC-TEST-TYPE 34 POINTER)
|
||||
(GC-TEST-TYPE 34 (BITS . 7))
|
||||
(GC-TEST-TYPE 36 POINTER)
|
||||
(GC-TEST-TYPE 38 POINTER)
|
||||
(GC-TEST-TYPE 40 POINTER)
|
||||
(GC-TEST-TYPE 40 (BITS . 7))
|
||||
(GC-TEST-TYPE 42 POINTER)
|
||||
(GC-TEST-TYPE 42 (BITS . 7))
|
||||
(GC-TEST-TYPE 44 POINTER)
|
||||
(GC-TEST-TYPE 44 (BITS . 7))
|
||||
(GC-TEST-TYPE 46 POINTER)
|
||||
(GC-TEST-TYPE 11 (BITS . 15))
|
||||
(GC-TEST-TYPE 48 POINTER)
|
||||
(GC-TEST-TYPE 50 XPOINTER)
|
||||
(GC-TEST-TYPE 52 POINTER)
|
||||
(GC-TEST-TYPE 54 FIXP)
|
||||
(GC-TEST-TYPE 56 POINTER)
|
||||
(GC-TEST-TYPE 58 POINTER)
|
||||
(GC-TEST-TYPE 60 POINTER)
|
||||
(GC-TEST-TYPE 60 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 62 POINTER)
|
||||
(GC-TEST-TYPE 62 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 64 POINTER)
|
||||
(GC-TEST-TYPE 66 FIXP)
|
||||
(GC-TEST-TYPE 68 FIXP)
|
||||
(GC-TEST-TYPE 70 POINTER)
|
||||
(GC-TEST-TYPE 72 XPOINTER)
|
||||
(GC-TEST-TYPE 74 POINTER)
|
||||
(GC-TEST-TYPE 76 POINTER)
|
||||
(GC-TEST-TYPE 78 POINTER)
|
||||
(GC-TEST-TYPE 78 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 76 (BITS . 7))
|
||||
(GC-TEST-TYPE 80 POINTER)
|
||||
(GC-TEST-TYPE 82 POINTER)
|
||||
(GC-TEST-TYPE 82 (BITS . 7))
|
||||
(GC-TEST-TYPE 84 POINTER)
|
||||
(GC-TEST-TYPE 86 POINTER)
|
||||
(GC-TEST-TYPE 86 (BITS . 7))
|
||||
(GC-TEST-TYPE 88 (BITS . 15))
|
||||
(GC-TEST-TYPE 90 POINTER)
|
||||
(GC-TEST-TYPE 92 POINTER)
|
||||
(GC-TEST-TYPE 94 XPOINTER)
|
||||
(GC-TEST-TYPE 96 POINTER)
|
||||
(GC-TEST-TYPE 98 POINTER)
|
||||
(GC-TEST-TYPE 100 XPOINTER)
|
||||
(GC-TEST-TYPE 102 XPOINTER)
|
||||
(GC-TEST-TYPE 104 POINTER)
|
||||
(GC-TEST-TYPE 106 POINTER)
|
||||
(GC-TEST-TYPE 108 POINTER)
|
||||
(GC-TEST-TYPE 110 POINTER)
|
||||
(GC-TEST-TYPE 110 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 112 POINTER)
|
||||
(GC-TEST-TYPE 114 POINTER)
|
||||
(GC-TEST-TYPE 89 (BITS . 15))
|
||||
(GC-TEST-TYPE 116 POINTER)
|
||||
(GC-TEST-TYPE 116 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 118 POINTER)
|
||||
(GC-TEST-TYPE 120 POINTER)
|
||||
(GC-TEST-TYPE 122 POINTER)
|
||||
(GC-TEST-TYPE 124 POINTER)
|
||||
(GC-TEST-TYPE 126 FIXP)
|
||||
(GC-TEST-TYPE 128 FIXP)
|
||||
(GC-TEST-TYPE 130 POINTER)
|
||||
(GC-TEST-TYPE 132 POINTER)
|
||||
(GC-TEST-TYPE 134 POINTER)
|
||||
(GC-TEST-TYPE 136 POINTER)
|
||||
(GC-TEST-TYPE 138 XPOINTER)
|
||||
(GC-TEST-TYPE 138 (BITS . 7))
|
||||
(GC-TEST-TYPE 140 XPOINTER)
|
||||
(GC-TEST-TYPE 142 POINTER)
|
||||
(GC-TEST-TYPE 142 (BITS . 7))
|
||||
(GC-TEST-TYPE 140 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 144 FIXP)
|
||||
(GC-TEST-TYPE 146 FIXP)
|
||||
(GC-TEST-TYPE 140 (FLAGBITS . 16))
|
||||
(GC-TEST-TYPE 148 POINTER)
|
||||
(GC-TEST-TYPE 148 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 150 POINTER)
|
||||
(GC-TEST-TYPE 150 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 152 POINTER)
|
||||
(GC-TEST-TYPE 154 POINTER)
|
||||
(GC-TEST-TYPE 156 POINTER)
|
||||
(GC-TEST-TYPE 158 POINTER)
|
||||
(GC-TEST-TYPE 160 POINTER)
|
||||
(GC-TEST-TYPE 162 XPOINTER)
|
||||
(GC-TEST-TYPE 164 POINTER)
|
||||
(GC-TEST-TYPE 166 POINTER)
|
||||
(GC-TEST-TYPE 168 POINTER)
|
||||
(GC-TEST-TYPE 170 POINTER)
|
||||
(GC-TEST-TYPE 170 (BITS . 7))
|
||||
(GC-TEST-TYPE 172 POINTER)
|
||||
(GC-TEST-TYPE 174 (BITS . 15))
|
||||
(GC-TEST-TYPE 176 POINTER)
|
||||
(GC-TEST-TYPE 178 XPOINTER)
|
||||
(GC-TEST-TYPE 178 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 180 FIXP)
|
||||
(GC-TEST-TYPE 182 POINTER)
|
||||
(GC-TEST-TYPE 184 POINTER)
|
||||
(GC-TEST-TYPE 184 (BITS . 7))
|
||||
(GC-TEST-TYPE 186 POINTER)
|
||||
(GC-TEST-TYPE 188 POINTER)
|
||||
(GC-TEST-TYPE 190 POINTER)
|
||||
(GC-TEST-TYPE 192 POINTER)
|
||||
(GC-TEST-TYPE 194 POINTER)
|
||||
(GC-TEST-TYPE 196 XPOINTER)
|
||||
(GC-TEST-TYPE 196 (BITS . 7))
|
||||
(GC-TEST-TYPE 198 XPOINTER)
|
||||
(GC-TEST-TYPE 200 POINTER)
|
||||
(GC-TEST-TYPE 202 POINTER)
|
||||
(GC-TEST-TYPE 204 FIXP)
|
||||
(GC-TEST-TYPE 202 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 206 POINTER)
|
||||
(GC-TEST-TYPE 208 POINTER)
|
||||
(GC-TEST-TYPE 210 POINTER)
|
||||
(GC-TEST-TYPE 212 POINTER)
|
||||
(GC-TEST-TYPE 175 (BITS . 15))
|
||||
(GC-TEST-TYPE 212 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 214 POINTER)
|
||||
(GC-TEST-TYPE 216 POINTER)
|
||||
(GC-TEST-TYPE 218 POINTER)
|
||||
(GC-TEST-TYPE 220 (BITS . 15))
|
||||
(GC-TEST-TYPE 218 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 222 POINTER)
|
||||
(GC-TEST-TYPE 224 POINTER)
|
||||
(GC-TEST-TYPE 226 POINTER)
|
||||
(GC-TEST-TYPE 228 FIXP)
|
||||
(GC-TEST-TYPE 230 POINTER)
|
||||
(GC-TEST-TYPE 232 POINTER)
|
||||
(GC-TEST-TYPE 234 POINTER)
|
||||
(GC-TEST-TYPE 236 POINTER)
|
||||
(GC-TEST-TYPE 236 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 238 POINTER)
|
||||
(GC-TEST-TYPE 240 POINTER)
|
||||
(GC-TEST-TYPE 242 POINTER)
|
||||
(GC-TEST-TYPE 244 POINTER)
|
||||
(GC-TEST-TYPE 246 FIXP)
|
||||
(GC-TEST-TYPE 248 POINTER)
|
||||
(GC-TEST-TYPE 248 (BITS . 7))
|
||||
(GC-TEST-TYPE 250 POINTER)
|
||||
(GC-TEST-TYPE 252 FIXP)
|
||||
(GC-TEST-TYPE 221 (BITS . 15))
|
||||
(GC-TEST-TYPE 254 POINTER)
|
||||
(GC-TEST-TYPE 256 (BITS . 15))
|
||||
(GC-TEST-TYPE 257 FIXP)
|
||||
(GC-TEST-TYPE 260 POINTER)
|
||||
(GC-TEST-TYPE 262 FIXP)
|
||||
(GC-TEST-TYPE 264 POINTER)
|
||||
(GC-TEST-TYPE 264 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 260 (BITS . 7))
|
||||
(GC-TEST-TYPE 266 POINTER)
|
||||
(GC-TEST-TYPE 268 POINTER)
|
||||
(GC-TEST-TYPE 270 XPOINTER)
|
||||
(GC-TEST-TYPE 270 (BITS . 7))
|
||||
(GC-TEST-TYPE 272 POINTER)
|
||||
(GC-TEST-TYPE 274 POINTER)
|
||||
(GC-TEST-TYPE 274 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 272 (BITS . 7))
|
||||
(GC-TEST-TYPE 259 (BITS . 15))
|
||||
(GC-TEST-TYPE 276 POINTER)
|
||||
(GC-TEST-TYPE 278 FIXP)
|
||||
(GC-TEST-TYPE 280 POINTER)
|
||||
(GC-TEST-TYPE 282 POINTER)
|
||||
(GC-TEST-TYPE 282 (BITS . 7))
|
||||
(GC-TEST-TYPE 284 POINTER)
|
||||
(GC-TEST-TYPE 286 POINTER)
|
||||
(GC-TEST-TYPE 288 POINTER)
|
||||
(GC-TEST-TYPE 290 POINTER)
|
||||
(GC-TEST-TYPE 292 POINTER)
|
||||
(GC-TEST-TYPE 292 (BITS . 7))
|
||||
(GC-TEST-TYPE 294 FIXP)
|
||||
(GC-TEST-TYPE 296 POINTER)
|
||||
(GC-TEST-TYPE 298 POINTER)
|
||||
(GC-TEST-TYPE 300 POINTER)
|
||||
(GC-TEST-TYPE 300 (BITS . 7))
|
||||
(GC-TEST-TYPE 302 POINTER)
|
||||
(GC-TEST-TYPE 304 (BITS . 15))
|
||||
(GC-TEST-TYPE 306 POINTER)
|
||||
(GC-TEST-TYPE 308 POINTER)
|
||||
(GC-TEST-TYPE 310 POINTER)
|
||||
(GC-TEST-TYPE 312 POINTER)
|
||||
(GC-TEST-TYPE 305 (BITS . 15))
|
||||
(GC-TEST-TYPE 314 POINTER)
|
||||
(GC-TEST-TYPE 314 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 316 POINTER)
|
||||
(GC-TEST-TYPE 318 XPOINTER)
|
||||
(GC-TEST-TYPE 320 POINTER)
|
||||
(GC-TEST-TYPE 322 POINTER)
|
||||
(GC-TEST-TYPE 324 POINTER)
|
||||
(GC-TEST-TYPE 324 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 326 POINTER)
|
||||
(GC-TEST-TYPE 328 (BITS . 15))
|
||||
(GC-TEST-TYPE 326 (BITS . 7))
|
||||
(GC-TEST-TYPE 330 POINTER)
|
||||
(GC-TEST-TYPE 332 POINTER)
|
||||
(GC-TEST-TYPE 334 POINTER)
|
||||
(GC-TEST-TYPE 336 FIXP)
|
||||
(GC-TEST-TYPE 338 POINTER)
|
||||
(GC-TEST-TYPE 340 POINTER)
|
||||
(GC-TEST-TYPE 342 XPOINTER)
|
||||
(GC-TEST-TYPE 344 POINTER)
|
||||
(GC-TEST-TYPE 344 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 346 POINTER)
|
||||
(GC-TEST-TYPE 346 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 329 (BITS . 15))
|
||||
(GC-TEST-TYPE 346 (FLAGBITS . 16))
|
||||
(GC-TEST-TYPE 348 (BITS . 15))
|
||||
(GC-TEST-TYPE 350 POINTER)
|
||||
(GC-TEST-TYPE 352 POINTER)
|
||||
(GC-TEST-TYPE 354 POINTER)
|
||||
(GC-TEST-TYPE 356 POINTER)
|
||||
(GC-TEST-TYPE 358 POINTER)
|
||||
(GC-TEST-TYPE 360 XPOINTER)
|
||||
(GC-TEST-TYPE 362 POINTER)
|
||||
(GC-TEST-TYPE 349 (BITS . 15))
|
||||
(GC-TEST-TYPE 364 (BITS . 15))
|
||||
(GC-TEST-TYPE 366 POINTER)
|
||||
(GC-TEST-TYPE 368 POINTER)
|
||||
(GC-TEST-TYPE 370 POINTER)
|
||||
(GC-TEST-TYPE 372 POINTER)
|
||||
(GC-TEST-TYPE 374 POINTER)
|
||||
(GC-TEST-TYPE 376 POINTER)
|
||||
(GC-TEST-TYPE 378 POINTER)
|
||||
(GC-TEST-TYPE 380 XPOINTER)
|
||||
(GC-TEST-TYPE 382 POINTER)
|
||||
(GC-TEST-TYPE 365 (BITS . 15))
|
||||
(GC-TEST-TYPE 384 POINTER)
|
||||
(GC-TEST-TYPE 386 POINTER)
|
||||
(GC-TEST-TYPE 388 XPOINTER)
|
||||
(GC-TEST-TYPE 390 POINTER)
|
||||
(GC-TEST-TYPE 392 POINTER)
|
||||
(GC-TEST-TYPE 394 POINTER)
|
||||
(GC-TEST-TYPE 396 POINTER)
|
||||
(GC-TEST-TYPE 398 POINTER)
|
||||
(GC-TEST-TYPE 400 POINTER)
|
||||
(GC-TEST-TYPE 402 POINTER)
|
||||
(GC-TEST-TYPE 404 POINTER)
|
||||
(GC-TEST-TYPE 406 POINTER)
|
||||
(GC-TEST-TYPE 408 POINTER)
|
||||
(GC-TEST-TYPE 410 XPOINTER)
|
||||
(GC-TEST-TYPE 412 POINTER)
|
||||
(GC-TEST-TYPE 414 FIXP)
|
||||
(GC-TEST-TYPE 416 POINTER)
|
||||
(GC-TEST-TYPE 418 POINTER)
|
||||
(GC-TEST-TYPE 420 XPOINTER)
|
||||
(GC-TEST-TYPE 422 POINTER)
|
||||
(GC-TEST-TYPE 424 (BITS . 15))
|
||||
(GC-TEST-TYPE 422 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 426 POINTER)
|
||||
(GC-TEST-TYPE 428 POINTER)
|
||||
(GC-TEST-TYPE 430 POINTER)
|
||||
(GC-TEST-TYPE 432 POINTER)
|
||||
(GC-TEST-TYPE 434 POINTER)
|
||||
(GC-TEST-TYPE 434 (BITS . 7))
|
||||
(GC-TEST-TYPE 436 POINTER)
|
||||
(GC-TEST-TYPE 438 POINTER)
|
||||
(GC-TEST-TYPE 438 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 436 (BITS . 7))
|
||||
(GC-TEST-TYPE 440 POINTER)
|
||||
(GC-TEST-TYPE 442 POINTER)
|
||||
(GC-TEST-TYPE 444 POINTER)
|
||||
(GC-TEST-TYPE 446 XPOINTER)
|
||||
(GC-TEST-TYPE 425 (BITS . 15))
|
||||
(GC-TEST-TYPE 448 (BITS . 15))
|
||||
(GC-TEST-TYPE 450 POINTER)
|
||||
(GC-TEST-TYPE 452 POINTER)
|
||||
(GC-TEST-TYPE 454 POINTER)
|
||||
(GC-TEST-TYPE 449 (BITS . 15))
|
||||
(GC-TEST-TYPE 456 POINTER)
|
||||
(GC-TEST-TYPE 458 XPOINTER)
|
||||
(GC-TEST-TYPE 458 (BITS . 7))
|
||||
(GC-TEST-TYPE 460 POINTER)
|
||||
(GC-TEST-TYPE 462 XPOINTER)
|
||||
(GC-TEST-TYPE 462 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 464 POINTER)
|
||||
(GC-TEST-TYPE 466 POINTER)
|
||||
(GC-TEST-TYPE 466 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 468 POINTER)
|
||||
(GC-TEST-TYPE 470 POINTER)
|
||||
(GC-TEST-TYPE 472 XPOINTER)
|
||||
(GC-TEST-TYPE 474 FIXP)
|
||||
(GC-TEST-TYPE 476 FIXP)
|
||||
(GC-TEST-TYPE 472 (BITS . 7))
|
||||
(GC-TEST-TYPE 478 POINTER)
|
||||
(GC-TEST-TYPE 480 POINTER)
|
||||
(GC-TEST-TYPE 482 POINTER)
|
||||
(GC-TEST-TYPE 484 POINTER)
|
||||
(GC-TEST-TYPE 486 FIXP)
|
||||
(GC-TEST-TYPE 488 POINTER)
|
||||
(GC-TEST-TYPE 488 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 490 FIXP)
|
||||
(GC-TEST-TYPE 492 POINTER)
|
||||
(GC-TEST-TYPE 494 XPOINTER)
|
||||
(GC-TEST-TYPE 496 POINTER)
|
||||
(GC-TEST-TYPE 498 POINTER)
|
||||
(GC-TEST-TYPE 498 (BITS . 7))
|
||||
(GC-TEST-TYPE 500 POINTER)
|
||||
(GC-TEST-TYPE 502 (BITS . 15))
|
||||
(GC-TEST-TYPE 503 FIXP)
|
||||
(GC-TEST-TYPE 506 POINTER)
|
||||
(GC-TEST-TYPE 506 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 508 POINTER)
|
||||
(GC-TEST-TYPE 505 (BITS . 15)))
|
||||
'510)
|
||||
|
||||
|
||||
|
||||
(* |;;| "DATATYPE TESTS")
|
||||
|
||||
|
||||
|
||||
|
||||
(* |;;| "CODE RECLAIMATION TESTS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(CODE-RECLAIM-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 23-Jun-88 11:54 by jds")
|
||||
(LET NIL
|
||||
|
||||
(* |;;| "Make sure there's a definition to compile.")
|
||||
|
||||
(OR (GETD 'CODE-RECLAIM-TEST-TEMP-FN)
|
||||
(EVAL CODE-RECLAIM-TEST-TEMP-FN))
|
||||
(PRINTOUT T " Starting code-block reclaim test" T)
|
||||
(|for| I |from| 1 |to| LIMIT |do| (BKSYSBUF "ST
|
||||
N
|
||||
")
|
||||
(COMPILE 'CODE-RECLAIM-TEST-TEMP-FN))
|
||||
(PRINTOUT T " Starting MAPATOMS(GETD)" T)
|
||||
(|for| I |from| 1 |to| LIMIT |do| (MAPATOMS (FUNCTION GETD))))))
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* |;;|
|
||||
"The function that is repeatedly compiled to test that code-block constants inside code blocks are reclaimed."
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ CODE-RECLAIM-TEST-TEMP-FN
|
||||
(DEFINEQ (CODE-RECLAIM-TEST-TEMP-FN (ASDF)
|
||||
(LET (I)
|
||||
(FOR I FROM 1 TO 10 COLLECT (SQRT 4.5))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(CL:FLET ((TEMP (ARG)
|
||||
(SETQ ARG (FLOAT ARG))
|
||||
(EXPT (SQRT I)
|
||||
(SQRT (COS (/ I 180))))))
|
||||
(CL:UNWIND-PROTECT
|
||||
(FOR I FROM 1 TO 1000 COLLECT (TEMP I))
|
||||
(SETQ I NIL)))))))
|
||||
(PUTPROPS MAIKO-GC-TESTS COPYRIGHT ("John Sybalsky & Xerox Corporation" 1988))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (2908 5241 (MAIN-GC-TEST 2918 . 5239)) (5242 13684 (ITEMS-ON-STACK-TEST 5252 . 6415) (
|
||||
MANY-BIGNUM-MAKER 6417 . 7289) (MANY-FIXP-MAKER 7291 . 8077) (MANY-FLOAT-MAKER 8079 . 8686) (
|
||||
BOUNDARY-TESTS 8688 . 11155) (ARRAY-STRING-TEST 11157 . 13103) (VARIOUS-TYPES-TEST 13105 . 13682)) (
|
||||
13685 18528 (TEDIT-CRUNCH-TEST 13695 . 15107) (LIST-MANIPULATION-TEST 15109 . 18526)) (18529 19213 (
|
||||
ATOM-FULL-TEST 18539 . 18970) (STORAGE-FULL-TEST 18972 . 19211)) (19214 19732 (DATATYPE-TEST 19224 .
|
||||
19730)) (44715 45405 (CODE-RECLAIM-TEST 44725 . 45403)))))
|
||||
STOP
|
||||
@@ -1,925 +0,0 @@
|
||||
(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
|
||||
(FILECREATED " 2-Aug-88 21:52:05" {ERIS}<TEST>GC>HAND>MAIKO-GC-TESTS.\;7 46959
|
||||
|
||||
|changes| |to:| (FNS MAIN-GC-TEST LIST-MANIPULATION-TEST CODE-RECLAIM-TEST)
|
||||
|
||||
|previous| |date:| "23-Jun-88 16:06:34" {ERIS}<TEST>GC>HAND>MAIKO-GC-TESTS.\;6)
|
||||
|
||||
|
||||
; Copyright (c) 1988 by John Sybalsky & Xerox Corporation. All rights reserved.
|
||||
|
||||
(PRETTYCOMPRINT MAIKO-GC-TESTSCOMS)
|
||||
|
||||
(RPAQQ MAIKO-GC-TESTSCOMS
|
||||
((FILES DANCEROBJ GCHAX)
|
||||
(ADDVARS (DISPLAYFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
(INTERPRESSFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>"))
|
||||
(P (SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT AC STRIKE)))
|
||||
(FNS MAIN-GC-TEST)
|
||||
(FNS ITEMS-ON-STACK-TEST MANY-BIGNUM-MAKER MANY-FIXP-MAKER MANY-FLOAT-MAKER BOUNDARY-TESTS
|
||||
ARRAY-STRING-TEST VARIOUS-TYPES-TEST)
|
||||
(FNS TEDIT-CRUNCH-TEST LIST-MANIPULATION-TEST)
|
||||
(FNS ATOM-FULL-TEST STORAGE-FULL-TEST)
|
||||
(COMS (FNS DATATYPE-TEST)
|
||||
(RECORDS GC-TEST-TYPE)
|
||||
|
||||
(* |;;| "DATATYPE TESTS")
|
||||
)
|
||||
(COMS
|
||||
|
||||
(* |;;| "CODE RECLAIMATION TESTS")
|
||||
|
||||
(FNS CODE-RECLAIM-TEST)
|
||||
|
||||
(* |;;| "The function that is repeatedly compiled to test that code-block constants inside code blocks are reclaimed.")
|
||||
|
||||
(VARS (CODE-RECLAIM-TEST-TEMP-FN
|
||||
'(DEFINEQ (CODE-RECLAIM-TEST-TEMP-FN
|
||||
(ASDF)
|
||||
(LET (I)
|
||||
(FOR I FROM 1 TO 10 COLLECT (SQRT 4.5))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(CL:FLET ((TEMP (ARG)
|
||||
(SETQ ARG (FLOAT ARG))
|
||||
(EXPT (SQRT I)
|
||||
(SQRT (COS (/ I 180))))))
|
||||
(CL:UNWIND-PROTECT
|
||||
(FOR I FROM 1 TO 1000 COLLECT (TEMP I))
|
||||
(SETQ I NIL)))))))))))
|
||||
|
||||
(FILESLOAD DANCEROBJ GCHAX)
|
||||
|
||||
(ADDTOVAR DISPLAYFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>" "{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
|
||||
(ADDTOVAR INTERPRESSFONTDIRECTORIES "{ERIS}<TEST>GC>HAND-AUX>"
|
||||
"{ERIS}<LISPCORE>XEROXPRIVATE>FONTS>")
|
||||
|
||||
(SETQ DISPLAYFONTEXTENSIONS '(DISPLAYFONT AC STRIKE))
|
||||
(DEFINEQ
|
||||
|
||||
(MAIN-GC-TEST
|
||||
(LAMBDA (LIMIT DRIBBLE-FILE STACK-COUNT BIGNUM-COUNT FIXP-COUNT FLOAT-COUNT TEDIT-COUNT LIST-COUNT
|
||||
CODE-COUNT TYPE-COUNT LIST-LEN-LIMIT) (* \; "Edited 23-Jun-88 13:30 by jds")
|
||||
(DRIBBLE (OR DRIBBLE-FILE "{LPT}"))
|
||||
(PRINTOUT T ";;; ***********" T ";;; MAIKO GARBAGE COLLECTOR TESTS" T ";;; Run on " (DATE)
|
||||
T ";;; Dribble to " (OR DRIBBLE-FILE "{LPT}")
|
||||
T T)
|
||||
(|for| I |from| 1 |to| (OR LIMIT 10) |do| (PRINTOUT T
|
||||
"Starting Maiko GC tests, pass "
|
||||
I T)
|
||||
(ITEMS-ON-STACK-TEST (OR STACK-COUNT
|
||||
100))
|
||||
(MANY-BIGNUM-MAKER (OR BIGNUM-COUNT
|
||||
1000))
|
||||
(MANY-FIXP-MAKER (OR FIXP-COUNT 1000))
|
||||
(MANY-FLOAT-MAKER (OR FLOAT-COUNT 1000
|
||||
))
|
||||
(TEDIT-CRUNCH-TEST (OR TEDIT-COUNT 5))
|
||||
(ARRAY-STRING-TEST 3)
|
||||
(LIST-MANIPULATION-TEST (OR LIST-COUNT
|
||||
5)
|
||||
LIST-LEN-LIMIT)
|
||||
(BOUNDARY-TESTS)
|
||||
(CODE-RECLAIM-TEST (OR CODE-COUNT 20))
|
||||
(VARIOUS-TYPES-TEST (OR TYPE-COUNT 10)
|
||||
)
|
||||
(FRPTQ 100 (RECLAIM))
|
||||
(STORAGE))
|
||||
(ATOM-FULL-TEST)
|
||||
(STORAGE-FULL-TEST)
|
||||
(DRIBBLE NIL)))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(ITEMS-ON-STACK-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:56 by jds")
|
||||
(PRINTOUT T " Starting ITEMS-ON-STACK test for " LIMIT " iterations." T)
|
||||
(FOR I FROM 1 TO LIMIT DO (LET ((X (CREATE CHARLOOKS))
|
||||
(Y (EXPT 1234.5 (RAND 3 7))))
|
||||
(ERSETQ (FRPTQ 5 (RECLAIM))
|
||||
(COND
|
||||
((\\ISONFREELIST X)
|
||||
(HELP
|
||||
"X is free, but pointer is on stack."
|
||||
))
|
||||
((\\ISONFREELIST Y)
|
||||
(HELP
|
||||
"Y is free, but pointer is on stack."
|
||||
))))))))
|
||||
|
||||
(MANY-BIGNUM-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:54 by jds")
|
||||
(PRINTOUT T " Starting MANY-BIGNUM-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (CL:* 12345678901234567890
|
||||
(RAND 1 I)))
|
||||
(SETQ Y (IQUOTIENT X 3))
|
||||
(SETQ Z (IPLUS Y X X 34 2 9 (IMOD X 7)
|
||||
(IREMAINDER Y 3)
|
||||
(CL:FLOOR Y 2)
|
||||
(CL:CEILING X 8)))
|
||||
(SETQ W (/ Z Y))))))
|
||||
|
||||
(MANY-FIXP-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:54 by jds")
|
||||
(PRINTOUT T " Starting MANY-FIXP-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (CL:* 543 (RAND 1 I)))
|
||||
(SETQ Y (IQUOTIENT X 3))
|
||||
(SETQ Z (IPLUS Y X X 34 2 9 (IMOD X 7)
|
||||
(IREMAINDER Y 3)
|
||||
(CL:FLOOR Y 2)
|
||||
(CL:CEILING X 8)))
|
||||
(SETQ W (/ Z Y))))))
|
||||
|
||||
(MANY-FLOAT-MAKER
|
||||
(LAMBDA (LIMIT) (* \; "Edited 25-May-88 11:55 by jds")
|
||||
(PRINTOUT T " Starting MANY-FLOAT-MAKER test for " LIMIT " iterations." T)
|
||||
(LET (X Y Z W)
|
||||
(FOR I FROM 1 TO LIMIT DO (SETQ X (FTIMES 1.0 (RAND 0 1)))
|
||||
(SETQ Y (+ (SQRT I)
|
||||
(EXPT (SQRT (SQRT I))
|
||||
3.4)))
|
||||
(SETQ Z (LOG Y))))))
|
||||
|
||||
(BOUNDARY-TESTS
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:54 by jds")
|
||||
|
||||
(* |;;| "Tests the transition into and out of big refcnts, and BIG refcnt's.")
|
||||
|
||||
(PRINTOUT T " Starting Refcnt-63 crossing test" T)
|
||||
(LET* ((ITEM (|create| FMTSPEC))
|
||||
(LIST (|for| I |from| 1 |to| 62 |collect| ITEM)))
|
||||
(|for| I |from| 1 |to| 1000 |do| (|for| J |from| (LENGTH LIST)
|
||||
|to| (+ 63 (RAND 1 10))
|
||||
|do| (SETQ LIST (CONS ITEM LIST)))
|
||||
(|for| J |from| (LENGTH LIST)
|
||||
|to| (- 63 (RAND 3 12))
|
||||
|do| (|pop| LIST))
|
||||
(COND
|
||||
((ZEROP (IMOD I 31))
|
||||
(RECLAIM))))
|
||||
(PRINTOUT T " Starting Refcount-500K <-> NIL test." T)
|
||||
(|for| LOOP |from| 1 |to| 10 |do| (|for| I |from| 1 |to| 500000
|
||||
|do| (SETQ LIST (CONS ITEM LIST)))
|
||||
(SETQ LIST NIL))
|
||||
(PRINTOUT T " Starting Refcount 1-2 boundary test." T)
|
||||
(LET ((ITEM (LIST (|create| FMTSPEC))))
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM2 (CAR ITEM))
|
||||
(SETQ ITEM2 NIL)))
|
||||
(PRINTOUT T " Starting Refcount 1 + stack boundary test." T)
|
||||
(LET ((ITEM (|create| FMTSPEC))
|
||||
ITEM2)
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM2 (LIST ITEM))
|
||||
(RPLACA ITEM2 NIL)))
|
||||
(PRINTOUT T " Starting Refcount 0-1 boundary test." T)
|
||||
(LET (ITEM)
|
||||
(|for| I |from| 1 |to| 5000 |do| (SETQ ITEM (LIST (|create|
|
||||
FMTSPEC)))
|
||||
(RPLACA ITEM NIL))))))
|
||||
|
||||
(ARRAY-STRING-TEST
|
||||
(LAMBDA (LIMIT REAL-STRESS) (* \; "Edited 23-Jun-88 12:23 by jds")
|
||||
|
||||
(* |;;| "Try out array & string creation, and substringing on the GC.")
|
||||
|
||||
(PRINTOUT T " Starting Array & String test." T)
|
||||
(FOR I FROM 1 TO (OR LIMIT 10)
|
||||
DO (LET (STRINGS ARRAYS)
|
||||
(FOR ARRAY-COUNT FROM 1 TO 5000
|
||||
COLLECT (CL:MAKE-ARRAY (RAND 10 (COND
|
||||
(REAL-STRESS 65000)
|
||||
(T (IMAX 100 (IQUOTIENT 65000
|
||||
ARRAY-COUNT)))))))
|
||||
(FOR I FROM 1 TO 5000 COLLECT (BITMAPCREATE (RAND 1 512)
|
||||
(RAND 1 512)))
|
||||
(SETQ STRINGS (FOR STRING-COUNT FROM 1 TO 5000
|
||||
COLLECT (ALLOCSTRING (RAND 10
|
||||
(COND
|
||||
(REAL-STRESS 65000)
|
||||
(T (IMAX 100 (IQUOTIENT 65000
|
||||
STRING-COUNT
|
||||
))))))))
|
||||
(FOR STRING IN STRINGS
|
||||
COLLECT (SUBSTRING STRING (RAND 1 (LRSH (NCHARS STRING)
|
||||
1))
|
||||
(RAND (ADD1 (LRSH (NCHARS STRING)
|
||||
1))
|
||||
(NCHARS STRING))))))))
|
||||
|
||||
(VARIOUS-TYPES-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 23-Jun-88 12:04 by jds")
|
||||
|
||||
(* |;;|
|
||||
"Run thru creation and collection of various types that have caused trouble in the past. ")
|
||||
|
||||
(PRINTOUT T " Starting various type cases." T)
|
||||
(FOR REPEAT-COUNT FROM 1 TO (OR LIMIT 10)
|
||||
DO (|for| TYPE IN '(VMEMPAGEP) AS CREATION-LIMIT IN '(100)
|
||||
|do| (FOR I FROM 1 TO CREATION-LIMIT COLLECT (NCREATE TYPE))
|
||||
(DORECLAIM)))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(TEDIT-CRUNCH-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 27-May-88 13:06 by jds")
|
||||
|
||||
(* |;;| "GC Testing -- stressing the world.")
|
||||
|
||||
(* |;;| "Hardcopy a big TEdit file to a {CORE} file, copy that to disk, and delete everything.")
|
||||
|
||||
(PRINTOUT T " Starting TEDIT-CRUNCH test for " LIMIT " iterations." T)
|
||||
(FOR PASS FROM 1 TO LIMIT DO (PRINTOUT T " Round " PASS " started " (DATE)
|
||||
"." T)
|
||||
(LET ((TS (OPENTEXTSTREAM
|
||||
'
|
||||
|{ERIS}<Test>GC>Hand-Aux>ADVDICT-N-Z.TEDIT|
|
||||
))
|
||||
TLIST)
|
||||
(TEDIT.HARDCOPY TS '{CORE}FOO.IP T)
|
||||
(COPYFILE '{CORE}FOO.IP '{DSK}FOO.IP)
|
||||
(DELFILE '{DSK}FOO.IP)
|
||||
(DELFILE '{CORE}FOO.IP)
|
||||
(CLOSEF (FETCH (TEXTOBJ TXTFILE)
|
||||
OF (TEXTOBJ TS)))))))
|
||||
|
||||
(LIST-MANIPULATION-TEST
|
||||
(LAMBDA (LIMIT LENGTH-LIMIT) (* \; "Edited 23-Jun-88 14:03 by jds")
|
||||
|
||||
(* |;;| "Do lots of list creation, popping, and consing, to make sure the GC works.")
|
||||
|
||||
(PRINTOUT T " Starting LIST-MANIPULATION test for " LIMIT " iterations." T)
|
||||
(|for| PASS |from| 1 |to| LIMIT
|
||||
|do| (PRINTOUT T " Round " PASS " started " (DATE)
|
||||
"." T)
|
||||
(LET ((TS (OPENTEXTSTREAM '|{ERIS}<sybalsky>Top10-87>Dictionaries>ADVDICT-A-M.TEDIT|))
|
||||
(LEN (RAND 0 (OR LENGTH-LIMIT 100000)))
|
||||
TLIST)
|
||||
(SETQ TLIST (|for| I |from| 1 |to| LEN |collect| TS))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH LEN 1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| I |from| 1 |to| (RAND 1 100) |do| (SETQ TLIST
|
||||
(CONS TS TLIST)))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| I |from| 1 |to| (RAND 1 2000) |do| (SETQ TLIST
|
||||
(CONS TS TLIST)))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(|for| \i |from| 1 |to| (RAND 1 1500)
|
||||
|do| (SETQ TLIST (NCONC TLIST
|
||||
(|for| J |from| 1
|
||||
|to| (RAND 1 10)
|
||||
|join| (|for| K |from| 1 |to|
|
||||
3
|
||||
|collect| (CONS TS K))))))
|
||||
(|for| I |from| 1 |to| (RAND 1 (IMAX 1 (LRSH (FLENGTH TLIST)
|
||||
1)))
|
||||
|do| (|pop| TLIST))
|
||||
(CLOSEF (|fetch| (TEXTOBJ TXTFILE) |of| (TEXTOBJ TS))))
|
||||
(LET ((GC-ITEM (NCREATE 'VMEMPAGEP))
|
||||
(LEN (RAND 10 500))
|
||||
TLIST ELT)
|
||||
(SETQ TLIST (|for| I |from| 1 |to| LEN |collect| NIL))
|
||||
(|for| I |from| 1 |to| LEN |do| (SETQ ELT (CL:RANDOM LEN))
|
||||
(RPLACA (CL:NTHCDR ELT TLIST)
|
||||
GC-ITEM)
|
||||
(RPLACA (CL:NTHCDR (SUB1 I)
|
||||
TLIST)
|
||||
GC-ITEM))
|
||||
(|for| I |from| (SUB1 LEN) |to| 0 |by| -1
|
||||
|do| (RPLACD (CL:NTHCDR I TLIST)
|
||||
GC-ITEM))))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(ATOM-FULL-TEST
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:39 by jds")
|
||||
(PRINTOUT T " Starting ATOM-space full test.")
|
||||
(LET ((CUR-ATOM-COUNT |\\AtomFrLst|))
|
||||
(CL:UNWIND-PROTECT
|
||||
(PROGN (SETQ |\\AtomFrLst| 64000)
|
||||
(FOR I FROM 64000 TO 70000 DO (GENSYM 'GC-TEST)))
|
||||
(SETQ |\\AtomFrLst| CUR-ATOM-COUNT)))))
|
||||
|
||||
(STORAGE-FULL-TEST
|
||||
(LAMBDA NIL (* \; "Edited 26-May-88 11:47 by jds")
|
||||
(PRINTOUT T " Starting Storage-full test." T)
|
||||
(ERSETQ (FOR I FROM 1 COLLECT (ARRAY 100)))))
|
||||
)
|
||||
(DEFINEQ
|
||||
|
||||
(DATATYPE-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 26-May-88 11:26 by jds")
|
||||
(FOR I FROM 1 TO (OR LIMIT 10)
|
||||
DO (FOR L FROM 1 TO 100 DO (FOR Y FROM 1 TO 20
|
||||
COLLECT (CREATE GC-TEST-TYPE
|
||||
FIELD-1 _ T))
|
||||
(RECLAIM)))))
|
||||
)
|
||||
(DECLARE\: EVAL@COMPILE
|
||||
|
||||
(DATATYPE GC-TEST-TYPE (FIELD-1 FIELD-2 FIELD-3 (FIELD-4 BYTE)
|
||||
(FIELD-5 FIXP)
|
||||
FIELD-6
|
||||
(FIELD-7 WORD)
|
||||
FIELD-8 FIELD-9 FIELD-10 FIELD-11 FIELD-12 FIELD-13 (FIELD-14
|
||||
FIXP)
|
||||
FIELD-15
|
||||
(FIELD-16 XPOINTER)
|
||||
FIELD-17
|
||||
(FIELD-18 BYTE)
|
||||
(FIELD-19 FIXP)
|
||||
FIELD-20
|
||||
(FIELD-21 BYTE)
|
||||
FIELD-22 FIELD-23 FIELD-24 (FIELD-25 BYTE)
|
||||
FIELD-26
|
||||
(FIELD-27 BYTE)
|
||||
FIELD-28
|
||||
(FIELD-29 BYTE)
|
||||
FIELD-30
|
||||
(FIELD-31 WORD)
|
||||
FIELD-32
|
||||
(FIELD-33 XPOINTER)
|
||||
FIELD-34
|
||||
(FIELD-35 FIXP)
|
||||
FIELD-36 FIELD-37 FIELD-38 (FIELD-39 FLAG)
|
||||
FIELD-40
|
||||
(FIELD-41 FLAG)
|
||||
FIELD-42
|
||||
(FIELD-43 FIXP)
|
||||
(FIELD-44 FIXP)
|
||||
FIELD-45
|
||||
(FIELD-46 XPOINTER)
|
||||
FIELD-47 FIELD-48 FIELD-49 (FIELD-50 FLAG)
|
||||
(FIELD-51 BYTE)
|
||||
FIELD-52 FIELD-53 (FIELD-54 BYTE)
|
||||
FIELD-55 FIELD-56 (FIELD-57 BYTE)
|
||||
(FIELD-58 WORD)
|
||||
FIELD-59 FIELD-60 (FIELD-61 XPOINTER)
|
||||
FIELD-62 FIELD-63 (FIELD-64 XPOINTER)
|
||||
(FIELD-65 XPOINTER)
|
||||
FIELD-66 FIELD-67 FIELD-68 FIELD-69 (FIELD-70 FLAG)
|
||||
FIELD-71 FIELD-72 (FIELD-73 WORD)
|
||||
FIELD-74
|
||||
(FIELD-75 FLAG)
|
||||
FIELD-76 FIELD-77 FIELD-78 FIELD-79 (FIELD-80 FIXP)
|
||||
(FIELD-81 FIXP)
|
||||
FIELD-82 FIELD-83 FIELD-84 FIELD-85 (FIELD-86 XPOINTER)
|
||||
(FIELD-87 BYTE)
|
||||
(FIELD-88 XPOINTER)
|
||||
FIELD-89
|
||||
(FIELD-90 BYTE)
|
||||
(FIELD-91 FLAG)
|
||||
(FIELD-92 FIXP)
|
||||
(FIELD-93 FIXP)
|
||||
(FIELD-94 FLAG)
|
||||
FIELD-95
|
||||
(FIELD-96 FLAG)
|
||||
FIELD-97
|
||||
(FIELD-98 FLAG)
|
||||
FIELD-99 FIELD-100 FIELD-101 FIELD-102 FIELD-103 (FIELD-104
|
||||
XPOINTER)
|
||||
FIELD-105 FIELD-106 FIELD-107 FIELD-108 (FIELD-109 BYTE)
|
||||
FIELD-110
|
||||
(FIELD-111 WORD)
|
||||
FIELD-112
|
||||
(FIELD-113 XPOINTER)
|
||||
(FIELD-114 FLAG)
|
||||
(FIELD-115 FIXP)
|
||||
FIELD-116 FIELD-117 (FIELD-118 BYTE)
|
||||
FIELD-119 FIELD-120 FIELD-121 FIELD-122 FIELD-123 (FIELD-124
|
||||
XPOINTER)
|
||||
(FIELD-125 BYTE)
|
||||
(FIELD-126 XPOINTER)
|
||||
FIELD-127 FIELD-128 (FIELD-129 FIXP)
|
||||
(FIELD-130 FLAG)
|
||||
FIELD-131 FIELD-132 FIELD-133 FIELD-134 (FIELD-135 WORD)
|
||||
(FIELD-136 FLAG)
|
||||
FIELD-137 FIELD-138 FIELD-139 (FIELD-140 WORD)
|
||||
(FIELD-141 FLAG)
|
||||
FIELD-142 FIELD-143 FIELD-144 (FIELD-145 FIXP)
|
||||
FIELD-146 FIELD-147 FIELD-148 FIELD-149 (FIELD-150 FLAG)
|
||||
FIELD-151 FIELD-152 FIELD-153 FIELD-154 (FIELD-155 FIXP)
|
||||
FIELD-156
|
||||
(FIELD-157 BYTE)
|
||||
FIELD-158
|
||||
(FIELD-159 FIXP)
|
||||
(FIELD-160 WORD)
|
||||
FIELD-161
|
||||
(FIELD-162 WORD)
|
||||
(FIELD-163 FIXP)
|
||||
FIELD-164
|
||||
(FIELD-165 FIXP)
|
||||
FIELD-166
|
||||
(FIELD-167 FLAG)
|
||||
(FIELD-168 BYTE)
|
||||
FIELD-169 FIELD-170 (FIELD-171 XPOINTER)
|
||||
(FIELD-172 BYTE)
|
||||
FIELD-173 FIELD-174 (FIELD-175 FLAG)
|
||||
(FIELD-176 BYTE)
|
||||
(FIELD-177 WORD)
|
||||
FIELD-178
|
||||
(FIELD-179 FIXP)
|
||||
FIELD-180 FIELD-181 (FIELD-182 BYTE)
|
||||
FIELD-183 FIELD-184 FIELD-185 FIELD-186 FIELD-187 (FIELD-188 BYTE)
|
||||
(FIELD-189 FIXP)
|
||||
FIELD-190 FIELD-191 FIELD-192 (FIELD-193 BYTE)
|
||||
FIELD-194
|
||||
(FIELD-195 WORD)
|
||||
FIELD-196 FIELD-197 FIELD-198 FIELD-199 (FIELD-200 WORD)
|
||||
FIELD-201
|
||||
(FIELD-202 FLAG)
|
||||
FIELD-203
|
||||
(FIELD-204 XPOINTER)
|
||||
FIELD-205 FIELD-206 FIELD-207 (FIELD-208 FLAG)
|
||||
FIELD-209
|
||||
(FIELD-210 WORD)
|
||||
(FIELD-211 BYTE)
|
||||
FIELD-212 FIELD-213 FIELD-214 (FIELD-215 FIXP)
|
||||
FIELD-216 FIELD-217 (FIELD-218 XPOINTER)
|
||||
FIELD-219
|
||||
(FIELD-220 FLAG)
|
||||
FIELD-221
|
||||
(FIELD-222 FLAG)
|
||||
(FIELD-223 WORD)
|
||||
(FIELD-224 FLAG)
|
||||
(FIELD-225 WORD)
|
||||
FIELD-226 FIELD-227 FIELD-228 FIELD-229 FIELD-230 (FIELD-231
|
||||
XPOINTER)
|
||||
FIELD-232
|
||||
(FIELD-233 WORD)
|
||||
(FIELD-234 WORD)
|
||||
FIELD-235 FIELD-236 FIELD-237 FIELD-238 FIELD-239 FIELD-240
|
||||
FIELD-241 (FIELD-242 XPOINTER)
|
||||
FIELD-243
|
||||
(FIELD-244 WORD)
|
||||
FIELD-245 FIELD-246 (FIELD-247 XPOINTER)
|
||||
FIELD-248 FIELD-249 FIELD-250 FIELD-251 FIELD-252 FIELD-253
|
||||
FIELD-254 FIELD-255 FIELD-256 FIELD-257 (FIELD-258 XPOINTER)
|
||||
FIELD-259
|
||||
(FIELD-260 FIXP)
|
||||
FIELD-261 FIELD-262 (FIELD-263 XPOINTER)
|
||||
FIELD-264
|
||||
(FIELD-265 WORD)
|
||||
(FIELD-266 FLAG)
|
||||
FIELD-267 FIELD-268 FIELD-269 FIELD-270 FIELD-271 (FIELD-272 BYTE)
|
||||
FIELD-273 FIELD-274 (FIELD-275 FLAG)
|
||||
(FIELD-276 BYTE)
|
||||
FIELD-277 FIELD-278 FIELD-279 (FIELD-280 XPOINTER)
|
||||
(FIELD-281 WORD)
|
||||
(FIELD-282 WORD)
|
||||
FIELD-283 FIELD-284 FIELD-285 (FIELD-286 WORD)
|
||||
FIELD-287
|
||||
(FIELD-288 XPOINTER)
|
||||
(FIELD-289 BYTE)
|
||||
FIELD-290
|
||||
(FIELD-291 XPOINTER)
|
||||
(FIELD-292 FLAG)
|
||||
FIELD-293 FIELD-294 (FIELD-295 FLAG)
|
||||
FIELD-296 FIELD-297 (FIELD-298 XPOINTER)
|
||||
(FIELD-299 FIXP)
|
||||
(FIELD-300 FIXP)
|
||||
(FIELD-301 BYTE)
|
||||
FIELD-302 FIELD-303 FIELD-304 FIELD-305 (FIELD-306 FIXP)
|
||||
FIELD-307
|
||||
(FIELD-308 FLAG)
|
||||
(FIELD-309 FIXP)
|
||||
FIELD-310
|
||||
(FIELD-311 XPOINTER)
|
||||
FIELD-312 FIELD-313 (FIELD-314 BYTE)
|
||||
FIELD-315
|
||||
(FIELD-316 WORD)
|
||||
(FIELD-317 FIXP)
|
||||
FIELD-318
|
||||
(FIELD-319 FLAG)
|
||||
FIELD-320
|
||||
(FIELD-321 WORD)))
|
||||
)
|
||||
|
||||
(/DECLAREDATATYPE 'GC-TEST-TYPE
|
||||
'(POINTER POINTER POINTER BYTE FIXP POINTER WORD POINTER POINTER POINTER POINTER POINTER
|
||||
POINTER FIXP POINTER XPOINTER POINTER BYTE FIXP POINTER BYTE POINTER POINTER POINTER
|
||||
BYTE POINTER BYTE POINTER BYTE POINTER WORD POINTER XPOINTER POINTER FIXP POINTER
|
||||
POINTER POINTER FLAG POINTER FLAG POINTER FIXP FIXP POINTER XPOINTER POINTER POINTER
|
||||
POINTER FLAG BYTE POINTER POINTER BYTE POINTER POINTER BYTE WORD POINTER POINTER
|
||||
XPOINTER POINTER POINTER XPOINTER XPOINTER POINTER POINTER POINTER POINTER FLAG
|
||||
POINTER POINTER WORD POINTER FLAG POINTER POINTER POINTER POINTER FIXP FIXP POINTER
|
||||
POINTER POINTER POINTER XPOINTER BYTE XPOINTER POINTER BYTE FLAG FIXP FIXP FLAG
|
||||
POINTER FLAG POINTER FLAG POINTER POINTER POINTER POINTER POINTER XPOINTER POINTER
|
||||
POINTER POINTER POINTER BYTE POINTER WORD POINTER XPOINTER FLAG FIXP POINTER POINTER
|
||||
BYTE POINTER POINTER POINTER POINTER POINTER XPOINTER BYTE XPOINTER POINTER POINTER
|
||||
FIXP FLAG POINTER POINTER POINTER POINTER WORD FLAG POINTER POINTER POINTER WORD FLAG
|
||||
POINTER POINTER POINTER FIXP POINTER POINTER POINTER POINTER FLAG POINTER POINTER
|
||||
POINTER POINTER FIXP POINTER BYTE POINTER FIXP WORD POINTER WORD FIXP POINTER FIXP
|
||||
POINTER FLAG BYTE POINTER POINTER XPOINTER BYTE POINTER POINTER FLAG BYTE WORD POINTER
|
||||
FIXP POINTER POINTER BYTE POINTER POINTER POINTER POINTER POINTER BYTE FIXP POINTER
|
||||
POINTER POINTER BYTE POINTER WORD POINTER POINTER POINTER POINTER WORD POINTER FLAG
|
||||
POINTER XPOINTER POINTER POINTER POINTER FLAG POINTER WORD BYTE POINTER POINTER
|
||||
POINTER FIXP POINTER POINTER XPOINTER POINTER FLAG POINTER FLAG WORD FLAG WORD POINTER
|
||||
POINTER POINTER POINTER POINTER XPOINTER POINTER WORD WORD POINTER POINTER POINTER
|
||||
POINTER POINTER POINTER POINTER XPOINTER POINTER WORD POINTER POINTER XPOINTER POINTER
|
||||
POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER POINTER XPOINTER
|
||||
POINTER FIXP POINTER POINTER XPOINTER POINTER WORD FLAG POINTER POINTER POINTER
|
||||
POINTER POINTER BYTE POINTER POINTER FLAG BYTE POINTER POINTER POINTER XPOINTER WORD
|
||||
WORD POINTER POINTER POINTER WORD POINTER XPOINTER BYTE POINTER XPOINTER FLAG POINTER
|
||||
POINTER FLAG POINTER POINTER XPOINTER FIXP FIXP BYTE POINTER POINTER POINTER POINTER
|
||||
FIXP POINTER FLAG FIXP POINTER XPOINTER POINTER POINTER BYTE POINTER WORD FIXP POINTER
|
||||
FLAG POINTER WORD)
|
||||
'((GC-TEST-TYPE 0 POINTER)
|
||||
(GC-TEST-TYPE 2 POINTER)
|
||||
(GC-TEST-TYPE 4 POINTER)
|
||||
(GC-TEST-TYPE 4 (BITS . 7))
|
||||
(GC-TEST-TYPE 6 FIXP)
|
||||
(GC-TEST-TYPE 8 POINTER)
|
||||
(GC-TEST-TYPE 10 (BITS . 15))
|
||||
(GC-TEST-TYPE 12 POINTER)
|
||||
(GC-TEST-TYPE 14 POINTER)
|
||||
(GC-TEST-TYPE 16 POINTER)
|
||||
(GC-TEST-TYPE 18 POINTER)
|
||||
(GC-TEST-TYPE 20 POINTER)
|
||||
(GC-TEST-TYPE 22 POINTER)
|
||||
(GC-TEST-TYPE 24 FIXP)
|
||||
(GC-TEST-TYPE 26 POINTER)
|
||||
(GC-TEST-TYPE 28 XPOINTER)
|
||||
(GC-TEST-TYPE 30 POINTER)
|
||||
(GC-TEST-TYPE 30 (BITS . 7))
|
||||
(GC-TEST-TYPE 32 FIXP)
|
||||
(GC-TEST-TYPE 34 POINTER)
|
||||
(GC-TEST-TYPE 34 (BITS . 7))
|
||||
(GC-TEST-TYPE 36 POINTER)
|
||||
(GC-TEST-TYPE 38 POINTER)
|
||||
(GC-TEST-TYPE 40 POINTER)
|
||||
(GC-TEST-TYPE 40 (BITS . 7))
|
||||
(GC-TEST-TYPE 42 POINTER)
|
||||
(GC-TEST-TYPE 42 (BITS . 7))
|
||||
(GC-TEST-TYPE 44 POINTER)
|
||||
(GC-TEST-TYPE 44 (BITS . 7))
|
||||
(GC-TEST-TYPE 46 POINTER)
|
||||
(GC-TEST-TYPE 11 (BITS . 15))
|
||||
(GC-TEST-TYPE 48 POINTER)
|
||||
(GC-TEST-TYPE 50 XPOINTER)
|
||||
(GC-TEST-TYPE 52 POINTER)
|
||||
(GC-TEST-TYPE 54 FIXP)
|
||||
(GC-TEST-TYPE 56 POINTER)
|
||||
(GC-TEST-TYPE 58 POINTER)
|
||||
(GC-TEST-TYPE 60 POINTER)
|
||||
(GC-TEST-TYPE 60 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 62 POINTER)
|
||||
(GC-TEST-TYPE 62 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 64 POINTER)
|
||||
(GC-TEST-TYPE 66 FIXP)
|
||||
(GC-TEST-TYPE 68 FIXP)
|
||||
(GC-TEST-TYPE 70 POINTER)
|
||||
(GC-TEST-TYPE 72 XPOINTER)
|
||||
(GC-TEST-TYPE 74 POINTER)
|
||||
(GC-TEST-TYPE 76 POINTER)
|
||||
(GC-TEST-TYPE 78 POINTER)
|
||||
(GC-TEST-TYPE 78 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 76 (BITS . 7))
|
||||
(GC-TEST-TYPE 80 POINTER)
|
||||
(GC-TEST-TYPE 82 POINTER)
|
||||
(GC-TEST-TYPE 82 (BITS . 7))
|
||||
(GC-TEST-TYPE 84 POINTER)
|
||||
(GC-TEST-TYPE 86 POINTER)
|
||||
(GC-TEST-TYPE 86 (BITS . 7))
|
||||
(GC-TEST-TYPE 88 (BITS . 15))
|
||||
(GC-TEST-TYPE 90 POINTER)
|
||||
(GC-TEST-TYPE 92 POINTER)
|
||||
(GC-TEST-TYPE 94 XPOINTER)
|
||||
(GC-TEST-TYPE 96 POINTER)
|
||||
(GC-TEST-TYPE 98 POINTER)
|
||||
(GC-TEST-TYPE 100 XPOINTER)
|
||||
(GC-TEST-TYPE 102 XPOINTER)
|
||||
(GC-TEST-TYPE 104 POINTER)
|
||||
(GC-TEST-TYPE 106 POINTER)
|
||||
(GC-TEST-TYPE 108 POINTER)
|
||||
(GC-TEST-TYPE 110 POINTER)
|
||||
(GC-TEST-TYPE 110 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 112 POINTER)
|
||||
(GC-TEST-TYPE 114 POINTER)
|
||||
(GC-TEST-TYPE 89 (BITS . 15))
|
||||
(GC-TEST-TYPE 116 POINTER)
|
||||
(GC-TEST-TYPE 116 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 118 POINTER)
|
||||
(GC-TEST-TYPE 120 POINTER)
|
||||
(GC-TEST-TYPE 122 POINTER)
|
||||
(GC-TEST-TYPE 124 POINTER)
|
||||
(GC-TEST-TYPE 126 FIXP)
|
||||
(GC-TEST-TYPE 128 FIXP)
|
||||
(GC-TEST-TYPE 130 POINTER)
|
||||
(GC-TEST-TYPE 132 POINTER)
|
||||
(GC-TEST-TYPE 134 POINTER)
|
||||
(GC-TEST-TYPE 136 POINTER)
|
||||
(GC-TEST-TYPE 138 XPOINTER)
|
||||
(GC-TEST-TYPE 138 (BITS . 7))
|
||||
(GC-TEST-TYPE 140 XPOINTER)
|
||||
(GC-TEST-TYPE 142 POINTER)
|
||||
(GC-TEST-TYPE 142 (BITS . 7))
|
||||
(GC-TEST-TYPE 140 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 144 FIXP)
|
||||
(GC-TEST-TYPE 146 FIXP)
|
||||
(GC-TEST-TYPE 140 (FLAGBITS . 16))
|
||||
(GC-TEST-TYPE 148 POINTER)
|
||||
(GC-TEST-TYPE 148 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 150 POINTER)
|
||||
(GC-TEST-TYPE 150 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 152 POINTER)
|
||||
(GC-TEST-TYPE 154 POINTER)
|
||||
(GC-TEST-TYPE 156 POINTER)
|
||||
(GC-TEST-TYPE 158 POINTER)
|
||||
(GC-TEST-TYPE 160 POINTER)
|
||||
(GC-TEST-TYPE 162 XPOINTER)
|
||||
(GC-TEST-TYPE 164 POINTER)
|
||||
(GC-TEST-TYPE 166 POINTER)
|
||||
(GC-TEST-TYPE 168 POINTER)
|
||||
(GC-TEST-TYPE 170 POINTER)
|
||||
(GC-TEST-TYPE 170 (BITS . 7))
|
||||
(GC-TEST-TYPE 172 POINTER)
|
||||
(GC-TEST-TYPE 174 (BITS . 15))
|
||||
(GC-TEST-TYPE 176 POINTER)
|
||||
(GC-TEST-TYPE 178 XPOINTER)
|
||||
(GC-TEST-TYPE 178 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 180 FIXP)
|
||||
(GC-TEST-TYPE 182 POINTER)
|
||||
(GC-TEST-TYPE 184 POINTER)
|
||||
(GC-TEST-TYPE 184 (BITS . 7))
|
||||
(GC-TEST-TYPE 186 POINTER)
|
||||
(GC-TEST-TYPE 188 POINTER)
|
||||
(GC-TEST-TYPE 190 POINTER)
|
||||
(GC-TEST-TYPE 192 POINTER)
|
||||
(GC-TEST-TYPE 194 POINTER)
|
||||
(GC-TEST-TYPE 196 XPOINTER)
|
||||
(GC-TEST-TYPE 196 (BITS . 7))
|
||||
(GC-TEST-TYPE 198 XPOINTER)
|
||||
(GC-TEST-TYPE 200 POINTER)
|
||||
(GC-TEST-TYPE 202 POINTER)
|
||||
(GC-TEST-TYPE 204 FIXP)
|
||||
(GC-TEST-TYPE 202 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 206 POINTER)
|
||||
(GC-TEST-TYPE 208 POINTER)
|
||||
(GC-TEST-TYPE 210 POINTER)
|
||||
(GC-TEST-TYPE 212 POINTER)
|
||||
(GC-TEST-TYPE 175 (BITS . 15))
|
||||
(GC-TEST-TYPE 212 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 214 POINTER)
|
||||
(GC-TEST-TYPE 216 POINTER)
|
||||
(GC-TEST-TYPE 218 POINTER)
|
||||
(GC-TEST-TYPE 220 (BITS . 15))
|
||||
(GC-TEST-TYPE 218 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 222 POINTER)
|
||||
(GC-TEST-TYPE 224 POINTER)
|
||||
(GC-TEST-TYPE 226 POINTER)
|
||||
(GC-TEST-TYPE 228 FIXP)
|
||||
(GC-TEST-TYPE 230 POINTER)
|
||||
(GC-TEST-TYPE 232 POINTER)
|
||||
(GC-TEST-TYPE 234 POINTER)
|
||||
(GC-TEST-TYPE 236 POINTER)
|
||||
(GC-TEST-TYPE 236 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 238 POINTER)
|
||||
(GC-TEST-TYPE 240 POINTER)
|
||||
(GC-TEST-TYPE 242 POINTER)
|
||||
(GC-TEST-TYPE 244 POINTER)
|
||||
(GC-TEST-TYPE 246 FIXP)
|
||||
(GC-TEST-TYPE 248 POINTER)
|
||||
(GC-TEST-TYPE 248 (BITS . 7))
|
||||
(GC-TEST-TYPE 250 POINTER)
|
||||
(GC-TEST-TYPE 252 FIXP)
|
||||
(GC-TEST-TYPE 221 (BITS . 15))
|
||||
(GC-TEST-TYPE 254 POINTER)
|
||||
(GC-TEST-TYPE 256 (BITS . 15))
|
||||
(GC-TEST-TYPE 257 FIXP)
|
||||
(GC-TEST-TYPE 260 POINTER)
|
||||
(GC-TEST-TYPE 262 FIXP)
|
||||
(GC-TEST-TYPE 264 POINTER)
|
||||
(GC-TEST-TYPE 264 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 260 (BITS . 7))
|
||||
(GC-TEST-TYPE 266 POINTER)
|
||||
(GC-TEST-TYPE 268 POINTER)
|
||||
(GC-TEST-TYPE 270 XPOINTER)
|
||||
(GC-TEST-TYPE 270 (BITS . 7))
|
||||
(GC-TEST-TYPE 272 POINTER)
|
||||
(GC-TEST-TYPE 274 POINTER)
|
||||
(GC-TEST-TYPE 274 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 272 (BITS . 7))
|
||||
(GC-TEST-TYPE 259 (BITS . 15))
|
||||
(GC-TEST-TYPE 276 POINTER)
|
||||
(GC-TEST-TYPE 278 FIXP)
|
||||
(GC-TEST-TYPE 280 POINTER)
|
||||
(GC-TEST-TYPE 282 POINTER)
|
||||
(GC-TEST-TYPE 282 (BITS . 7))
|
||||
(GC-TEST-TYPE 284 POINTER)
|
||||
(GC-TEST-TYPE 286 POINTER)
|
||||
(GC-TEST-TYPE 288 POINTER)
|
||||
(GC-TEST-TYPE 290 POINTER)
|
||||
(GC-TEST-TYPE 292 POINTER)
|
||||
(GC-TEST-TYPE 292 (BITS . 7))
|
||||
(GC-TEST-TYPE 294 FIXP)
|
||||
(GC-TEST-TYPE 296 POINTER)
|
||||
(GC-TEST-TYPE 298 POINTER)
|
||||
(GC-TEST-TYPE 300 POINTER)
|
||||
(GC-TEST-TYPE 300 (BITS . 7))
|
||||
(GC-TEST-TYPE 302 POINTER)
|
||||
(GC-TEST-TYPE 304 (BITS . 15))
|
||||
(GC-TEST-TYPE 306 POINTER)
|
||||
(GC-TEST-TYPE 308 POINTER)
|
||||
(GC-TEST-TYPE 310 POINTER)
|
||||
(GC-TEST-TYPE 312 POINTER)
|
||||
(GC-TEST-TYPE 305 (BITS . 15))
|
||||
(GC-TEST-TYPE 314 POINTER)
|
||||
(GC-TEST-TYPE 314 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 316 POINTER)
|
||||
(GC-TEST-TYPE 318 XPOINTER)
|
||||
(GC-TEST-TYPE 320 POINTER)
|
||||
(GC-TEST-TYPE 322 POINTER)
|
||||
(GC-TEST-TYPE 324 POINTER)
|
||||
(GC-TEST-TYPE 324 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 326 POINTER)
|
||||
(GC-TEST-TYPE 328 (BITS . 15))
|
||||
(GC-TEST-TYPE 326 (BITS . 7))
|
||||
(GC-TEST-TYPE 330 POINTER)
|
||||
(GC-TEST-TYPE 332 POINTER)
|
||||
(GC-TEST-TYPE 334 POINTER)
|
||||
(GC-TEST-TYPE 336 FIXP)
|
||||
(GC-TEST-TYPE 338 POINTER)
|
||||
(GC-TEST-TYPE 340 POINTER)
|
||||
(GC-TEST-TYPE 342 XPOINTER)
|
||||
(GC-TEST-TYPE 344 POINTER)
|
||||
(GC-TEST-TYPE 344 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 346 POINTER)
|
||||
(GC-TEST-TYPE 346 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 329 (BITS . 15))
|
||||
(GC-TEST-TYPE 346 (FLAGBITS . 16))
|
||||
(GC-TEST-TYPE 348 (BITS . 15))
|
||||
(GC-TEST-TYPE 350 POINTER)
|
||||
(GC-TEST-TYPE 352 POINTER)
|
||||
(GC-TEST-TYPE 354 POINTER)
|
||||
(GC-TEST-TYPE 356 POINTER)
|
||||
(GC-TEST-TYPE 358 POINTER)
|
||||
(GC-TEST-TYPE 360 XPOINTER)
|
||||
(GC-TEST-TYPE 362 POINTER)
|
||||
(GC-TEST-TYPE 349 (BITS . 15))
|
||||
(GC-TEST-TYPE 364 (BITS . 15))
|
||||
(GC-TEST-TYPE 366 POINTER)
|
||||
(GC-TEST-TYPE 368 POINTER)
|
||||
(GC-TEST-TYPE 370 POINTER)
|
||||
(GC-TEST-TYPE 372 POINTER)
|
||||
(GC-TEST-TYPE 374 POINTER)
|
||||
(GC-TEST-TYPE 376 POINTER)
|
||||
(GC-TEST-TYPE 378 POINTER)
|
||||
(GC-TEST-TYPE 380 XPOINTER)
|
||||
(GC-TEST-TYPE 382 POINTER)
|
||||
(GC-TEST-TYPE 365 (BITS . 15))
|
||||
(GC-TEST-TYPE 384 POINTER)
|
||||
(GC-TEST-TYPE 386 POINTER)
|
||||
(GC-TEST-TYPE 388 XPOINTER)
|
||||
(GC-TEST-TYPE 390 POINTER)
|
||||
(GC-TEST-TYPE 392 POINTER)
|
||||
(GC-TEST-TYPE 394 POINTER)
|
||||
(GC-TEST-TYPE 396 POINTER)
|
||||
(GC-TEST-TYPE 398 POINTER)
|
||||
(GC-TEST-TYPE 400 POINTER)
|
||||
(GC-TEST-TYPE 402 POINTER)
|
||||
(GC-TEST-TYPE 404 POINTER)
|
||||
(GC-TEST-TYPE 406 POINTER)
|
||||
(GC-TEST-TYPE 408 POINTER)
|
||||
(GC-TEST-TYPE 410 XPOINTER)
|
||||
(GC-TEST-TYPE 412 POINTER)
|
||||
(GC-TEST-TYPE 414 FIXP)
|
||||
(GC-TEST-TYPE 416 POINTER)
|
||||
(GC-TEST-TYPE 418 POINTER)
|
||||
(GC-TEST-TYPE 420 XPOINTER)
|
||||
(GC-TEST-TYPE 422 POINTER)
|
||||
(GC-TEST-TYPE 424 (BITS . 15))
|
||||
(GC-TEST-TYPE 422 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 426 POINTER)
|
||||
(GC-TEST-TYPE 428 POINTER)
|
||||
(GC-TEST-TYPE 430 POINTER)
|
||||
(GC-TEST-TYPE 432 POINTER)
|
||||
(GC-TEST-TYPE 434 POINTER)
|
||||
(GC-TEST-TYPE 434 (BITS . 7))
|
||||
(GC-TEST-TYPE 436 POINTER)
|
||||
(GC-TEST-TYPE 438 POINTER)
|
||||
(GC-TEST-TYPE 438 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 436 (BITS . 7))
|
||||
(GC-TEST-TYPE 440 POINTER)
|
||||
(GC-TEST-TYPE 442 POINTER)
|
||||
(GC-TEST-TYPE 444 POINTER)
|
||||
(GC-TEST-TYPE 446 XPOINTER)
|
||||
(GC-TEST-TYPE 425 (BITS . 15))
|
||||
(GC-TEST-TYPE 448 (BITS . 15))
|
||||
(GC-TEST-TYPE 450 POINTER)
|
||||
(GC-TEST-TYPE 452 POINTER)
|
||||
(GC-TEST-TYPE 454 POINTER)
|
||||
(GC-TEST-TYPE 449 (BITS . 15))
|
||||
(GC-TEST-TYPE 456 POINTER)
|
||||
(GC-TEST-TYPE 458 XPOINTER)
|
||||
(GC-TEST-TYPE 458 (BITS . 7))
|
||||
(GC-TEST-TYPE 460 POINTER)
|
||||
(GC-TEST-TYPE 462 XPOINTER)
|
||||
(GC-TEST-TYPE 462 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 464 POINTER)
|
||||
(GC-TEST-TYPE 466 POINTER)
|
||||
(GC-TEST-TYPE 466 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 468 POINTER)
|
||||
(GC-TEST-TYPE 470 POINTER)
|
||||
(GC-TEST-TYPE 472 XPOINTER)
|
||||
(GC-TEST-TYPE 474 FIXP)
|
||||
(GC-TEST-TYPE 476 FIXP)
|
||||
(GC-TEST-TYPE 472 (BITS . 7))
|
||||
(GC-TEST-TYPE 478 POINTER)
|
||||
(GC-TEST-TYPE 480 POINTER)
|
||||
(GC-TEST-TYPE 482 POINTER)
|
||||
(GC-TEST-TYPE 484 POINTER)
|
||||
(GC-TEST-TYPE 486 FIXP)
|
||||
(GC-TEST-TYPE 488 POINTER)
|
||||
(GC-TEST-TYPE 488 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 490 FIXP)
|
||||
(GC-TEST-TYPE 492 POINTER)
|
||||
(GC-TEST-TYPE 494 XPOINTER)
|
||||
(GC-TEST-TYPE 496 POINTER)
|
||||
(GC-TEST-TYPE 498 POINTER)
|
||||
(GC-TEST-TYPE 498 (BITS . 7))
|
||||
(GC-TEST-TYPE 500 POINTER)
|
||||
(GC-TEST-TYPE 502 (BITS . 15))
|
||||
(GC-TEST-TYPE 503 FIXP)
|
||||
(GC-TEST-TYPE 506 POINTER)
|
||||
(GC-TEST-TYPE 506 (FLAGBITS . 0))
|
||||
(GC-TEST-TYPE 508 POINTER)
|
||||
(GC-TEST-TYPE 505 (BITS . 15)))
|
||||
'510)
|
||||
|
||||
|
||||
|
||||
(* |;;| "DATATYPE TESTS")
|
||||
|
||||
|
||||
|
||||
|
||||
(* |;;| "CODE RECLAIMATION TESTS")
|
||||
|
||||
(DEFINEQ
|
||||
|
||||
(CODE-RECLAIM-TEST
|
||||
(LAMBDA (LIMIT) (* \; "Edited 23-Jun-88 11:54 by jds")
|
||||
(LET NIL
|
||||
|
||||
(* |;;| "Make sure there's a definition to compile.")
|
||||
|
||||
(OR (GETD 'CODE-RECLAIM-TEST-TEMP-FN)
|
||||
(EVAL CODE-RECLAIM-TEST-TEMP-FN))
|
||||
(PRINTOUT T " Starting code-block reclaim test" T)
|
||||
(|for| I |from| 1 |to| LIMIT |do| (BKSYSBUF "ST
|
||||
N
|
||||
")
|
||||
(COMPILE 'CODE-RECLAIM-TEST-TEMP-FN))
|
||||
(PRINTOUT T " Starting MAPATOMS(GETD)" T)
|
||||
(|for| I |from| 1 |to| LIMIT |do| (MAPATOMS (FUNCTION GETD)))
|
||||
(PRINTOUT T " Starting MAPATOMS(MOVD to DUMMYFN)" T)
|
||||
(FOR I FROM 1 TO LIMIT DO (MAPATOMS #'(LAMBDA (FN-NAME)
|
||||
(AND (GETD FN-NAME)
|
||||
(MOVD FN-NAME
|
||||
'MAIKO-GC-TEST-DUMMY-FN))
|
||||
))))))
|
||||
)
|
||||
|
||||
|
||||
|
||||
(* |;;|
|
||||
"The function that is repeatedly compiled to test that code-block constants inside code blocks are reclaimed."
|
||||
)
|
||||
|
||||
|
||||
(RPAQQ CODE-RECLAIM-TEST-TEMP-FN
|
||||
(DEFINEQ (CODE-RECLAIM-TEST-TEMP-FN (ASDF)
|
||||
(LET (I)
|
||||
(FOR I FROM 1 TO 10 COLLECT (SQRT 4.5))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(NLSETQ (DATE))
|
||||
(ERSETQ (DATE))
|
||||
(CL:FLET ((TEMP (ARG)
|
||||
(SETQ ARG (FLOAT ARG))
|
||||
(EXPT (SQRT I)
|
||||
(SQRT (COS (/ I 180))))))
|
||||
(CL:UNWIND-PROTECT
|
||||
(FOR I FROM 1 TO 1000 COLLECT (TEMP I))
|
||||
(SETQ I NIL)))))))
|
||||
(PUTPROPS MAIKO-GC-TESTS COPYRIGHT ("John Sybalsky & Xerox Corporation" 1988))
|
||||
(DECLARE\: DONTCOPY
|
||||
(FILEMAP (NIL (2794 5208 (MAIN-GC-TEST 2804 . 5206)) (5209 13651 (ITEMS-ON-STACK-TEST 5219 . 6382) (
|
||||
MANY-BIGNUM-MAKER 6384 . 7256) (MANY-FIXP-MAKER 7258 . 8044) (MANY-FLOAT-MAKER 8046 . 8653) (
|
||||
BOUNDARY-TESTS 8655 . 11122) (ARRAY-STRING-TEST 11124 . 13070) (VARIOUS-TYPES-TEST 13072 . 13649)) (
|
||||
13652 18513 (TEDIT-CRUNCH-TEST 13662 . 15074) (LIST-MANIPULATION-TEST 15076 . 18511)) (18514 19198 (
|
||||
ATOM-FULL-TEST 18524 . 18955) (STORAGE-FULL-TEST 18957 . 19196)) (19199 19717 (DATATYPE-TEST 19209 .
|
||||
19715)) (44700 45875 (CODE-RECLAIM-TEST 44710 . 45873)))))
|
||||
STOP
|
||||
Reference in New Issue
Block a user