> FIX>>)> > > AC-LOAD-STATE>>> ,ALL-ACS>> > > >) ( > >)>> ,ALL-ACS .LSTATE>> (VALUE) ) > .CACHE>> ) LEN "AUX" LKV2) #DECL ((SSTATE1 SSTATE2) AC-STATE (SSTATE) >) >> >) (ELSE >)> >> > > > )>)>> .SSTATE1> .SSTATE> )) #DECL ((LK1) LINKVAR (LINKS) ) .VAR> )>> .LINKS>> ) (TAC <>) (TWAC <>) (CAC <>) MXREFS) #DECL ((LK1 LK2) LINKVAR) > >) (ELSE >)> > >)> > >)> > >)> > >)> > >> >> >> >> )>> ) ) ()>> .LX1>> >> )) >>> ,ALL-ACS> ) DCL) > >> .SSTATE> >)) > > > > > > > >> .SSTATE> T> )) #DECL ((LABEL) LABEL-REF (UCB?) BOOLEAN (PATCH) FIX) >)> > > > )>> > > ) ( ,CLEAR-VARS-FROM-AC ,ALL-ACS>)> > > >> >> (LABEL) LABEL-REF) > ) (ELSE > )>)>> > .SSTATE> > > >> > ) RES) #DECL ((CDV) CODEVEC (STATUS?) ANY (LILEN CP) FIX) > .CDV) (ELSE >> > .LILEN> )> > !.L)> ,INST-NULLF>>>)> >) (<==? .LILEN 1> >) (>)> ,INST-NULLF> .RES)>> > (CDV) CODEVEC (AC) AC) > ) ()>> FIX>> *377*> FIX>)) FIX> ,AM-REG> FIX>) (ELSE -1)>> ) )> >>> > FIX>>> .AC .PSAVE .INST> >) ( <==? .IFLD ,INST-MOVL> <==? .IFLD ,INST-MOVB>> <==? .IREG >> )> >) (ELSE <==? .IFLD ,INST-MOVW> <==? .IFLD ,INST-MOVL>> )> >) (ELSE > >)>)>>> (INST) FIX) ALL-PRE> .INST <>>) (<==? ALL-POST> .INST <>>) ()>> )) #DECL ((AC) AC (CDV) CODEVEC) )> >>> > <==? .IFLD ,INST-MOVL>> <==? .IREG >> ) ()> >) (ELSE ) ()> <==? .IFLD ,INST-MOVW> <==? .IFLD ,INST-MOVL>> >) (>)>)>>> (INST1) FIX (INST2) ) >) (>)> > ) ()>) (ELSE ) ()>) () ()>)>)>> )) #DECL ((JSSTATE LSSTATE) AC-STATE) )) > ) (ELSE )>> .JSSTATE> > > > ) SVEC) #DECL ((JLV LLV) LINKVAR (XREF) ) > >> >> )> > > >)>> .VAR> >> )>> >> <==? .KIND1 TYPE-COUNT-VALUE> <==? .KIND2 COUNT>>> <==? .KIND2 VALUE>>> <==? .KIND2 VALUE>>>>> ) SVEC (KIND TYPE)) #DECL ((JLV LLV) LINKVAR (XREF) ) > > > >> > > ) (> > )>) (> ) ()> > >)>> )) #DECL ((JLV LLV) LINKVAR (XREF) ) > > > >> > >> >> >> > >> ) (> )> > >)>> )) > .CACHE>> ]>) )) VALUE>>) (> !)>)>> .VARS> > LOOP-LABEL> ) )) > )>> ,VARIABLE-CACHE> ) RVAR NLVAR (CS ) (VS ) (TS )) > > > > )> ; "Make sure that if we're storing the type we also store the value, so we don't get garbage pointers on the stack." > ) ( )> > >> > )> > >> >)> > > >> > )>> ,VARIABLE-CACHE> ) LVAR) > > > > > > >)> >>> > PREF-TYPE>>) ( PREF-TYPE>>) ( PREF-TYPE>>)> > >> >> >>)>> .VARS> T> ) > )>> .VARS>> ) LVAR1) > ) (ELSE T> )>> > ) VAC) > .VAC>>> > .VAC>>> > .VAC>>> > .VAC>>>> .LSTATE> > )) #DECL ((LVAR1 LVAR2) LINKVAR) > > > > > > >> T> ) (<==? .VAC > )>)> > > T> ) (<==? .VAC > )>)> > > > >> T> ) (<==? .VAC > )>)> > > >> T> ) (<==? .VAC > )>)>> "THE STATUS INFORMATION THAT IS CURRENTLY-GENERATED IS AN ATOM EITHER NORMAL, UNCONDITIONAL-BRANCH, LOOP-LABEL" > ,CLEAR-VARS-FROM-AC ,ALL-ACS>) (ELSE > ,CLEAR-VARS-FROM-AC ,ALL-ACS>)> >> >) (>>)> ) ( .PATCH>)>)>> ) (FLONG? <>) (NO-KILL <>) "AUX" XREF LREF INSRT (LLEN ,LAST-INST-LENGTH) (CCOUNT ,CODE-COUNT) LSTATE) #DECL ((INST CC) FIX (LABEL) (ACNUM) ANY (STATUS?) ANY (FLONG?) BOOLEAN) > ) (> >> > > ) (> ) (ELSE )> > )>> > <==? .VAC>> <==? .VAC>> <==? .VAC>> <==? .VAC>>>>) (> > )>)> >