/[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.6 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.7 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 58  T6:; Line 58  T6:;
58  goto T15;  goto T15;
59  T15:;  T15:;
60          V1= (          V1= (
61          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(object (*)())(((VV[17]->s.s_dbind))->sfn.sfn_self)):          (type_of((VV[17]->s.s_dbind)) == t_sfun ?(*(((VV[17]->s.s_dbind))->sfn.sfn_self)):
62          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());          (fcall.fun=((VV[17]->s.s_dbind)),fcall.argd=0,fcalln))());
63          frs_pop();}          frs_pop();}
64  goto T3;  goto T3;
# Line 450  T187:; Line 450  T187:;
450          vs_base=vs_top;          vs_base=vs_top;
451          (void) (*Lnk159)();          (void) (*Lnk159)();
452          vs_top=sup;          vs_top=sup;
453          base[25]= make_fixnum(length(CMPcdr((VV[36]->s.s_dbind))));          base[25]= make_fixnum((long)length(CMPcdr((VV[36]->s.s_dbind))));
454          vs_top=(vs_base=base+25)+1;          vs_top=(vs_base=base+25)+1;
455          (void) (*Lnk160)();          (void) (*Lnk160)();
456          vs_top=sup;          vs_top=sup;
# Line 857  T324:; Line 857  T324:;
857          vs_top=sup;          vs_top=sup;
858          bds_unwind1;          bds_unwind1;
859          princ_char(10,VV[27]);          princ_char(10,VV[27]);
860          if(!((length((VV[71]->s.s_dbind)))>(0))){          if(!(((long)length((VV[71]->s.s_dbind)))>(0))){
861          goto T365;}          goto T365;}
862          base[4]= (VV[27]->s.s_dbind);          base[4]= (VV[27]->s.s_dbind);
863          base[5]= VV[72];          base[5]= VV[72];
# Line 1153  T452:; Line 1153  T452:;
1153  goto T453;  goto T453;
1154  T453:;  T453:;
1155          {object V78;          {object V78;
1156          V78= make_fixnum(length((VV[36]->s.s_dbind)));          V78= make_fixnum((long)length((VV[36]->s.s_dbind)));
1157          if(!(number_compare((V77),small_fixnum(0))>=0)){          if(!(number_compare((V77),small_fixnum(0))>=0)){
1158          goto T456;}          goto T456;}
1159          if(!(number_compare((V77),(V78))<0)){          if(!(number_compare((V77),(V78))<0)){
# Line 1368  T539:; Line 1368  T539:;
1368          V90= (VV[48]->s.s_dbind);          V90= (VV[48]->s.s_dbind);
1369  goto T540;  goto T540;
1370  T540:;  T540:;
1371          if(!((length((V89)))==(3))){          if(!(((long)length((V89)))==(3))){
1372          goto T544;}          goto T544;}
1373          goto T543;          goto T543;
1374  goto T544;  goto T544;
# Line 2841  T1093:; Line 2841  T1093:;
2841  goto T1092;  goto T1092;
2842  T1092:;  T1092:;
2843          {long V242;          {long V242;
2844          V242= ((V241))->v.v_fillp;          V242= (long)((V241))->v.v_fillp;
2845          if(!((V242)>(0))){          if(!((V242)>(0))){
2846          goto T1099;}          goto T1099;}
2847          if((((V241))->ust.ust_self[(V242)-(1)])==(47)){          if((((V241))->ust.ust_self[(long)(V242)-(1)])==(47)){
2848          goto T1097;}          goto T1097;}
2849  goto T1099;  goto T1099;
2850  T1099:;  T1099:;
# Line 3274  TTL:; Line 3274  TTL:;
3274          V273= Cnil;          V273= Cnil;
3275  goto T1264;  goto T1264;
3276  T1264:;  T1264:;
3277          V272= (V272)-(1);          V272= (long)(V272)-(1);
3278          if(!((V272)<(0))){          if(!((V272)<(0))){
3279          goto T1269;}          goto T1269;}
3280          goto T1262;          goto T1262;
# Line 3547  static void LnkT206(){ call_or_link(VV[2 Line 3547  static void LnkT206(){ call_or_link(VV[2
3547  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */  static void LnkT205(){ call_or_link(VV[205],(void **)&Lnk205);} /* COERCE-SLASH-TERMINATED */
3548  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */  static void LnkT204(){ call_or_link(VV[204],(void **)&Lnk204);} /* PACKAGE-SIZE */
3549  static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */  static void LnkT203(){ call_or_link(VV[203],(void **)&Lnk203);} /* BREAK-GO */
3550  static object  LnkTLI201(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[201],(void **)&LnkLI201,ap);} /* SEARCH */  static object  LnkTLI201(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[201],(void **)&LnkLI201,ap);va_end(ap);return V1;} /* SEARCH */
3551  static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */  static void LnkT200(){ call_or_link(VV[200],(void **)&Lnk200);} /* INTERNAL-SUPER-GO */
3552  static object  LnkTLI199(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[199],(void **)&LnkLI199,2,ap);} /* LIST-DELQ */  static object  LnkTLI199(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[199],(void **)&LnkLI199,2,ap);va_end(ap);return V1;} /* LIST-DELQ */
3553  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */  static void LnkT198(){ call_or_link(VV[198],(void **)&Lnk198);} /* IHS-NOT-INTERPRETED-ENV */
3554  static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */  static void LnkT197(){ call_or_link(VV[197],(void **)&Lnk197);} /* COMPILED-FUNCTION-NAME */
3555  static object  LnkTLI195(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[195],(void **)&LnkLI195,ap);} /* REMOVE */  static object  LnkTLI195(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[195],(void **)&LnkLI195,ap);va_end(ap);return V1;} /* REMOVE */
3556  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */  static void LnkT192(){ call_or_link(VV[192],(void **)&Lnk192);} /* SPICEP */
3557  static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */  static void LnkT191(){ call_or_link(VV[191],(void **)&Lnk191);} /* FRS-TAG */
3558  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */  static void LnkT189(){ call_or_link(VV[189],(void **)&Lnk189);} /* FRS-CLASS */
3559  static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */  static void LnkT188(){ call_or_link(VV[188],(void **)&Lnk188);} /* FRS-VS */
3560  static object  LnkTLI187(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[187],(void **)&LnkLI187,1,ap);} /* FRS-KIND */  static object  LnkTLI187(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[187],(void **)&LnkLI187,1,ap);va_end(ap);return V1;} /* FRS-KIND */
3561  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */  static void LnkT183(){ call_or_link(VV[183],(void **)&Lnk183);} /* IHS-FUN */
3562  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */  static void LnkT182(){ call_or_link(VV[182],(void **)&Lnk182);} /* FRS-IHS */
3563  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */  static void LnkT181(){ call_or_link(VV[181],(void **)&Lnk181);} /* BDS-VAL */
3564  static object  LnkTLI180(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[180],(void **)&LnkLI180,1,ap);} /* PRINT-FRS */  static object  LnkTLI180(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[180],(void **)&LnkLI180,1,ap);va_end(ap);return V1;} /* PRINT-FRS */
3565  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */  static void LnkT179(){ call_or_link(VV[179],(void **)&Lnk179);} /* BDS-VAR */
3566  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */  static void LnkT178(){ call_or_link(VV[178],(void **)&Lnk178);} /* FRS-BDS */
3567  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */  static void LnkT177(){ call_or_link(VV[177],(void **)&Lnk177);} /* BREAK-VS */
3568  static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */  static void LnkT176(){ call_or_link(VV[176],(void **)&Lnk176);} /* VS */
3569  static object  LnkTLI175(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[175],(void **)&LnkLI175,1,ap);} /* PRINT-IHS */  static object  LnkTLI175(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[175],(void **)&LnkLI175,1,ap);va_end(ap);return V1;} /* PRINT-IHS */
3570  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */  static void LnkT174(){ call_or_link(VV[174],(void **)&Lnk174);} /* IHS-VS */
3571  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */  static void LnkT173(){ call_or_link(VV[173],(void **)&Lnk173);} /* BREAK-PREVIOUS */
3572  static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */  static void LnkT172(){ call_or_link(VV[172],(void **)&Lnk172);} /* IHS-FNAME */
3573  static object  LnkTLI171(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[171],(void **)&LnkLI171,1,ap);} /* IHS-VISIBLE */  static object  LnkTLI171(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[171],(void **)&LnkLI171,1,ap);va_end(ap);return V1;} /* IHS-VISIBLE */
3574  static object  LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */  static object  LnkTLI170(){return call_proc0(VV[170],(void **)&LnkLI170);} /* SET-ENV */
3575  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */  static void LnkT169(){ call_or_link(VV[169],(void **)&Lnk169);} /* COMPLETE-PROP */
3576  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */  static void LnkT168(){ call_or_link(VV[168],(void **)&Lnk168);} /* BREAK-LEVEL */

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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