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

Diff of /gcl/lsp/info.c

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

revision 1.8 by camm, Tue Sep 24 19:01:45 2002 UTC revision 1.9 by camm, Mon Oct 14 05:24:43 2002 UTC
# Line 864  TTL:; Line 864  TTL:;
864  goto T292;  goto T292;
865  T292:;  T292:;
866          setq(VV[29],symbol_value(VV[30]));          setq(VV[29],symbol_value(VV[30]));
867          base[1]= symbol_value(VV[30]);          {object V95;
868          base[2]= VV[32];          base[2]= symbol_value(VV[30]);
869          vs_top=(vs_base=base+1)+2;          base[3]= VV[31];
870            vs_top=(vs_base=base+2)+2;
871          (void) (*Lnk101)();          (void) (*Lnk101)();
872          vs_top=sup;          vs_top=sup;
873          V95= vs_base[0];          V95= vs_base[0];
874          setq(VV[31],make_cons(V95,symbol_value(VV[31])));          setq(VV[32],make_cons((V95),symbol_value(VV[32])));}
875          base[1]= symbol_value(VV[31]);          base[1]= symbol_value(VV[32]);
876          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
877          (void) (*Lnk105)();          (void) (*Lnk105)();
878          vs_top=sup;          vs_top=sup;
879          setq(VV[31],vs_base[0]);          setq(VV[32],vs_base[0]);
880  goto T291;  goto T291;
881  T291:;  T291:;
882          if(!(equal((V92),VV[33]))){          if(!(equal((V92),VV[33]))){
# Line 884  T291:; Line 885  T291:;
885  goto T303;  goto T303;
886  T303:;  T303:;
887          base[1]= (V92);          base[1]= (V92);
888          base[2]= symbol_value(VV[31]);          base[2]= symbol_value(VV[32]);
889          base[3]= VV[35];          base[3]= VV[35];
890          base[4]= Cnil;          base[4]= Cnil;
891          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+1)+4;

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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