/[gcl]/gcl/lsp/top.c
ViewVC logotype

Diff of /gcl/lsp/top.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13.4.1.4.1 by camm, Tue Sep 2 20:18:18 2003 UTC revision 1.13.4.1.4.2 by camm, Thu Sep 4 02:11:58 2003 UTC
# Line 3366  T1321:; Line 3366  T1321:;
3366          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));          (VV[130]->s.s_dbind)= make_cons(V277,(VV[130]->s.s_dbind));
3367          goto T1320;          goto T1320;
3368  T1320:;  T1320:;
3369            if((VV[142])->s.s_dbind!=OBJNULL){
3370            goto T1334;}
3371          base[2]= VV[143];          base[2]= VV[143];
3372          base[3]= Cnil;          base[3]= Cnil;
3373          base[4]= VV[144];          base[4]= VV[144];
# Line 3388  T1320:; Line 3390  T1320:;
3390          Lnamestring();          Lnamestring();
3391          vs_top=sup;          vs_top=sup;
3392          (VV[142]->s.s_dbind)= vs_base[0];          (VV[142]->s.s_dbind)= vs_base[0];
3393            goto T1334;
3394    T1334:;
3395          base[0]= VV[142];          base[0]= VV[142];
3396          base[1]= VV[146];          base[1]= VV[146];
3397          vs_top=(vs_base=base+0)+2;          vs_top=(vs_base=base+0)+2;
# Line 3407  T1320:; Line 3411  T1320:;
3411          V272= Cnil;}          V272= Cnil;}
3412          vs_top=sup;          vs_top=sup;
3413          if(((V272))==Cnil){          if(((V272))==Cnil){
3414          goto T1349;}          goto T1351;}
3415          bds_bind(VV[15],Cnil);          bds_bind(VV[15],Cnil);
3416          base[1]= (VV[16]->s.s_dbind);          base[1]= (VV[16]->s.s_dbind);
3417          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
# Line 3419  T1320:; Line 3423  T1320:;
3423          (void) (*Lnk215)();          (void) (*Lnk215)();
3424          bds_unwind1;          bds_unwind1;
3425          return;          return;
3426          goto T1349;          goto T1351;
3427  T1349:;  T1351:;
3428          base[0]= Cnil;          base[0]= Cnil;
3429          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
3430          return;}}          return;}}
# Line 3444  TTL:; Line 3448  TTL:;
3448          if(nlj_active)          if(nlj_active)
3449          {nlj_active=FALSE;frs_pop();          {nlj_active=FALSE;frs_pop();
3450          vs_top=sup;          vs_top=sup;
3451          goto T1358;}          goto T1360;}
3452          else{          else{
3453          base[5]= (V278);          base[5]= (V278);
3454          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
# Line 3459  TTL:; Line 3463  TTL:;
3463          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3464          Lread_line();          Lread_line();
3465          vs_top=sup;          vs_top=sup;
3466          goto T1367;          goto T1369;
3467  T1367:;  T1369:;
3468          base[6]= base[4];          base[6]= base[4];
3469          base[7]= Cnil;          base[7]= Cnil;
3470          base[8]= base[1];          base[8]= base[1];
# Line 3469  T1367:; Line 3473  T1367:;
3473          vs_top=sup;          vs_top=sup;
3474          base[2]= vs_base[0];          base[2]= vs_base[0];
3475          if(!((base[1])==(base[2]))){          if(!((base[1])==(base[2]))){
3476          goto T1374;}          goto T1376;}
3477          base[6]= Cnil;          base[6]= Cnil;
3478          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3479          goto T1363;          goto T1365;
3480          goto T1374;          goto T1376;
3481  T1374:;  T1376:;
3482          base[6]= base[2];          base[6]= base[2];
3483          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3484          Leval();          Leval();
3485          vs_top=sup;          vs_top=sup;
3486          goto T1367;          goto T1369;
3487          goto T1363;          goto T1365;
3488  T1363:;  T1365:;
3489          active=FALSE;}          active=FALSE;}
3490          base[5]=Cnil;          base[5]=Cnil;
3491          while(vs_base<vs_top)          while(vs_base<vs_top)
# Line 3489  T1363:; Line 3493  T1363:;
3493          vs_top=sup;          vs_top=sup;
3494          nlj_active=FALSE;frs_pop();          nlj_active=FALSE;frs_pop();
3495          if((base[4])==Cnil){          if((base[4])==Cnil){
3496          goto T1379;}          goto T1381;}
3497          base[6]= base[4];          base[6]= base[4];
3498          vs_top=(vs_base=base+6)+1;          vs_top=(vs_base=base+6)+1;
3499          Lclose();          Lclose();
3500          vs_top=sup;          vs_top=sup;
3501          goto T1379;          goto T1381;
3502  T1379:;  T1381:;
3503          vs_base=vs_top=base+6;          vs_base=vs_top=base+6;
3504          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));          for(p= base[5];!endp(p);p=MMcdr(p))vs_push(MMcar(p));
3505          if(active)unwind(fr,tag);else{          if(active)unwind(fr,tag);else{
# Line 3504  T1379:; Line 3508  T1379:;
3508          Lby();          Lby();
3509          vs_top=sup;          vs_top=sup;
3510          frs_pop();}          frs_pop();}
3511          goto T1358;          goto T1360;
3512  T1358:;  T1360:;
3513          base[4]= small_fixnum(1);          base[4]= small_fixnum(1);
3514          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
3515          Lby();          Lby();

Legend:
Removed from v.1.13.4.1.4.1  
changed lines
  Added in v.1.13.4.1.4.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26