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

Diff of /gcl/lsp/predlib.c

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

revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.5 by camm, Fri Aug 2 22:23:58 2002 UTC
# Line 102  T1:; Line 102  T1:;
102          vs_top=(vs_base=base+5)+1;          vs_top=(vs_base=base+5)+1;
103          return;          return;
104  }  }
105  /*      function definition for G1024   */  /*      function definition for G1027   */
106    
107  static void L2()  static void L2()
108  {register object *base=vs_base;  {register object *base=vs_base;
# Line 116  TTL:; Line 116  TTL:;
116          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
117          return;          return;
118  }  }
119  /*      function definition for G1025   */  /*      function definition for G1028   */
120    
121  static void L3()  static void L3()
122  {register object *base=vs_base;  {register object *base=vs_base;
# Line 130  TTL:; Line 130  TTL:;
130          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
131          return;          return;
132  }  }
133  /*      function definition for G1026   */  /*      function definition for G1029   */
134    
135  static void L4()  static void L4()
136  {register object *base=vs_base;  {register object *base=vs_base;
# Line 147  TTL:; Line 147  TTL:;
147          return;          return;
148          }          }
149  }  }
150  /*      function definition for G1027   */  /*      function definition for G1030   */
151    
152  static void L5()  static void L5()
153  {register object *base=vs_base;  {register object *base=vs_base;
# Line 181  T49:; Line 181  T49:;
181          return;          return;
182          }          }
183  }  }
184  /*      function definition for G1028   */  /*      function definition for G1031   */
185    
186  static void L6()  static void L6()
187  {register object *base=vs_base;  {register object *base=vs_base;
# Line 211  T55:; Line 211  T55:;
211          return;          return;
212          }          }
213  }  }
214  /*      function definition for G1029   */  /*      function definition for G1032   */
215    
216  static void L7()  static void L7()
217  {register object *base=vs_base;  {register object *base=vs_base;
# Line 225  TTL:; Line 225  TTL:;
225          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
226          return;          return;
227  }  }
228  /*      function definition for G1030   */  /*      function definition for G1033   */
229    
230  static void L8()  static void L8()
231  {register object *base=vs_base;  {register object *base=vs_base;
# Line 239  TTL:; Line 239  TTL:;
239          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
240          return;          return;
241  }  }
242  /*      function definition for G1031   */  /*      function definition for G1034   */
243    
244  static void L9()  static void L9()
245  {register object *base=vs_base;  {register object *base=vs_base;
# Line 253  TTL:; Line 253  TTL:;
253          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
254          return;          return;
255  }  }
256  /*      function definition for G1032   */  /*      function definition for G1035   */
257    
258  static void L10()  static void L10()
259  {register object *base=vs_base;  {register object *base=vs_base;
# Line 267  TTL:; Line 267  TTL:;
267          vs_top=(vs_base=base+0)+1;          vs_top=(vs_base=base+0)+1;
268          return;          return;
269  }  }
270  /*      function definition for G1033   */  /*      function definition for G1036   */
271    
272  static void L11()  static void L11()
273  {register object *base=vs_base;  {register object *base=vs_base;
# Line 296  T59:; Line 296  T59:;
296          return;          return;
297          }          }
298  }  }
299  /*      function definition for G1034   */  /*      function definition for G1037   */
300    
301  static void L12()  static void L12()
302  {register object *base=vs_base;  {register object *base=vs_base;
# Line 318  T63:; Line 318  T63:;
318          return;          return;
319          }          }
320  }  }
321  /*      function definition for G1035   */  /*      function definition for G1038   */
322    
323  static void L13()  static void L13()
324  {register object *base=vs_base;  {register object *base=vs_base;
# Line 340  T66:; Line 340  T66:;
340          return;          return;
341          }          }
342  }  }
343  /*      function definition for G1036   */  /*      function definition for G1039   */
344    
345  static void L14()  static void L14()
346  {register object *base=vs_base;  {register object *base=vs_base;
# Line 362  T69:; Line 362  T69:;
362          return;          return;
363          }          }
364  }  }
365  /*      function definition for G1037   */  /*      function definition for G1040   */
366    
367  static void L15()  static void L15()
368  {register object *base=vs_base;  {register object *base=vs_base;
# Line 384  T72:; Line 384  T72:;
384          return;          return;
385          }          }
386  }  }
387  /*      function definition for G1038   */  /*      function definition for G1041   */
388    
389  static void L16()  static void L16()
390  {register object *base=vs_base;  {register object *base=vs_base;
# Line 2489  T1050:; Line 2489  T1050:;
2489          if((V171!= VV[41]))goto T1057;          if((V171!= VV[41]))goto T1057;
2490          {register object V172;          {register object V172;
2491          register object V173;          register object V173;
2492          V174 = make_fixnum(length((V168)));          V174 = make_fixnum((long)length((V168)));
2493          V173= one_minus(V174);          V173= one_minus(V174);
2494          V172= Cnil;          V172= Cnil;
2495  goto T1060;  goto T1060;
# Line 2525  T1070:; Line 2525  T1070:;
2525          {register object V177;          {register object V177;
2526          register object V178;          register object V178;
2527          register object V179;          register object V179;
2528          V180 = make_fixnum(length((V168)));          V180 = make_fixnum((long)length((V168)));
2529          V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180));          V177= (VFUN_NARGS=2,(*(LnkLI98))((V169),V180));
2530          V179= make_fixnum(length((V168)));          V179= make_fixnum((long)length((V168)));
2531          V178= small_fixnum(0);          V178= small_fixnum(0);
2532  goto T1083;  goto T1083;
2533  T1083:;  T1083:;
# Line 2689  T1126:; Line 2689  T1126:;
2689          return;          return;
2690          }          }
2691  }  }
2692  static object  LnkTLI100(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[100],(void **)&LnkLI100,2,ap);} /* COERCE */  static object  LnkTLI100(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[100],(void **)&LnkLI100,2,ap);va_end(ap);return V1;} /* COERCE */
2693  static object  LnkTLI98(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[98],(void **)&LnkLI98,ap);} /* MAKE-SEQUENCE */  static object  LnkTLI98(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_vproc(VV[98],(void **)&LnkLI98,ap);va_end(ap);return V1;} /* MAKE-SEQUENCE */
2694  static object  LnkTLI97(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[97],(void **)&LnkLI97,2,ap);} /* SUB-INTERVAL-P */  static object  LnkTLI97(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[97],(void **)&LnkLI97,2,ap);va_end(ap);return V1;} /* SUB-INTERVAL-P */
2695  static object  LnkTLI96(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[96],(void **)&LnkLI96,1,ap);} /* KNOWN-TYPE-P */  static object  LnkTLI96(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[96],(void **)&LnkLI96,1,ap);va_end(ap);return V1;} /* KNOWN-TYPE-P */
2696  static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */  static void LnkT95(){ call_or_link(VV[95],(void **)&Lnk95);} /* SUBTYPEP */
2697  static object  LnkTLI94(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[94],(void **)&LnkLI94,1,ap);} /* NORMALIZE-TYPE */  static object  LnkTLI94(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[94],(void **)&LnkLI94,1,ap);va_end(ap);return V1;} /* NORMALIZE-TYPE */
2698  static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */  static void LnkT93(){ call_or_link(VV[93],(void **)&Lnk93);} /* STRUCTURE-SUBTYPE-P */
2699  static object  LnkTLI92(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[92],(void **)&LnkLI92,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */  static object  LnkTLI92(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[92],(void **)&LnkLI92,1,ap);va_end(ap);return V1;} /* BEST-ARRAY-ELEMENT-TYPE */
2700  static object  LnkTLI91(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[91],(void **)&LnkLI91,1,ap);} /* SIMPLE-ARRAY-P */  static object  LnkTLI91(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[91],(void **)&LnkLI91,1,ap);va_end(ap);return V1;} /* SIMPLE-ARRAY-P */
2701  static object  LnkTLI86(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[86],(void **)&LnkLI86,1,ap);} /* ARRAY-DIMENSIONS */  static object  LnkTLI86(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[86],(void **)&LnkLI86,1,ap);va_end(ap);return V1;} /* ARRAY-DIMENSIONS */
2702  static object  LnkTLI85(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[85],(void **)&LnkLI85,2,ap);} /* MATCH-DIMENSIONS */  static object  LnkTLI85(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[85],(void **)&LnkLI85,2,ap);va_end(ap);return V1;} /* MATCH-DIMENSIONS */
2703  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */  static void LnkT81(){ call_or_link(VV[81],(void **)&Lnk81);} /* REALP */
2704  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */  static void LnkT80(){ call_or_link(VV[80],(void **)&Lnk80);} /* RATIONALP */
2705  static object  LnkTLI79(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[79],(void **)&LnkLI79,2,ap);} /* IN-INTERVAL-P */  static object  LnkTLI79(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[79],(void **)&LnkLI79,2,ap);va_end(ap);return V1;} /* IN-INTERVAL-P */
2706  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */  static void LnkT76(){ call_or_link(VV[76],(void **)&Lnk76);} /* TYPEP */
2707  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */  static void LnkT75(){ call_or_link(VV[75],(void **)&Lnk75);} /* ARRAY-HAS-FILL-POINTER-P */
2708  static object  LnkTLI74(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[74],(void **)&LnkLI74,1,ap);} /* FIND-DOCUMENTATION */  static object  LnkTLI74(va_alist)va_dcl{object V1;va_list ap;va_start(ap);V1=call_proc(VV[74],(void **)&LnkLI74,1,ap);va_end(ap);return V1;} /* FIND-DOCUMENTATION */
2709    
2710  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
2711  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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