3 <NEWSTRUC LABEL-REF VECTOR
4 LABEL-REF-NAME <OR ATOM SPEC-LABEL ATOM>
5 LABEL-REF-XREFS <LIST [REST XREF-INFO]>
8 LABEL-REF-LOOP-LABEL <OR FALSE AC-STATE>
9 LABEL-REF-PUSH-POINTER <OR FALSE FIX>
10 LABEL-REF-LIVE-VARS <LIST [REST VARTBL]>
11 LABEL-REF-DEAD-VARS <LIST [REST VARTBL]>
12 LABEL-REF-NOT-REAL <OR ATOM FALSE>>
14 <NEWSTRUC XREF-INFO VECTOR
15 XREF-INFO-LABEL LABEL-REF
17 XREF-INFO-SAVED-AC-INFO <OR FALSE AC-STATE>
18 XREF-INFO-STACK-SAVE-CODE <OR FALSE CODEVEC>
19 XREF-INFO-SHORT BOOLEAN
24 XREF-INFO-SLSTATE <OR FALSE SLOAD-STATE>
25 XREF-INFO-PSAVES <LIST [REST PTN-SAVE]>
26 XREF-INFO-FORCE-LONG BOOLEAN>
28 <NEWSTRUC CALL-DESCRIPTOR VECTOR
31 CD-ARGS <VECTOR [REST ARG-DESCRIPTOR]>
32 CD-RESULT <OR FALSE DATUM>
33 CD-FLUSH?-ACS BOOLEAN>
35 <MSETG RTE-DISPATCH-TABLE-SIZE 200>
37 <GDECL (RTE-DISP-TABLE) <VECTOR [REST <OR FALSE ATOM>]>>
39 <NEWSTRUC DATUM VECTOR
40 DATUM-TYPE <OR FALSE ATOM>
41 DATUM-TAC <OR FALSE ATOM>
45 ((ENVIRONMENT MDL) <PUTPROP ARG-DESCRIPTOR DECL '<OR ATOM AC-LDESC>>)
46 (T <PUT-DECL ARG-DESCRIPTOR '<OR ATOM AC-LDESC>>)>
48 <NEWSTRUC AC-LDESC VECTOR
50 AC-LDESC-TAC <OR FALSE ATOM>
53 <GDECL (FRAME-LABEL-TABLE) <LIST [REST SPEC-LABEL]>>
61 <GDECL (NCOMP-TABLE COMP-TABLE REVERSE-TABLE) <UVECTOR FIX>>
63 <GDECL (FLUSH-NEXT) FIX>
65 <GDECL (PASS-OPS) <UVECTOR [REST FIX]>>
67 <MSETG MAX-NUMBER-ARGS 40>
69 <GDECL (ARGVEC) VECTOR>
71 <GDECL (FUNCTION-DECL) LIST
73 (ARGLIST-VARS) <LIST [REST VARTBL]>
74 (ICALL-LABELS) <LIST [REST ATOM]>>
76 <GDECL (TEMP-PATCH) FIX>
78 <GDECL (CONSTANT-TYPE-AC CONSTANT-COUNT-AC) <OR FALSE AC>>
80 <MSETG MAX-NUMBER-OPS 200>
82 <GDECL (OP-APPLY-VECTOR) VECTOR (OP-COUNT) FIX (MIMOP-OBLIST) OBLIST>
84 <MSETG BAD-OPERATION -1>
86 <MSETG MAX16C <- <* 1024 32> 1>>
88 <MSETG MAXP16C <- <* 1024 32 2> 1>>
90 <MSETG MIN16C <- ,MAX16C>>
92 <MSETG COND-CODE-ALWAYS
126 ((ENVIRONMENT MDL) <PUT HINT DECL '<LIST ANY ANY>>)
127 (T <PUT-DECL HINT '<LIST ANY ANY>>)>
133 AC-PROT <OR ATOM FALSE>
135 AC-LLOAD <OR FALSE FIX>
136 AC-LLOAD-EA <OR FALSE EFF-ADDR>
137 AC-VARS <VECTOR [REST LINKVAR]>
138 AC-USE <OR FALSE ATOM>>
144 <GDECL (AC-TIME) FIX>
146 <MSETG STRUCTURED-TYPES [VECTOR LIST RECORD UVECTOR]>
148 <NEWSTRUC LINKVAR VECTOR
150 LINKVAR-VALUE-STORED BOOLEAN
151 LINKVAR-COUNT-STORED BOOLEAN
152 LINKVAR-TYPE-STORED BOOLEAN
153 LINKVAR-DECL <OR FALSE ATOM>
154 LINKVAR-VALUE-AC <OR FALSE AC>
155 LINKVAR-TYPE-AC <OR FALSE AC>
156 LINKVAR-COUNT-AC <OR FALSE AC>
157 LINKVAR-TYPE-WORD-AC <OR FALSE AC>
158 LINKVAR-POTENTIAL-SAVES <LIST [REST XREF-INFO]>>
162 <PUTPROP CACHED-VARIABLES DECL '<VECTOR [REST LINKVAR]>>)
164 <PUT-DECL CACHED-VARIABLES '<VECTOR [REST LINKVAR]>>)>
166 <MSETG CACHE-LENGTH 30>
170 <PUTPROP AC-STATE DECL '<VECTOR [REST LINKVAR]>>)
172 <PUT-DECL AC-STATE '<VECTOR [REST LINKVAR]>>)>
174 <GDECL (VARIABLE-CACHE) AC-STATE>
176 <GDECL (STATUS-AC) <OR FALSE AC>
177 (STATUS-VAR) <OR FALSE VARTBL>
180 <GDECL (UNCONDITIONAL-BRANCH) BOOLEAN>
182 <NEWSTRUC VARTBL VECTOR
184 VARTBL-LOC <OR FALSE FIX>
185 VARTBL-TYPE <OR FALSE ATOM>
186 VARTBL-RDECL <OR FALSE ATOM>
187 VARTBL-DEAD? <OR FALSE ATOM>
189 VARTBL-TDECL <OR FALSE ATOM>
190 VARTBL-INIT <OR FALSE INITVAL>>
192 <NEWTYPE SPEC-FALSE LIST>
194 <NEWTYPE INITVAL VECTOR>
196 <GDECL (VAR-LIST) <LIST [REST VARTBL]>>
198 <NEWSTRUC STK-MODEL VECTOR
200 SM-VARLIST <LIST [REST VARTBL]>
201 SM-KIDS <LIST [REST STK-MODEL]>
202 SM-PARENT <OR FALSE STK-MODEL>
203 SM-SAVED-VAR-POINTER FIX
204 SM-VARS <LIST [REST VARTBL]>>
206 <GDECL (TOP-MODEL CURRENT-MODEL) STK-MODEL>
208 <ENV-COND ((ENVIRONMENT MDL) <PUTPROP AC-CHOICES DECL '<OR ATOM AC>>)
209 (T <PUT-DECL AC-CHOICES '<OR ATOM AC>>)>
211 <NEWSTRUC AC-LOAD-STATE VECTOR
212 ACL-LLOAD <OR FALSE FIX>
213 ACL-LLOAD-EA <OR FALSE EFF-ADDR>>
217 <PUTPROP SLOAD-STATE DECL '<VECTOR [REST <OR FALSE AC-LOAD-STATE>]>>)
219 <PUT-DECL SLOAD-STATE '<VECTOR [REST <OR FALSE AC-LOAD-STATE>]>>)>
221 <GDECL (LOOP-VARS) AC-STATE>
223 <GDECL (RE-GEN-POST RE-GEN-PRE) LIST>
225 <MSETG INT-LABELS <VECTOR TCOMPERR>>
227 <NEWSTRUC RECORD-ELEMENT-DESCRIPTOR VECTOR
229 RED-OFFSET-TYPCNT FIX
233 RED-LENGTH <OR FALSE FIX>
234 RED-OBJTYP <OR FALSE ATOM>>
237 <GDECL (RECORD-TABLE) <LIST [REST RECORD-DESCRIPTOR]>>
239 <NEWSTRUC RECORD-DESCRIPTOR VECTOR
240 REC-TYPE-NAME <VECTOR [REST ATOM]>
241 REC-ELEMENTS <LIST [REST RECORD-ELEMENT-DESCRIPTOR]>
246 <NEWTYPE XTYPE-C ATOM>
248 <NEWTYPE XTYPE-W ATOM>
250 <NEWTYPE XCHANNEL-OP LIST>
252 <GDECL (TYPE-WORDS) <VECTOR [REST ATOM FIX]>>
254 <GDECL (MVEC-LIST) LIST (MVEC-OFF) FIX>
256 <NEWTYPE T$UNBOUND FIX>
258 <NEWTYPE ADECL VECTOR>
260 <OR <LOOKUP "LBIND" <ROOT>> <INSERT "LBIND" <ROOT>>>
262 <OR <LOOKUP "GBIND" <ROOT>> <INSERT "GBIND" <ROOT>>>
264 <GDECL (ALL-ACS) <VECTOR [REST AC]>>
266 <GDECL (ICALL-LEVEL) FIX>
268 <MSETG LONG-TYPE-MASK <PUTBITS <PUTBITS 0 <BITS 5 31> 1> <BITS 1 21> 1>>
270 <MSETG SHORT-TYPE-MASK <PUTBITS <PUTBITS 0 <BITS 1 5> 1> <BITS 21 15> 1>>
272 <MSETG ADDR-MASK <PUTBITS *37777777777* <BITS 2> 0>>
278 <FUNCTION (MODE-NAME MODE-CODE)
279 <MSETG .MODE-NAME <CHTYPE <LSH .MODE-CODE 4> FIX>>>
280 '[AM-REG AM-LIT AM-INX AM-REGD AM-ADEC AM-AINC AM-AINCD AM-BD AM-BDD
281 AM-WD AM-WDD AM-LD AM-LDD]
282 '[5 0 4 6 7 8 9 10 11 12 13 14 15]>
284 <MSETG LIST-NEXT-OFFSET -4>