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

Diff of /gcl/lsp/serror.c

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

revision 1.5 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.6 by camm, Fri Aug 2 22:23:59 2002 UTC
# Line 219  T60:; Line 219  T60:;
219          V31= aref1(symbol_value(VV[14]),V29);          V31= aref1(symbol_value(VV[14]),V29);
220          V28= (          V28= (
221          V32 = /* INLINE-ARGS */V31,          V32 = /* INLINE-ARGS */V31,
222          (type_of(V32) == t_sfun ?(*(object (*)())((V32)->sfn.sfn_self)):          (type_of(V32) == t_sfun ?(*((V32)->sfn.sfn_self)):
223          (fcall.argd=1,type_of(V32)==t_vfun) ?          (fcall.argd=1,type_of(V32)==t_vfun) ?
224          (*(object (*)())((V32)->sfn.sfn_self)):          (*((V32)->sfn.sfn_self)):
225          (fcall.fun=(V32),fcalln))((V26)));          (fcall.fun=(V32),fcalln))((V26)));
226          if(((V28))==Cnil){          if(((V28))==Cnil){
227          goto T64;}          goto T64;}
# Line 233  T60:; Line 233  T60:;
233          unwind(fr,(V28));}          unwind(fr,(V28));}
234  goto T64;  goto T64;
235  T64:;  T64:;
236          V29= (V29)+1;          V29= (long)(V29)+1;
237          goto T59;}}          goto T59;}}
238  goto T54;  goto T54;
239  T54:;  T54:;
# Line 336  TTL:; Line 336  TTL:;
336          return;          return;
337          }          }
338  }  }
339  /*      function definition for G1031   */  /*      function definition for G1034   */
340    
341  static void L8()  static void L8()
342  {register object *base=vs_base;  {register object *base=vs_base;
# Line 368  TTL:; Line 368  TTL:;
368          return;          return;
369          }          }
370  }  }
371  /*      function definition for G1032   */  /*      function definition for G1035   */
372    
373  static void L10()  static void L10()
374  {register object *base=vs_base;  {register object *base=vs_base;
# Line 400  TTL:; Line 400  TTL:;
400          return;          return;
401          }          }
402  }  }
403  /*      function definition for G1033   */  /*      function definition for G1036   */
404    
405  static void L12()  static void L12()
406  {register object *base=vs_base;  {register object *base=vs_base;
# Line 432  TTL:; Line 432  TTL:;
432          return;          return;
433          }          }
434  }  }
435  /*      function definition for G1034   */  /*      function definition for G1037   */
436    
437  static void L14()  static void L14()
438  {register object *base=vs_base;  {register object *base=vs_base;
# Line 464  TTL:; Line 464  TTL:;
464          return;          return;
465          }          }
466  }  }
467  /*      function definition for G1035   */  /*      function definition for G1038   */
468    
469  static void L16()  static void L16()
470  {register object *base=vs_base;  {register object *base=vs_base;
# Line 496  TTL:; Line 496  TTL:;
496          return;          return;
497          }          }
498  }  }
499  /*      function definition for G1036   */  /*      function definition for G1039   */
500    
501  static void L18()  static void L18()
502  {register object *base=vs_base;  {register object *base=vs_base;
# Line 528  TTL:; Line 528  TTL:;
528          return;          return;
529          }          }
530  }  }
531  /*      function definition for G1037   */  /*      function definition for G1040   */
532    
533  static void L20()  static void L20()
534  {register object *base=vs_base;  {register object *base=vs_base;
# Line 560  TTL:; Line 560  TTL:;
560          return;          return;
561          }          }
562  }  }
563  /*      function definition for G1038   */  /*      function definition for G1041   */
564    
565  static void L22()  static void L22()
566  {register object *base=vs_base;  {register object *base=vs_base;
# Line 592  TTL:; Line 592  TTL:;
592          return;          return;
593          }          }
594  }  }
595  /*      function definition for G1039   */  /*      function definition for G1042   */
596    
597  static void L24()  static void L24()
598  {register object *base=vs_base;  {register object *base=vs_base;
# Line 624  TTL:; Line 624  TTL:;
624          return;          return;
625          }          }
626  }  }
627  /*      function definition for G1040   */  /*      function definition for G1043   */
628    
629  static void L26()  static void L26()
630  {register object *base=vs_base;  {register object *base=vs_base;
# Line 656  TTL:; Line 656  TTL:;
656          return;          return;
657          }          }
658  }  }
659  /*      function definition for G1041   */  /*      function definition for G1044   */
660    
661  static void L28()  static void L28()
662  {register object *base=vs_base;  {register object *base=vs_base;
# Line 688  TTL:; Line 688  TTL:;
688          return;          return;
689          }          }
690  }  }
691  /*      function definition for G1042   */  /*      function definition for G1045   */
692    
693  static void L30()  static void L30()
694  {register object *base=vs_base;  {register object *base=vs_base;

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

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