(DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10) (FILECREATED "25-Jan-98 12:59:44" ("compiled on " |{DSK}sources>DTDECLARE.;3|) "30-Mar-95 20:33:04" "COMPILE-FILEd" |in| "Medley 14-Aug-95 ..." |dated| "14-Aug-95 15:27:48") (FILECREATED " 8-Mar-95 10:22:57" |{DSK}sources>DTDECLARE.;2| 34107 |changes| |to:| (FNS TRANSLATE.DATATYPE) |previous| |date:| "15-Dec-92 14:08:39" |{DSK}sources>DTDECLARE.;1|) (RPAQQ DTDECLARECOMS ((* |;;| "declaring DATATYPES --- part of ABC too") (FNS /DECLAREDATATYPE DECLAREDATATYPE TRANSLATE.DATATYPE \\REUSETO \\TYPEGLOBALVARIABLE) (FUNCTIONS TYPE-VARIABLE-FROM-TYPE-NAME) (FNS |BitFieldMask| |BitFieldShift| |BitFieldShiftedMask| |MakeBitField| |BitFieldWidth| |BitFieldFirst|) (OPTIMIZERS FETCHFIELD FFETCHFIELD REPLACEFIELD FREPLACEFIELD REPLACEFIELDVAL FREPLACEFIELDVAL NCREATE \\DTEST) (PROP DMACRO \\TESTBITS) (FNS COMPILEDFETCHFIELD COMPILEDREPLACEFIELD COMPILEDNCREATE) (DECLARE\: DONTCOPY (EXPORT (RECORDS |FldDsc|))) (VARS DATATYPEFIELDTYPES) (COMS (* \; "Macros which convert a record access form into an address-generating form") (MACROS LOCF INDEXF) (FNS TRANSLATE.LOCF)) (LOCALVARS . T) (PROP FILETYPE DTDECLARE))) /DECLAREDATATYPE :D8 (L (4 SUPERTYPE 3 LEN 2 DLIST 1 FIELDSPECS 0 TYPENAME) F 2 LISPXHIST) [R&@$g@d hd@ h @ABCD  HHg@ghid I(87 LISPXPRINT 54 \\MVLIST 49 DECLAREDATATYPE 37 UNDOSAVE 25 GETSUPERTYPE 17 GETFIELDSPECS) (76 |redeclared| 70 |datatype| 10 /DECLAREDATATYPE) () DECLAREDATATYPE :D8 (L (4 SUPERTYPE 3 LENGTH 2 DLIST 1 FIELDSPECS 0 TYPENAME)) Dd A bBC@A bBbb@dd3@@l BAH2I1@BCAHD  YI@i J BK$\dgdghiLJ KhZHXK&(107 SETTOPVAL 101 \\TYPEGLOBALVARIABLE 87 \\MVLIST 82 \\ASSIGNDATATYPE1 56 \\LISPERROR 29 TRANSLATE.DATATYPE 13 \\APPEND2 7 GETFIELDSPECS) (132 FULLPOINTER 124 POINTER) () TRANSLATE.DATATYPE :D8 (L (1 FIELDSPECS) P 7 FD P 3 UNUSED P 2 BIT P 1 OFFSET I 0 TYPENAME F 19 COMPILER::*TARGET-ARCHITECTURE*) @@d3@@go@ jdd0A&d_HkXOgOdg$gW&lgW&llg4Og*Og OgOgOdgl gg_kvOdgg_l_gg_lLOdgg_l5dgdgdgOO_oO @hOh_ O" O h_$O &_"O$\dMd__Odgdg@Kh__;Jll Il l JllJj jIdlԹ_kjjOgW&lgW&lllDOOl5Kh__h({_OkOlO`iOOMdgdgdgdgJjl IdlԹ2dgdg)Jjl Il l IdlԹdgdgdgؿO@Kh__Oh]cNdll^lJl lJNlN OgJN jIdlԹ~_NOOiOMNOOMN MMNM:lJl OOJN JNԺIJljIkԹ@1Jjl Il IkYIdn@o I0Ld_ O" O h_$O &_"O$(989 ERROR 963 ODDP 954 \\REUSETO 930 SHOULDNT 904 |MakeBitField| 887 \\REUSETO 858 |MakeBitField| 793 |MakeBitField| 776 \\REUSETO 759 \\REUSETO 673 \\REUSETO 665 ODDP 656 \\REUSETO 617 \\REUSETO 438 \\REUSETO 422 \\REUSETO 414 ODDP 405 \\REUSETO 301 ERROR 27 ERROR) (786 LONGBITS 706 SIGNEDBITS 698 FLAGBITS 689 BITS 641 FULLXPOINTER 633 FULLPOINTER 602 SWAPPEDXPOINTER 594 FLOATP 585 SWAPPEDFIXP 576 FIXP 482 :4-BYTE 470 :4-BYTE-TEMP 375 XPOINTER 367 POINTER 274 SIGNEDBITS 266 FLAGBITS 258 BITS 243 SIGNEDBITS 235 SIGNEDWORD 220 BITS 213 WORD 201 BITS 193 BYTE 179 FLAGBITS 172 FLAG 159 FULLXPOINTER 149 SWAPPEDXPOINTER 139 FULLPOINTER 129 SWAPPEDFIXP 119 FLOATP 109 FIXP 90 :4-BYTE 76 :4-BYTE-TEMP 67 XPOINTER 57 POINTER 14 **DEALLOC**) ( 984 "DATATYPE TOO BIG" 294 "invalid field spec: " 21 "Invalid type name") \\REUSETO :D8 (L (1 FLG 0 N) F 0 BIT F 1 OFFSET F 2 UNUSED F 3 TYPENAME F 4 FD) ;@PbdjSAoT QP@hRcP@cdl jcQkc(24 ERROR) NIL ( 18 "Block/datatype field not aligned properly") \\TYPEGLOBALVARIABLE :D8 (L (1 VARFLG 0 TYPENAME) F 3 \\BUILT-IN-SYSTEM-TYPES F 4 GLOBALVARS) MASkH0h+@ HdTdg Hgi H@JIHIkԹ(54 PUTPROP 40 GETPROP 20 TYPE-VARIABLE-FROM-TYPE-NAME) (48 GLOBALVAR 35 GLOBALVAR) () TYPE-VARIABLE-FROM-TYPE-NAME :D8 (L (0 TYPE-NAME) F 5 *PACKAGE*) U^@A@@ jhHkIJ o@o [l Ko@Lk o o@ o @ (126 CL:INTERN 121 CL:SYMBOL-PACKAGE 115 CONCAT 105 MKSTRING 93 PACK* 83 SUBSTRING 67 \\GETBASEFIXP 57 PACK* 39 NAMESTRING-CONVERSION-CLAUSE) NIL ( 110 "TYPE#" 99 "" 88 "TYPE#" 74 "" 52 "TYPE#" 46 "") |BitFieldMask| :D8 (L (0 FD)) k@ k(11 LLSH 6 |BitFieldWidth|) NIL () |BitFieldShift| :D8 (L (0 FD)) l@ @ (13 |BitFieldWidth| 7 |BitFieldFirst|) NIL () |BitFieldShiftedMask| :D8 (L (0 FD)) (kl@ kl@ @ (36 LLSH 29 |BitFieldWidth| 23 |BitFieldFirst| 14 LLSH 8 |BitFieldFirst|) NIL () |MakeBitField| :D8 (L (1 WIDTH 0 FIRST)) @AkNIL NIL () |BitFieldWidth| :D8 (L (0 FD)) @lkNIL NIL () |BitFieldFirst| :D8 (L (0 FD)) @NIL NIL () |optimize-FETCHFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDFETCHFIELD) NIL () (PUTPROP (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FETCHFIELD|) ( GET (QUOTE FETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FFETCHFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @i (7 COMPILEDFETCHFIELD) NIL () (PUTPROP (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FFETCHFIELD|) (GET (QUOTE FFETCHFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-REPLACEFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDREPLACEFIELD) NIL () (PUTPROP (QUOTE REPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-REPLACEFIELD|) (GET (QUOTE REPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FREPLACEFIELD| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @i (7 COMPILEDREPLACEFIELD) NIL () (PUTPROP (QUOTE FREPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FREPLACEFIELD|) (GET (QUOTE FREPLACEFIELD) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-REPLACEFIELDVAL| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (REPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROP (QUOTE REPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-REPLACEFIELDVAL|) (GET (QUOTE REPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-FREPLACEFIELDVAL| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @oHNIL NIL ( 9 (OPENLAMBDA (DESCRIPTOR DATUM NEWVALUE) (PROG1 DATUM (FREPLACEFIELD DESCRIPTOR DATUM NEWVALUE)))) (PUTPROP (QUOTE FREPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-FREPLACEFIELDVAL|) (GET (QUOTE FREPLACEFIELDVAL) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-NCREATE| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @ (6 COMPILEDNCREATE) NIL () (PUTPROP (QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-NCREATE|) (GET ( QUOTE NCREATE) (QUOTE COMPILER:OPTIMIZER-LIST)))) |optimize-\\DTEST| :D8 (L (2 $$CTX 1 $$ENV 0 $$WHOLE)) @1HHAJgJd3@gK$ggjddgJhIhgK"ggjdgJhIhggjgJhIhgNIL (169 IGNOREMACRO 150 ATOM 144 DTEST 139 OPCODES 119 ATOM 112 DTEST 107 OPCODES 97 COMPILER:ENV 91 :3-BYTE 70 ATOM 62 DTEST 57 OPCODES 47 COMPILER:ENV 41 :4-BYTE 20 QUOTE) () (PUTPROP (QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST) (CL:ADJOIN (QUOTE |optimize-\\DTEST|) (GET ( QUOTE \\DTEST) (QUOTE COMPILER:OPTIMIZER-LIST)))) (PUTPROPS \\TESTBITS DMACRO ((X N FD) (NEQ 0 (\\GETBITS X N FD)))) COMPILEDFETCHFIELD :D8 (L (1 FASTFLG 0 X)) @g@@2A'HZ"gIJddi3 gJhhHdgdgdgdggIHhdgCgogggHkhggHhhhIhdggIHhdggIHhgBgogggHkhggHhhhIhHH[dggILKhdg"ggILKhK hdggILKhgAgogggLKhggLkhhhIhg(482 SHOULDNT 377 |BitFieldWidth|) (488 IGNOREMACRO 457 D 452 \\GETBASE 439 D 434 \\GETBITS 429 \\MAKENUMBER 419 OPENLAMBDA 411 LONGBITS 396 \\TESTBITS 388 FLAGBITS 361 \\GETBITS 356 SIGNED 347 SIGNEDBITS 331 \\GETBITS 323 BITS 287 D 282 \\GETBASE 268 D 263 \\GETBASE 258 \\MAKENUMBER 248 OPENLAMBDA 240 SWAPPEDFIXP 226 \\GETBASEFIXP 218 FIXP 203 \\GETBASEFLOATP 195 FLOATP 169 D 164 \\GETBASE 150 D 145 \\GETBASE 140 \\VAG2 130 OPENLAMBDA 121 SWAPPEDXPOINTER 106 \\GETBASEPTR 98 FULLXPOINTER 90 FULLPOINTER 82 XPOINTER 73 POINTER 54 QUOTE 36 \\DTEST 8 QUOTE) ( 424 (D) 253 (D) 135 (D)) COMPILEDREPLACEFIELD :D8 (L (2 RPLVALFLG 1 FASTFLG 0 X)) @g@@@HHHA%K"gIKddi3 gKhhLgLdggIMJhggIMJhLdggIMJhgDgoggMoggMkooIJhLdggIMJhgggIMhJhLdggIMJhdggIMLJhdgoMLho IJhdg4ggIMLgJL hhL hg5ggIMLgJL hohog(466 |BitFieldMask| 426 |BitFieldWidth| 409 |BitFieldWidth| 365 SUBPAIR) (495 IGNOREMACRO 458 COND 449 \\PUTBITS 444 NEQ 436 FLAGBITS 401 UNSIGNED 392 \\PUTBITS 387 SIGNED 378 SIGNEDBITS 340 LONGBITS 322 \\PUTBITS 313 BITS 297 \\PUTBASEFLOATP 289 FLOATP 270 \\ADDBASE 265 \\PUTSWAPPEDFIXP 257 SWAPPEDFIXP 243 \\PUTBASEFIXP 235 FIXP 201 D 196 \\PUTBASE 182 D 177 \\PUTBASE 167 OPENLAMBDA 159 SWAPPEDXPOINTER 145 \\PUTBASEPTR 137 FULLXPOINTER 121 PUTBASEPTRX 114 XPOINTER 100 \\RPLPTR 92 FULLPOINTER 83 POINTER 68 QUOTE 50 \\DTEST 8 QUOTE) ( 487 (0) 474 ((T 0)) 360 (OPENLAMBDA (D V) (\\PUTBITS D OFFSET FT (\\HINUM V)) (\\PUTBASE D (ADD1 OFFSET) (\\LONUM V)) V) 349 (OFFSET FT) 217 (R) 209 ((\\HILOC R)) 188 ((\\LOLOC R)) 172 (D R)) COMPILEDNCREATE :D8 (L (0 X)) @@g/@g@ hg@ @hg(48 \\TYPEGLOBALVARIABLE 30 \\TYPEGLOBALVARIABLE) (61 IGNOREMACRO 39 NCREATE2 21 CREATECELL 8 QUOTE) () (RPAQQ DATATYPEFIELDTYPES ((FLOATP 0.0) (FIXP 0) (SWAPPEDFIXP 0) (POINTER NIL) (XPOINTER NIL) ( FULLPOINTER NIL) (FULLXPOINTER NIL) (SWAPPEDXPOINTER NIL) (FLAG NIL) (BYTE 0) (WORD 0) (SIGNEDWORD 0)) ) (PUTPROPS LOCF DMACRO (X (TRANSLATE.LOCF X))) (PUTPROPS INDEXF DMACRO (X (TRANSLATE.LOCF X T))) TRANSLATE.LOCF :D8 (L (1 INDEXONLY 0 ARGS)) @ !HdgHHXdgdgHZJgJZJ3 AJJjHHXHdgH?Hh9dgdgH3 JHԺHhH YHIhigHJhHd X3o@ g(227 ERROR 210 CL:MACROEXPAND-1 179 CL:MACROEXPAND-1 5 MKPROGN) (232 IGNOREMACRO 195 \\ADDBASE 147 \\ADDBASE 139 ADDBASE 118 PROGN 69 QUOTE 47 FFETCHFIELD 39 FETCHFIELD 17 PROGN) ( 221 "LOCF Can't figure out this argument") (PUTPROPS DTDECLARE FILETYPE CL:COMPILE-FILE) (PUTPROPS DTDECLARE COPYRIGHT ("Venue & Xerox Corporation" 1981 1982 1983 1984 1985 1986 1987 1990 1992 1995)) NIL