This is cmptag.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "cmptag.h"
init_cmptag(){do_init(VV);}
/* local entry for function MAKE-TAG */
static object LI1(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB1 VMS1 VMV1
{object V1;
object V2;
object V3;
object V4;
object V5;
object V6;
object V7;
object V8;
narg= narg - 0;
va_start(ap);
{
parse_key_new(narg,Vcs +0,&LI1key,ap);
V1=(Vcs[0]);
V2=(Vcs[1]);
V3=(Vcs[2]);
V4=(Vcs[3]);
V5=(Vcs[4]);
V6=(Vcs[5]);
V7=(Vcs[6]);
V8=(Vcs[7]);
base[0]= VV[0];
base[1]= (V1);
base[2]= (V2);
base[3]= (V3);
base[4]= (V4);
base[5]= (V5);
base[6]= (V6);
base[7]= (V7);
base[8]= (V8);
vs_top=(vs_base=base+0)+9;
siLmake_structure();
vs_top=sup;
{object V9 = vs_base[0];
VMR1(V9)}}
}}
/* local entry for function JUMPS-TO-P */
static object LI2(V12,V13)
register object V12;object V13;
{ VMB2 VMS2 VMV2
TTL:;
{object V14;
V14= Cnil;
if(!(type_of((V12))!=t_cons)){
goto T12;}
{object V15 = Cnil;
VMR2(V15)}
T12:;
{object V16;
if((car((V12)))==(VV[1])){
goto T15;}
V16= Cnil;
goto T14;
T15:;
V14= cadddr(cdr((V12)));
base[0]= (V14);
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T17;}
V16= Cnil;
goto T14;
T17:;
V17= structure_ref((V14),VV[0],0);
V16= ((/* INLINE-ARGS */V17)==((V13))?Ct:Cnil);
T14:;
if(((V16))==Cnil){
goto T23;}
{object V18 = (V16);
VMR2(V18)}
T23:;
base[0]= (*(LnkLI46))(car((V12)),(V13));
if(base[0]==Cnil)goto T25;
{object V19 = base[0];
VMR2(V19)}
T25:;
V12= cdr((V12));
goto TTL;}}
}
/* local entry for function ADD-REG1 */
static object LI3(V21)
register object V21;
{ VMB3 VMS3 VMV3
TTL:;
if(!(type_of((V21))!=t_cons)){
goto T31;}
base[0]= (V21);
base[1]= VV[2];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T34;}
{int V22= fix(structure_ref((V21),VV[2],6));
V23 = make_fixnum((/* INLINE-ARGS */V22)+(fix(symbol_value(VV[3]))));
{object V24 = structure_set((V21),VV[2],6,V23);
VMR3(V24)}}
T34:;
{object V25 = Cnil;
VMR3(V25)}
T31:;
(void)((*(LnkLI47))(car((V21))));
V21= cdr((V21));
goto TTL;
}
/* local entry for function ADD-LOOP-REGISTERS */
static object LI4(V27)
object V27;
{ VMB4 VMS4 VMV4
TTL:;
{object V28;
object V29;
object V30;
V28= (V27);
V29= Cnil;
V30= Cnil;
T45:;
if(((V28))!=Cnil){
goto T46;}
{object V31;
V31= (V30);
T51:;
if(!(((V31))==((V29)))){
goto T52;}
{object V32 = (*(LnkLI47))(car((V31)));
VMR4(V32)}
T52:;
(void)((*(LnkLI47))(car((V31))));
V31= cdr((V31));
goto T51;}
T46:;
base[0]= car((V28));
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T61;}
if((V30)!=Cnil){
goto T66;}
V30= (V28);
T66:;
{object V33;
object V34;
V33= cdr((V28));
V34= structure_ref(car((V28)),VV[0],0);
T71:;
if(((V33))!=Cnil){
goto T72;}
goto T61;
T72:;
if(((*(LnkLI46))(car((V33)),(V34)))==Cnil){
goto T76;}
V29= (V33);
T76:;
V33= cdr((V33));
goto T71;}
T61:;
V28= cdr((V28));
goto T45;}
}
/* local entry for function C1TAGBODY */
static object LI5(V36)
object V36;
{ VMB5 VMS5 VMV5
bds_check;
TTL:;
{object V37;
bds_bind(VV[4],symbol_value(VV[4]));
V37= (VFUN_NARGS=0,(*(LnkLI48))());
{object V38;
object V39= (V36);
if(endp(V39)){
V36= Cnil;
goto T88;}
base[1]=V38=MMcons(Cnil,Cnil);
T89:;
{object V40;
V40= (V39->c.c_car);
if(type_of((V40))==t_symbol){
goto T92;}
if(!(type_of((V40))==t_fixnum||type_of((V40))==t_bignum)){
goto T93;}
T92:;
{object V41;
V41= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V40),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
(VV[4]->s.s_dbind)= make_cons((V41),(VV[4]->s.s_dbind));
(V38->c.c_car)= (V41);
goto T90;}
T93:;
(V38->c.c_car)= (V40);}
T90:;
if(endp(V39=MMcdr(V39))){
V36= base[1];
goto T88;}
V38=MMcdr(V38)=MMcons(Cnil,Cnil);
goto T89;}
T88:;
{object V42;
object V43= (V36);
if(endp(V43)){
V36= Cnil;
goto T101;}
base[1]=V42=MMcons(Cnil,Cnil);
T102:;
{object V44;
V44= (V43->c.c_car);
base[2]= (V44);
base[3]= VV[0];
vs_top=(vs_base=base+2)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T106;}
(V42->c.c_car)= (V44);
goto T103;
T106:;
(V42->c.c_car)= (*(LnkLI50))((V44),(V37));}
T103:;
if(endp(V43=MMcdr(V43))){
V36= base[1];
goto T101;}
V42=MMcdr(V42)=MMcons(Cnil,Cnil);
goto T102;}
T101:;
{object V45;
object V46;
object V47;
object V48;
object V49;
V45= (V36);
V46= Cnil;
V47= Cnil;
V48= Cnil;
V49= Cnil;
T116:;
if(!(endp((V45)))){
goto T117;}
if(((V49))!=Cnil){
goto T120;}
if(((V48))!=Cnil){
goto T120;}
if(((V47))==Cnil){
goto T121;}
T120:;
V46= reverse((V46));
if(((V48))!=Cnil){
goto T130;}
if(((V49))==Cnil){
goto T131;}
T130:;
setq(VV[9],number_plus(symbol_value(VV[9]),small_fixnum(1)));
goto T129;
T131:;
(void)((*(LnkLI51))((V46)));
T129:;
{object V50 = list(5,VV[10],(V37),(V48),(V49),(V46));
bds_unwind1;
VMR5(V50)}
T121:;
V51= (*(LnkLI52))();
V52= make_cons(/* INLINE-ARGS */V51,(V46));
{object V53 = list(3,VV[11],(V37),reverse(/* INLINE-ARGS */V52));
bds_unwind1;
VMR5(V53)}
T117:;
base[1]= car((V45));
base[2]= VV[0];
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T139;}
if((structure_ref(car((V45)),VV[0],3))==Cnil){
goto T144;}
V46= make_cons(car((V45)),(V46));
V54= car((V45));
V55= structure_ref(car((V45)),VV[0],0);
V56= (*(LnkLI53))(/* INLINE-ARGS */V55);
(void)(structure_set(/* INLINE-ARGS */V54,VV[0],6,/* INLINE-ARGS */V56));
V49= Ct;
goto T137;
T144:;
if((structure_ref(car((V45)),VV[0],2))==Cnil){
goto T151;}
V46= make_cons(car((V45)),(V46));
V57= car((V45));
V58= structure_ref(car((V45)),VV[0],0);
V59= (*(LnkLI53))(/* INLINE-ARGS */V58);
(void)(structure_set(/* INLINE-ARGS */V57,VV[0],6,/* INLINE-ARGS */V59));
V48= Ct;
goto T137;
T151:;
if((structure_ref(car((V45)),VV[0],1))==Cnil){
goto T137;}
V46= make_cons(car((V45)),(V46));
V47= Ct;
goto T137;
T139:;
V46= make_cons(car((V45)),(V46));
T137:;
V45= cdr((V45));
goto T116;}}
}
/* local entry for function C2TAGBODY */
static object LI6(V63,V64,V65)
object V63;object V64;object V65;
{ VMB6 VMS6 VMV6
TTL:;
if(((V64))==Cnil){
goto T167;}
{object V66 = (*(LnkLI54))((V65));
VMR6(V66)}
T167:;
if(((V63))==Cnil){
goto T170;}
{object V67 = (*(LnkLI55))((V65));
VMR6(V67)}
T170:;
{object V68 = (*(LnkLI56))((V65));
VMR6(V68)}
}
/* local entry for function C2TAGBODY-LOCAL */
static object LI7(V70)
object V70;
{ VMB7 VMS7 VMV7
bds_check;
TTL:;
{object V71;
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V71= make_cons(symbol_value(VV[12]),Cnil);
{object V72;
object V73;
V72= (V70);
V73= car((V72));
T178:;
if(!(endp((V72)))){
goto T179;}
goto T174;
T179:;
base[0]= (V73);
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T183;}
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V74= make_cons(symbol_value(VV[12]),Ct);
(void)(structure_set((V73),VV[0],4,/* INLINE-ARGS */V74));
(void)(structure_set((V73),VV[0],5,(V71)));
T183:;
V72= cdr((V72));
V73= car((V72));
goto T178;}
T174:;
base[0]= make_cons((V71),symbol_value(VV[13]));
bds_bind(VV[13],base[0]);
{object V75 = (*(LnkLI57))((V70));
bds_unwind1;
VMR7(V75)}}
}
/* local entry for function C2TAGBODY-BODY */
static object LI8(V77)
object V77;
{ VMB8 VMS8 VMV8
bds_check;
TTL:;
{object V78;
object V79;
V78= (V77);
V79= Cnil;
T199:;
if(!(endp(cdr((V78))))){
goto T200;}
if(((V79))==Cnil){
goto T204;}
{object V80 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
VMR8(V80)}
T204:;
base[0]= car((V78));
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T207;}
V81= structure_ref(car((V78)),VV[0],7);
(void)((*(LnkLI59))(/* INLINE-ARGS */V81));
V82= structure_ref(car((V78)),VV[0],4);
if((cdr(/* INLINE-ARGS */V82))==Cnil){
goto T212;}
princ_str("\nT",VV[14]);
V83= structure_ref(car((V78)),VV[0],4);
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V83)));
princ_str(":;",VV[14]);
T212:;
{object V84 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
VMR8(V84)}
T207:;
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
bds_bind(VV[16],VV[17]);
base[3]= car((V78));
vs_top=(vs_base=base+3)+1;
(void) (*Lnk61)();
vs_top=sup;
if((cdr((VV[15]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T218;}
princ_str("\nT",VV[14]);
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
princ_str(":;",VV[14]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T218:;
if((caar((V78)))==(VV[1])){
goto T230;}
{object V85 = (VFUN_NARGS=1,(*(LnkLI58))(Cnil));
VMR8(V85)}
T230:;
{object V86 = Cnil;
VMR8(V86)}
T200:;
if(((V79))==Cnil){
goto T235;}
V79= Cnil;
goto T233;
T235:;
base[0]= car((V78));
base[1]= VV[0];
vs_top=(vs_base=base+0)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T239;}
V87= structure_ref(car((V78)),VV[0],7);
(void)((*(LnkLI59))(/* INLINE-ARGS */V87));
V88= structure_ref(car((V78)),VV[0],4);
if((cdr(/* INLINE-ARGS */V88))==Cnil){
goto T233;}
princ_str("\nT",VV[14]);
V89= structure_ref(car((V78)),VV[0],4);
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V89)));
princ_str(":;",VV[14]);
goto T233;
T239:;
base[1]= cadr((V78));
base[2]= VV[0];
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T251;}
V79= Ct;
bds_bind(VV[15],structure_ref(cadr((V78)),VV[0],4));
goto T249;
T251:;
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
bds_bind(VV[15],make_cons(symbol_value(VV[12]),Cnil));
T249:;
bds_bind(VV[13],make_cons((VV[15]->s.s_dbind),symbol_value(VV[13])));
bds_bind(VV[16],VV[17]);
base[3]= car((V78));
vs_top=(vs_base=base+3)+1;
(void) (*Lnk61)();
vs_top=sup;
base[3]= cadr((V78));
base[4]= VV[0];
vs_top=(vs_base=base+3)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])!=Cnil){
goto T262;}
goto T261;
T262:;
V90= structure_ref(cadr((V78)),VV[0],7);
(void)((*(LnkLI59))(/* INLINE-ARGS */V90));
T261:;
if((cdr((VV[15]->s.s_dbind)))==Cnil){
bds_unwind1;
bds_unwind1;
bds_unwind1;
goto T233;}
princ_str("\nT",VV[14]);
(void)((*(LnkLI60))(car((VV[15]->s.s_dbind))));
princ_str(":;",VV[14]);
bds_unwind1;
bds_unwind1;
bds_unwind1;
T233:;
V78= cdr((V78));
goto T199;}
}
/* local entry for function C2TAGBODY-CLB */
static object LI9(V92)
object V92;
{ VMB9 VMS9 VMV9
bds_check;
TTL:;
{object V93;
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V93= make_cons(symbol_value(VV[12]),Cnil);
bds_bind(VV[18],symbol_value(VV[18]));
{object V94;
base[1]= make_cons(VV[19],symbol_value(VV[13]));
V94= (*(LnkLI62))();
bds_bind(VV[13],base[1]);
princ_str("\n ",VV[14]);
(void)((*(LnkLI63))((V94)));
princ_str("=alloc_frame_id();",VV[14]);
princ_str("\n frs_push(FRS_CATCH,",VV[14]);
(void)((*(LnkLI63))((V94)));
princ_str(");",VV[14]);
princ_str("\n if(nlj_active){",VV[14]);
princ_str("\n nlj_active=FALSE;",VV[14]);
{object V95;
object V96;
V95= (V92);
V96= car((V95));
T295:;
if(!(endp((V95)))){
goto T296;}
goto T291;
T296:;
base[2]= (V96);
base[3]= VV[0];
vs_top=(vs_base=base+2)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T300;}
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V97= make_cons(symbol_value(VV[12]),Ct);
(void)(structure_set((V96),VV[0],4,/* INLINE-ARGS */V97));
(void)(structure_set((V96),VV[0],5,(V93)));
if((structure_ref((V96),VV[0],2))==Cnil){
goto T300;}
(void)(structure_set((V96),VV[0],2,(V94)));
princ_str("\n if(eql(nlj_tag,VV[",VV[14]);
V98= structure_ref((V96),VV[0],6);
(void)((*(LnkLI60))(/* INLINE-ARGS */V98));
princ_str("]))",VV[14]);
V99= structure_ref((V96),VV[0],4);
if(type_of(/* INLINE-ARGS */V99)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V99);
(/* INLINE-ARGS */V99)->c.c_cdr = Ct;
princ_str("goto T",VV[14]);
V100= structure_ref((V96),VV[0],4);
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V100)));
princ_char(59,VV[14]);
T300:;
V95= cdr((V95));
V96= car((V95));
goto T295;}
T291:;
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
princ_str("\n }",VV[14]);
base[2]= make_cons((V93),(VV[13]->s.s_dbind));
bds_bind(VV[13],base[2]);
{object V101 = (*(LnkLI57))((V92));
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR9(V101)}}}
}
/* local entry for function C2TAGBODY-CCB */
static object LI10(V103)
object V103;
{ VMB10 VMS10 VMV10
bds_check;
TTL:;
{object V104;
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V104= make_cons(symbol_value(VV[12]),Cnil);
bds_bind(VV[18],symbol_value(VV[18]));
bds_bind(VV[20],symbol_value(VV[20]));
bds_bind(VV[21],symbol_value(VV[21]));
{object V105;
object V106;
base[3]= make_cons(VV[19],symbol_value(VV[13]));
V105= (*(LnkLI62))();
V106= Cnil;
bds_bind(VV[13],base[3]);
princ_str("\n ",VV[14]);
(void)((*(LnkLI63))((V105)));
princ_str("=alloc_frame_id();",VV[14]);
princ_str("\n ",VV[14]);
(void)((*(LnkLI63))((V105)));
princ_str("=MMcons(",VV[14]);
(void)((*(LnkLI63))((V105)));
princ_char(44,VV[14]);
(void)((VFUN_NARGS=0,(*(LnkLI64))()));
princ_str(");",VV[14]);
(void)((*(LnkLI65))((V105)));
V106= (*(LnkLI66))();
princ_str("\n frs_push(FRS_CATCH,",VV[14]);
(void)((*(LnkLI67))((V105)));
princ_str(");",VV[14]);
princ_str("\n if(nlj_active){",VV[14]);
princ_str("\n nlj_active=FALSE;",VV[14]);
{object V107;
object V108;
V107= (V103);
V108= car((V107));
T364:;
if(!(endp((V107)))){
goto T365;}
goto T360;
T365:;
base[4]= (V108);
base[5]= VV[0];
vs_top=(vs_base=base+4)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T369;}
setq(VV[12],number_plus(symbol_value(VV[12]),small_fixnum(1)));
V109= make_cons(symbol_value(VV[12]),Ct);
(void)(structure_set((V108),VV[0],4,/* INLINE-ARGS */V109));
(void)(structure_set((V108),VV[0],5,(V104)));
if((structure_ref((V108),VV[0],2))!=Cnil){
goto T377;}
if((structure_ref((V108),VV[0],3))==Cnil){
goto T369;}
T377:;
(void)(structure_set((V108),VV[0],2,(V105)));
if((structure_ref((V108),VV[0],3))==Cnil){
goto T382;}
(void)(structure_set((V108),VV[0],3,(V106)));
T382:;
princ_str("\n if(eql(nlj_tag,VV[",VV[14]);
V110= structure_ref((V108),VV[0],6);
(void)((*(LnkLI60))(/* INLINE-ARGS */V110));
princ_str("]))",VV[14]);
V111= structure_ref((V108),VV[0],4);
if(type_of(/* INLINE-ARGS */V111)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V111);
(/* INLINE-ARGS */V111)->c.c_cdr = Ct;
princ_str("goto T",VV[14]);
V112= structure_ref((V108),VV[0],4);
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V112)));
princ_char(59,VV[14]);
T369:;
V107= cdr((V107));
V108= car((V107));
goto T364;}
T360:;
princ_str("\n FEerror(\"The GO tag ~s is not established.\",1,nlj_tag);",VV[14]);
princ_str("\n }",VV[14]);
base[4]= make_cons((V104),(VV[13]->s.s_dbind));
bds_bind(VV[13],base[4]);
{object V113 = (*(LnkLI57))((V103));
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
bds_unwind1;
VMR10(V113)}}}
}
/* local entry for function C1GO */
static object LI11(V115)
object V115;
{ VMB11 VMS11 VMV11
TTL:;
if(!(endp((V115)))){
goto T405;}
(void)((*(LnkLI68))(VV[1],small_fixnum(1),small_fixnum(0)));
goto T403;
T405:;
if(endp(cdr((V115)))){
goto T408;}
V116 = make_fixnum(length((V115)));
(void)((*(LnkLI69))(VV[1],small_fixnum(1),V116));
goto T403;
T408:;
if(type_of(car((V115)))==t_symbol){
goto T403;}
{object V117= car((V115));
if(type_of(V117)==t_fixnum||type_of(V117)==t_bignum){
goto T403;}}
(void)(car((V115)));
T403:;
{object V118;
object V119;
object V120;
object V121;
V118= symbol_value(VV[4]);
V119= car((V115));
V120= Cnil;
V121= Cnil;
T420:;
if(!(endp((V118)))){
goto T421;}
{object V122 = (VFUN_NARGS=2,(*(LnkLI70))(VV[23],(V119)));
VMR11(V122)}
T421:;
{object V123= car((V118));
if((V123!= VV[71]))goto T426;
V120= Ct;
goto T425;
T426:;
if((V123!= VV[72]))goto T428;
V121= Ct;
goto T425;
T428:;
V124= structure_ref(car((V118)),VV[0],0);
if(!((/* INLINE-ARGS */V124)==((V119)))){
goto T425;}
{object V125;
V125= car((V118));
if(((V120))==Cnil){
goto T435;}
(void)(structure_set((V125),VV[0],3,Ct));
goto T433;
T435:;
if(((V121))==Cnil){
goto T438;}
(void)(structure_set((V125),VV[0],2,Ct));
goto T433;
T438:;
(void)(structure_set((V125),VV[0],1,Ct));
T433:;
{object V126 = list(5,VV[1],symbol_value(VV[24]),(V121),(V120),(V125));
VMR11(V126)}}}
T425:;
V118= cdr((V118));
goto T420;}
}
/* local entry for function C2GO */
static object LI12(V130,V131,V132)
object V130;object V131;object V132;
{ VMB12 VMS12 VMV12
TTL:;
if(((V131))==Cnil){
goto T444;}
{object V133 = (*(LnkLI73))((V132));
VMR12(V133)}
T444:;
if(((V130))==Cnil){
goto T447;}
{object V134 = (*(LnkLI74))((V132));
VMR12(V134)}
T447:;
{object V135 = (*(LnkLI75))((V132));
VMR12(V135)}
}
/* local entry for function C2GO-LOCAL */
static object LI13(V137)
object V137;
{ VMB13 VMS13 VMV13
TTL:;
V138= structure_ref((V137),VV[0],5);
(void)((*(LnkLI76))(/* INLINE-ARGS */V138));
princ_str("\n ",VV[14]);
V139= structure_ref((V137),VV[0],4);
if(type_of(/* INLINE-ARGS */V139)!=t_cons)FEwrong_type_argument(Scons,/* INLINE-ARGS */V139);
(/* INLINE-ARGS */V139)->c.c_cdr = Ct;
princ_str("goto T",VV[14]);
V140= structure_ref((V137),VV[0],4);
(void)((*(LnkLI60))(car(/* INLINE-ARGS */V140)));
princ_char(59,VV[14]);
{object V141 = Cnil;
VMR13(V141)}
}
/* local entry for function C2GO-CLB */
static object LI14(V143)
register object V143;
{ VMB14 VMS14 VMV14
TTL:;
princ_str("\n vs_base=vs_top;",VV[14]);
princ_str("\n unwind(frs_sch(",VV[14]);
if((structure_ref((V143),VV[0],3))==Cnil){
goto T461;}
V144= structure_ref((V143),VV[0],2);
(void)((*(LnkLI67))(/* INLINE-ARGS */V144));
goto T459;
T461:;
V145= structure_ref((V143),VV[0],2);
(void)((*(LnkLI63))(/* INLINE-ARGS */V145));
T459:;
princ_str("),VV[",VV[14]);
V146= structure_ref((V143),VV[0],6);
(void)((*(LnkLI60))(/* INLINE-ARGS */V146));
princ_str("]);",VV[14]);
{object V147 = Cnil;
VMR14(V147)}
}
/* local entry for function C2GO-CCB */
static object LI15(V149)
object V149;
{ VMB15 VMS15 VMV15
TTL:;
princ_str("\n {frame_ptr fr;",VV[14]);
princ_str("\n fr=frs_sch(",VV[14]);
V150= structure_ref((V149),VV[0],3);
(void)((*(LnkLI77))(/* INLINE-ARGS */V150));
princ_str(");",VV[14]);
princ_str("\n if(fr==NULL)FEerror(\"The GO tag ~s is missing.\",1,VV[",VV[14]);
V151= structure_ref((V149),VV[0],6);
(void)((*(LnkLI60))(/* INLINE-ARGS */V151));
princ_str("]);",VV[14]);
princ_str("\n vs_base=vs_top;",VV[14]);
princ_str("\n unwind(fr,VV[",VV[14]);
V152= structure_ref((V149),VV[0],6);
(void)((*(LnkLI60))(/* INLINE-ARGS */V152));
princ_str("]);}",VV[14]);
{object V153 = Cnil;
VMR15(V153)}
}
/* local entry for function WT-SWITCH-CASE */
static object LI16(V155)
register object V155;
{ VMB16 VMS16 VMV16
TTL:;
if(((V155))==Cnil){
goto T483;}
princ_str("\n ",VV[14]);
if(!(type_of((V155))==t_fixnum)){
goto T489;}
V156= VV[25];
goto T487;
T489:;
V156= VV[26];
T487:;
(void)((*(LnkLI60))(V156));
(void)((*(LnkLI60))((V155)));
princ_char(58,VV[14]);
{object V157 = Cnil;
VMR16(V157)}
T483:;
{object V158 = Cnil;
VMR16(V158)}
}
/* local entry for function C1SWITCH */
static object LI17(V160)
object V160;
{ VMB17 VMS17 VMV17
bds_check;
TTL:;
bds_bind(VV[4],symbol_value(VV[4]));
{object V161;
object V162;
object V163;
V161= car((V160));
V162= cdr((V160));
V163= (*(LnkLI78))((V161));
base[1]= cadr((V163));
base[2]= VV[27];
vs_top=(vs_base=base+1)+2;
(void) (*Lnk45)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T497;}
base[1]= structure_ref(cadr((V163)),VV[27],2);
base[2]= VV[28];
vs_top=(vs_base=base+1)+2;
(void) (*Lnk79)();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T497;}
{register object x= Ct,V164= (V162);
while(!endp(V164))
if(eql(x,V164->c.c_car)){
base[1]= V164;
goto T507;
}else V164=V164->c.c_cdr;
base[1]= Cnil;}
T507:;
if(base[1]==Cnil)goto T506;
goto T505;
T506:;
V165= make_cons(Ct,Cnil);
V162= append((V162),/* INLINE-ARGS */V165);
T505:;
{object V166;
object V167= (V162);
if(endp(V167)){
V162= Cnil;
goto T510;}
base[1]=V166=MMcons(Cnil,Cnil);
T511:;
{object V168;
V168= (V167->c.c_car);
if(type_of((V168))==t_symbol){
goto T514;}
if(!(type_of((V168))==t_fixnum||type_of((V168))==t_bignum)){
goto T515;}
T514:;
{object V169;
V169= (VFUN_NARGS=8,(*(LnkLI49))(VV[5],(V168),VV[6],Cnil,VV[7],Cnil,VV[8],Cnil));
if(!(type_of((V168))==t_fixnum)){
goto T522;}
(void)(structure_set((V169),VV[0],1,Ct));
(void)(structure_set((V169),VV[0],7,(V168)));
goto T520;
T522:;
if(!((Ct)==((V168)))){
goto T520;}
(void)(structure_set((V169),VV[0],1,Ct));
(void)(structure_set((V169),VV[0],7,VV[29]));
T520:;
(V166->c.c_car)= (V169);
goto T512;}
T515:;
(V166->c.c_car)= (V168);}
T512:;
if(endp(V167=MMcdr(V167))){
V162= base[1];
goto T510;}
V166=MMcdr(V166)=MMcons(Cnil,Cnil);
goto T511;}
T510:;
{object V170;
V171= append((V162),VV[30]);
V170= (*(LnkLI80))(/* INLINE-ARGS */V171);
V172= list(3,VV[31],cadr((V170)),(V163));
{object V173 = nconc(/* INLINE-ARGS */V172,cddr((V170)));
bds_unwind1;
VMR17(V173)}}
T497:;
V174= make_cons(VV[31],(V160));
V175= (*(LnkLI81))(/* INLINE-ARGS */V174);
{object V176 = (*(LnkLI78))(/* INLINE-ARGS */V175);
bds_unwind1;
VMR17(V176)}}
}
/* local entry for function C2SWITCH */
static object LI18(V181,V182,V183,V184)
object V181;object V182;object V183;object V184;
{ VMB18 VMS18 VMV18
bds_check;
TTL:;
bds_bind(VV[32],small_fixnum(0));
bds_bind(VV[18],symbol_value(VV[18]));
{object V185;
V186= make_cons((V181),Cnil);
V185= (VFUN_NARGS=2,(*(LnkLI82))(/* INLINE-ARGS */V186,VV[33]));
base[2]= VV[34];
base[3]= (V185);
vs_top=(vs_base=base+2)+2;
(void) (*Lnk83)();
vs_top=sup;
if(((V183))==Cnil){
goto T535;}
(void)((*(LnkLI54))((V184)));
goto T533;
T535:;
if(((V182))==Cnil){
goto T538;}
(void)((*(LnkLI55))((V184)));
goto T533;
T538:;
(void)((*(LnkLI56))((V184)));
T533:;
princ_char(125,VV[14]);
(void)((VFUN_NARGS=1,(*(LnkLI58))(Cnil)));
{object V187 = (*(LnkLI84))();
bds_unwind1;
bds_unwind1;
VMR18(V187)}}
}
/* macro definition for SWITCH */
static L19()
{register object *base=vs_base;
register object *sup=base+VM19; VC19
vs_reserve(VM19);
check_arg(2);
vs_top=sup;
{object V188=base[0]->c.c_cdr;
if(endp(V188))invalid_macro_call();
base[2]= (V188->c.c_car);
V188=V188->c.c_cdr;
base[3]= V188;
base[4]= Cnil;}
{object V189;
object V190;
V189= base[3];
V190= car((V189));
T548:;
if(!(endp((V189)))){
goto T549;}
goto T544;
T549:;
if(!(type_of((V190))==t_fixnum||type_of((V190))==t_bignum)){
goto T553;}
V191= list(3,VV[36],(V190),base[2]);
V192= list(4,VV[35],/* INLINE-ARGS */V191,list(2,VV[1],(V190)),Cnil);
base[4]= make_cons(/* INLINE-ARGS */V192,base[4]);
T553:;
V189= cdr((V189));
V190= car((V189));
goto T548;}
T544:;
V193= nreverse(base[4]);
base[5]= base[3];
{register object x= Ct,V195= base[3];
while(!endp(V195))
if(eql(x,V195->c.c_car)){
goto T567;
}else V195=V195->c.c_cdr;
goto T566;}
T567:;
base[6]= Cnil;
goto T564;
T566:;
base[6]= VV[38];
T564:;
base[7]= VV[39];
vs_top=(vs_base=base+5)+3;
Lappend();
vs_top=sup;
V194= vs_base[0];
V196= make_cons(VV[37],V194);
V197= append(/* INLINE-ARGS */V193,/* INLINE-ARGS */V196);
base[5]= make_cons(VV[10],/* INLINE-ARGS */V197);
vs_top=(vs_base=base+5)+1;
return;
}
/* macro definition for SWITCH-FINISH */
static L20()
{register object *base=vs_base;
register object *sup=base+VM20; VC20
vs_reserve(VM20);
check_arg(2);
vs_top=sup;
{object V198=base[0]->c.c_cdr;
if(!endp(V198))invalid_macro_call();}
base[2]= VV[40];
vs_top=(vs_base=base+2)+1;
return;
}
static object LnkTLI84(){return call_proc0(VV[84],&LnkLI84);} /* CLOSE-INLINE-BLOCKS */
static LnkT83(){ call_or_link(VV[83],&Lnk83);} /* WT-INLINE-LOC */
static object LnkTLI82(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[82],&LnkLI82,ap);} /* INLINE-ARGS */
static object LnkTLI81(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[81],&LnkLI81,1,ap);} /* CMP-MACROEXPAND-1 */
static object LnkTLI80(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[80],&LnkLI80,1,ap);} /* C1TAGBODY */
static LnkT79(){ call_or_link(VV[79],&Lnk79);} /* SUBTYPEP */
static object LnkTLI78(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[78],&LnkLI78,1,ap);} /* C1EXPR */
static object LnkTLI77(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[77],&LnkLI77,1,ap);} /* WT-CCB-VS */
static object LnkTLI76(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[76],&LnkLI76,1,ap);} /* UNWIND-NO-EXIT */
static object LnkTLI75(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[75],&LnkLI75,1,ap);} /* C2GO-LOCAL */
static object LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],&LnkLI74,1,ap);} /* C2GO-CLB */
static object LnkTLI73(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[73],&LnkLI73,1,ap);} /* C2GO-CCB */
static object LnkTLI70(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[70],&LnkLI70,ap);} /* CMPERR */
static object LnkTLI69(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[69],&LnkLI69,3,ap);} /* TOO-MANY-ARGS */
static object LnkTLI68(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[68],&LnkLI68,3,ap);} /* TOO-FEW-ARGS */
static object LnkTLI67(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[67],&LnkLI67,1,ap);} /* WT-VS* */
static object LnkTLI66(){return call_proc0(VV[66],&LnkLI66);} /* CCB-VS-PUSH */
static object LnkTLI65(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[65],&LnkLI65,1,ap);} /* CLINK */
static object LnkTLI64(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[64],&LnkLI64,ap);} /* WT-CLINK */
static object LnkTLI63(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[63],&LnkLI63,1,ap);} /* WT-VS */
static object LnkTLI62(){return call_proc0(VV[62],&LnkLI62);} /* VS-PUSH */
static LnkT61(){ call_or_link(VV[61],&Lnk61);} /* C2EXPR */
static object LnkTLI60(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[60],&LnkLI60,1,ap);} /* WT1 */
static object LnkTLI59(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[59],&LnkLI59,1,ap);} /* WT-SWITCH-CASE */
static object LnkTLI58(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[58],&LnkLI58,ap);} /* UNWIND-EXIT */
static object LnkTLI57(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[57],&LnkLI57,1,ap);} /* C2TAGBODY-BODY */
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[56],&LnkLI56,1,ap);} /* C2TAGBODY-LOCAL */
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[55],&LnkLI55,1,ap);} /* C2TAGBODY-CLB */
static object LnkTLI54(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[54],&LnkLI54,1,ap);} /* C2TAGBODY-CCB */
static object LnkTLI53(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[53],&LnkLI53,1,ap);} /* ADD-OBJECT */
static object LnkTLI52(){return call_proc0(VV[52],&LnkLI52);} /* C1NIL */
static object LnkTLI51(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[51],&LnkLI51,1,ap);} /* ADD-LOOP-REGISTERS */
static object LnkTLI50(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[50],&LnkLI50,2,ap);} /* C1EXPR* */
static object LnkTLI49(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[49],&LnkLI49,ap);} /* MAKE-TAG */
static object LnkTLI48(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[48],&LnkLI48,ap);} /* MAKE-INFO */
static object LnkTLI47(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[47],&LnkLI47,1,ap);} /* ADD-REG1 */
static object LnkTLI46(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[46],&LnkLI46,2,ap);} /* JUMPS-TO-P */
static LnkT45(){ call_or_link(VV[45],&Lnk45);} /* STRUCTURE-SUBTYPE-P */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.