(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE (DEFPACKAGE "COMPILER" (USE "LISP" "XCL"))) (IL:FILECREATED "26-Jan-98 14:00:34" ("compiled on " IL:|{DSK}disk2>jdstools>lc3>lispcore3.0>sources>XCLC-PEEPHOLE.;1|) "30-Mar-95 20:33:04" "COMPILE-FILEd" IL:|in| "Medley 14-Aug-95 ..." IL:|dated| "14-Aug-95 15:27:48") (IL:FILECREATED "27-Aug-91 14:38:23" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-PEEPHOLE.;9| 23880 IL:|changes| IL:|to:| (IL:FUNCTIONS PEEPHOLE-OPTIMIZE PEEPHOLE-OPTIMIZE-CODE) IL:|previous| IL:|date:| "16-Aug-91 18:52:23" IL:|{PELE:MV:ENVOS}SOURCES>XCLC-PEEPHOLE.;8|) (IL:RPAQQ IL:XCLC-PEEPHOLECOMS ((IL:* IL:|;;;| "Peephole Optimization") (IL:VARIABLES *REACHABLE-TAG-TABLE* *TAG-EQUIV-TABLE* *TAG-LOCATION-TABLE*) (IL:FUNCTIONS PEEPHOLE-OPTIMIZE FIND-ALL-TAGS FIND-REACHABLE-TAGS FIND-TAG-DUPLICATION PEEPHOLE-OPTIMIZE-CODE) (IL:* IL:|;;| "Arrange to use the proper compiler") (IL:PROP IL:FILETYPE IL:XCLC-PEEPHOLE) (IL:* IL:|;;| "Get the right reader environment") (IL:PROP IL:MAKEFILE-ENVIRONMENT IL:XCLC-PEEPHOLE))) (PROCLAIM (QUOTE (SPECIAL *REACHABLE-TAG-TABLE*))) (OR (BOUNDP (QUOTE *REACHABLE-TAG-TABLE*)) (SETQ *REACHABLE-TAG-TABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL *TAG-EQUIV-TABLE*))) (OR (BOUNDP (QUOTE *TAG-EQUIV-TABLE*)) (SETQ *TAG-EQUIV-TABLE* NIL)) (PROCLAIM (QUOTE (SPECIAL *TAG-LOCATION-TABLE*))) (OR (BOUNDP (QUOTE *TAG-LOCATION-TABLE*)) (SETQ *TAG-LOCATION-TABLE* NIL)) PEEPHOLE-OPTIMIZE :D8 (IL:L (0 LAP-FN) IL:P 4 TAGS-USED IL:P 3 *REACHABLE-TAG-TABLE* IL:P 2 *TAG-EQUIV-TABLE*)  @gH gH gH gH gH gH gH gH gH gH gH dHo Id hgg gg b @ @ ]M_@_N_OOh\O@ @(260 PEEPHOLE-OPTIMIZE 225 IL:\\MVLIST 220 PEEPHOLE-OPTIMIZE-CODE 212 FIND-REACHABLE-TAGS 201 MAKE-HASH-TABLE 186 MAKE-HASH-TABLE 164 PEEPHOLE-OPTIMIZE 152 IL:KEYWORD-TEST 137 IL:FIND-KEYWORD 125 IL:FIND-KEYWORD 113 IL:FIND-KEYWORD 101 IL:FIND-KEYWORD 89 IL:FIND-KEYWORD 77 IL:FIND-KEYWORD 65 IL:FIND-KEYWORD 53 IL:FIND-KEYWORD 41 IL:FIND-KEYWORD 29 IL:FIND-KEYWORD 17 IL:FIND-KEYWORD) (196 EQL 191 :TEST 181 EQL 176 :TEST 131 :LOCAL-FUNCTIONS 119 :NON-LOCAL 107 :CLOSED-OVER 95 :BLIP 83 :ARG-TYPE 71 :NAME 59 :OTHERS 47 :ALLOW-OTHER-KEYS 35 :KEY 23 :REST 11 :OPTIONAL) ( 147 (:LOCAL-FUNCTIONS :NON-LOCAL :CLOSED-OVER :BLIP :ARG-TYPE :NAME :OTHERS :ALLOW-OTHER-KEYS :KEY :REST :OPTIONAL)) FIND-ALL-TAGS :D8 (IL:L (0 CODE) IL:F 4 *TAG-LOCATION-TABLE*) l@1HH hI[dgITH +gKdgI gIZHXgJ (103 FIND-ALL-TAGS 65 FIND-ALL-TAGS 37 CL::PUTHASH 12 ENDP) (92 :LAMBDA 72 :CALL 54 :LAMBDA 45 :CLOSE 24 :TAG) () FIND-REACHABLE-TAGS :D8 (IL:L (0 CODE) IL:P 0 *TAG-LOCATION-TABLE* IL:F 7 *REACHABLE-TAG-TABLE*) gg a@ @hYIdIo II]^\dgNdW Wi g0Lg'LgLgLgLdg0NH ZJoN INg6YgOLgLdgNIgN[M<gKI(180 IL:ASSERT-FAIL 162 GETHASH 95 CL::PUTHASH 83 IL:GETHASH 45 IL:ASSERT-FAIL 23 FIND-ALL-TAGS 14 MAKE-HASH-TABLE) (258 :LAMBDA 238 :CALL 223 :LAMBDA 214 :CLOSE 203 :RETURN 192 :JUMP 149 :PUSH-TAG 140 :NFJUMP 131 :NTJUMP 122 :FJUMP 113 :TJUMP 104 :JUMP 68 :TAG 9 EQL 4 :TEST) ( 172 "The tag ~S was referred to but not found." 40 "A tag was referred to but not found.") FIND-TAG-DUPLICATION :D8 (IL:L (0 CODE) IL:F 5 *REACHABLE-TAG-TABLE*) P@\LIHdgdgihJgEJU :J[dgHgigKdgJ JHLgJg(109 FIND-TAG-DUPLICATION 56 IL:GETHASH) (140 :LAMBDA 123 :CALL 97 :LAMBDA 88 :CLOSE 78 :TAG 67 :TAG 44 :TAG 28 :RETURN 20 :JUMP) () PEEPHOLE-OPTIMIZE-CODE :D8 (IL:L (0 CODE) IL:F 59 TAGS-USED IL:F 60 *TAG-EQUIV-TABLE* IL:F 61 *REACHABLE-TAG-TABLE*) K;@ -5@_jOjIA:OlOn J$IdgdgihKgKdWz iZdK_hg7Ohg-Ohg#OhgOhgOhdgKWx _KIO_*KWvdLLLcvKWxgKh g&KWvdMMMcvO_KOONOg,OWv_dOOOcvK_O_OOoOo ngKWx _*IgjKWxgI IWv_dOOOcvO*dg"d_I_OOiO*o HaOjgTKWxgOj O*gjO*(d_$Oj:O$_"Oj_ O"O iذ:KWxgK O*dgmd_(K_&O(O&KIOjOjdg6III8OldOn:On_4dg#I_._,O.O,PO*o gO4dgI_2o_0O2O0iZgO4go Op:Ondg_6Op_nO6_pOn_DdgI_:_8O:O8gODdg,I_>o_O<I_B_@OBO@iZgODgo XgSOpdgOngI_H_FOHOF!g!OngI_L_JOLOJiZuOhdg5II_P_NOPgqONgfONK:\IiZYgOhdg4K _Z_XOZ_VK_TOX_ROTORJOVgK_f KIYOjCgOf _d_bOd_`Of_^Ob_\O^O\JO`_tdgdWviZOt_rOpOrh_p_nOl_lOr&_p(1257 IL:\\MVLIST 1252 PEEPHOLE-OPTIMIZE-CODE 1172 IL:\\MVLIST 1167 PEEPHOLE-OPTIMIZE-CODE 974 ERROR 812 ERROR 739 IL:ASSERT-FAIL 607 CL::PUTHASH 528 CL::PUTHASH 487 IL:ASSERT-FAIL 406 CL::PUTHASH 372 GETHASH 349 IL:ECASE-FAIL 233 CL::PUTHASH 182 GETHASH 99 IL:GETHASH 48 NREVERSE 5 FIND-TAG-DUPLICATION) (1305 :TAG 1240 :LAMBDA 1213 :CALL 1155 :LAMBDA 1145 :CLOSE 1120 :VAR_ 1109 :POP 1086 :VAR 1042 :TJUMP 1032 :FJUMP 1009 :FJUMP 998 :TJUMP 986 :JUMP 962 :NFJUMP 953 :NTJUMP 903 :TJUMP 893 :FJUMP 868 :JUMP 839 :DSET-STACK 800 :NFJUMP 791 :NTJUMP 757 :TJUMP 747 :FJUMP 706 :JUMP 662 :TAG 617 :REFERENCES 598 :EQUIV 537 :REFERENCES 516 :EQUIV 503 :JUMP 440 :REFERENCES 396 :EQUIV 383 :TAG 357 :TAG 287 :EQUIV 241 :REFERENCES 224 :REFERENCES 166 :PUSH-TAG 156 :NFJUMP 146 :NTJUMP 136 :FJUMP 126 :TJUMP 116 :JUMP 86 :TAG 70 :RETURN 62 :JUMP) ( 969 "BUG: Non-popping jump to very next location." 916 (:POP) 807 "BUG: Non-popping jump to very next location." 770 (:POP) 734 "This tag has been seen before!" 482 "This tag has been seen before!" 344 (NIL :REFERENCES :EQUIV) 337 (CAR LOOKUP)) (IL:PUTPROPS IL:XCLC-PEEPHOLE IL:FILETYPE COMPILE-FILE) (IL:PUTPROPS IL:XCLC-PEEPHOLE IL:MAKEFILE-ENVIRONMENT (:READTABLE "XCL" :PACKAGE (DEFPACKAGE "COMPILER" (:USE "LISP" "XCL")))) (IL:PUTPROPS IL:XCLC-PEEPHOLE IL:COPYRIGHT ("Xerox Corporation" 1986 1987 1988 1990 1991)) NIL