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

Diff of /gcl/lsp/mislib.c

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

revision 1.3 by camm, Fri Jul 12 22:00:48 2002 UTC revision 1.4 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 1  Line 1 
1    
2  #include "cmpinclude.h"  #include "cmpinclude.h"
3  #include "mislib.h"  #include "mislib.h"
4  init_mislib(){do_init(VV);}  void init_mislib(){do_init(VV);}
5  /*      macro definition for TIME       */  /*      macro definition for TIME       */
6    
7  static L1()  static void L1()
8  {register object *base=vs_base;  {register object *base=vs_base;
9          register object *sup=base+VM1; VC1          register object *sup=base+VM1; VC1
10          vs_reserve(VM1);          vs_reserve(VM1);
# Line 25  static object LI2(V3) Line 25  static object LI2(V3)
25    
26  object V3;  object V3;
27  {        VMB2 VMS2 VMV2  {        VMB2 VMS2 VMV2
28    goto TTL;
29  TTL:;  TTL:;
30          base[0]= (V3);          base[0]= (V3);
31          base[1]= small_fixnum(4);          base[1]= small_fixnum(4);
# Line 36  TTL:; Line 37  TTL:;
37          goto T1;}          goto T1;}
38          {object V5 = Cnil;          {object V5 = Cnil;
39          VMR2(V5)}          VMR2(V5)}
40    goto T1;
41  T1:;  T1:;
42          base[0]= (V3);          base[0]= (V3);
43          base[1]= small_fixnum(100);          base[1]= small_fixnum(100);
# Line 47  T1:; Line 49  T1:;
49          goto T6;}          goto T6;}
50          {object V7 = Ct;          {object V7 = Ct;
51          VMR2(V7)}          VMR2(V7)}
52    goto T6;
53  T6:;  T6:;
54          base[0]= (V3);          base[0]= (V3);
55          base[1]= small_fixnum(400);          base[1]= small_fixnum(400);
# Line 56  T6:; Line 59  T6:;
59          V8= vs_base[0];          V8= vs_base[0];
60          {object V9 = (number_compare(small_fixnum(0),V8)==0?Ct:Cnil);          {object V9 = (number_compare(small_fixnum(0),V8)==0?Ct:Cnil);
61          VMR2(V9)}          VMR2(V9)}
62            base[0]=base[0];
63            return Cnil;
64  }  }
65  /*      local entry for function NUMBER-OF-DAYS-FROM-1900       */  /*      local entry for function NUMBER-OF-DAYS-FROM-1900       */
66    
# Line 63  static object LI3(V11) Line 68  static object LI3(V11)
68    
69  object V11;  object V11;
70  {        VMB3 VMS3 VMV3  {        VMB3 VMS3 VMV3
71    goto TTL;
72  TTL:;  TTL:;
73          {object V12;          {object V12;
74          V12= one_minus((V11));          V12= one_minus((V11));
# Line 93  TTL:; Line 99  TTL:;
99          vs_top=sup;          vs_top=sup;
100          {object V15 = vs_base[0];          {object V15 = vs_base[0];
101          VMR3(V15)}}          VMR3(V15)}}
102            base[0]=base[0];
103            return Cnil;
104  }  }
105  /*      function definition for DECODE-UNIVERSAL-TIME   */  /*      function definition for DECODE-UNIVERSAL-TIME   */
106    
107  static L4()  static void L4()
108  {register object *base=vs_base;  {register object *base=vs_base;
109          register object *sup=base+VM4; VC4          register object *sup=base+VM4; VC4
110          vs_reserve(VM4);          vs_reserve(VM4);
# Line 110  static L4() Line 118  static L4()
118          V17=(base[1]);          V17=(base[1]);
119          vs_top=sup;          vs_top=sup;
120          goto T28;          goto T28;
121    goto T27;
122  T27:;  T27:;
123          V17= symbol_value(VV[9]);          V17= symbol_value(VV[9]);
124    goto T28;
125  T28:;  T28:;
126          {object V18;          {object V18;
127          object V19;          object V19;
# Line 186  T28:; Line 196  T28:;
196          V23= number_plus(VV[8],V26);          V23= number_plus(VV[8],V26);
197          {register object V27;          {register object V27;
198          V27= Cnil;          V27= Cnil;
199    goto T55;
200  T55:;  T55:;
201          V28= (*(LnkLI13))((V23));          V28= (*(LnkLI13))((V23));
202          V27= number_minus((V21),/* INLINE-ARGS */V28);          V27= number_minus((V21),/* INLINE-ARGS */V28);
# Line 193  T55:; Line 204  T55:;
204          goto T62;}          goto T62;}
205          V29= small_fixnum(366);          V29= small_fixnum(366);
206          goto T60;          goto T60;
207    goto T62;
208  T62:;  T62:;
209          V29= small_fixnum(365);          V29= small_fixnum(365);
210    goto T60;
211  T60:;  T60:;
212          if(!(number_compare((V27),V29)<0)){          if(!(number_compare((V27),V29)<0)){
213          goto T56;}          goto T56;}
214          V21= one_plus((V27));          V21= one_plus((V27));
215          goto T53;          goto T53;
216    goto T56;
217  T56:;  T56:;
218          V23= number_plus((V23),small_fixnum(1));          V23= number_plus((V23),small_fixnum(1));
219          goto T55;}          goto T55;}
220    goto T53;
221  T53:;  T53:;
222          if(((*(LnkLI14))((V23)))==Cnil){          if(((*(LnkLI14))((V23)))==Cnil){
223          goto T70;}          goto T70;}
# Line 219  T53:; Line 234  T53:;
234          base[10]= (V17);          base[10]= (V17);
235          vs_top=(vs_base=base+2)+9;          vs_top=(vs_base=base+2)+9;
236          return;          return;
237    goto T73;
238  T73:;  T73:;
239          if(!(number_compare((V21),small_fixnum(60))>0)){          if(!(number_compare((V21),small_fixnum(60))>0)){
240          goto T70;}          goto T70;}
241          V21= number_minus((V21),small_fixnum(1));          V21= number_minus((V21),small_fixnum(1));
242    goto T70;
243  T70:;  T70:;
244          {register object V30;          {register object V30;
245          V30= VV[12];          V30= VV[12];
246    goto T90;
247  T90:;  T90:;
248          if(!(number_compare((V21),car((V30)))<=0)){          if(!(number_compare((V21),car((V30)))<=0)){
249          goto T91;}          goto T91;}
250          V31 = make_fixnum(length((V30)));          V31 = make_fixnum(length((V30)));
251          V22= number_minus(small_fixnum(13),V31);          V22= number_minus(small_fixnum(13),V31);
252          goto T88;          goto T88;
253    goto T91;
254  T91:;  T91:;
255          V21= number_minus((V21),car((V30)));          V21= number_minus((V21),car((V30)));
256          V30= cdr((V30));          V30= cdr((V30));
257          goto T90;}          goto T90;}
258    goto T88;
259  T88:;  T88:;
260          base[2]= (V18);          base[2]= (V18);
261          base[3]= (V19);          base[3]= (V19);
# Line 265  static object LI5(V37,V36,V35,V34,V33,V3 Line 285  static object LI5(V37,V36,V35,V34,V33,V3
285          object V42;          object V42;
286          register object V43;          register object V43;
287          object V44;          object V44;
288            Vcs[0]=Vcs[0];
289            va_start(ap);
290          if(narg <6) too_few_arguments();          if(narg <6) too_few_arguments();
291          V38= V37;          V38= V37;
292          V39= V36;          V39= V36;
# Line 275  static object LI5(V37,V36,V35,V34,V33,V3 Line 297  static object LI5(V37,V36,V35,V34,V33,V3
297          narg = narg - 6;          narg = narg - 6;
298          if (narg <= 0) goto T110;          if (narg <= 0) goto T110;
299          else {          else {
         va_start(ap);  
300          V44= va_arg(ap,object);}          V44= va_arg(ap,object);}
301          --narg; goto T111;          --narg; goto T111;
302    goto T110;
303  T110:;  T110:;
304          V44= symbol_value(VV[9]);          V44= symbol_value(VV[9]);
305    goto T111;
306  T111:;  T111:;
307          V40= number_plus((V40),(V44));          V40= number_plus((V40),(V44));
308          base[0]= small_fixnum(0);          base[0]= small_fixnum(0);
# Line 329  T111:; Line 352  T111:;
352          V53= vs_base[0];          V53= vs_base[0];
353          vs_top=sup;          vs_top=sup;
354          goto T131;          goto T131;
355    goto T122;
356  T122:;  T122:;
357          V45= Cnil;          V45= Cnil;
358    goto T123;
359  T123:;  T123:;
360          V46= Cnil;          V46= Cnil;
361    goto T124;
362  T124:;  T124:;
363          V47= Cnil;          V47= Cnil;
364    goto T125;
365  T125:;  T125:;
366          V48= Cnil;          V48= Cnil;
367    goto T126;
368  T126:;  T126:;
369          V49= Cnil;          V49= Cnil;
370    goto T127;
371  T127:;  T127:;
372          V50= Cnil;          V50= Cnil;
373    goto T128;
374  T128:;  T128:;
375          V51= Cnil;          V51= Cnil;
376    goto T129;
377  T129:;  T129:;
378          V52= Cnil;          V52= Cnil;
379    goto T130;
380  T130:;  T130:;
381          V53= Cnil;          V53= Cnil;
382    goto T131;
383  T131:;  T131:;
384          base[0]= (V50);          base[0]= (V50);
385          base[1]= small_fixnum(100);          base[1]= small_fixnum(100);
# Line 361  T131:; Line 394  T131:;
394          goto T138;}          goto T138;}
395          V43= number_plus((V43),small_fixnum(100));          V43= number_plus((V43),small_fixnum(100));
396          goto T115;          goto T115;
397    goto T138;
398  T138:;  T138:;
399          V57= number_minus((V43),(V50));          V57= number_minus((V43),(V50));
400          if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){          if(!(number_compare(/* INLINE-ARGS */V57,small_fixnum(50))>=0)){
401          goto T115;}          goto T115;}
402          V43= number_minus((V43),small_fixnum(100));}          V43= number_minus((V43),small_fixnum(100));}
403    goto T115;
404  T115:;  T115:;
405          if(((*(LnkLI14))((V43)))==Cnil){          if(((*(LnkLI14))((V43)))==Cnil){
406          goto T145;}          goto T145;}
407          if(number_compare((V42),small_fixnum(2))>0){          if(number_compare((V42),small_fixnum(2))>0){
408          goto T144;}          goto T144;}
409    goto T145;
410  T145:;  T145:;
411          V41= number_minus((V41),small_fixnum(1));          V41= number_minus((V41),small_fixnum(1));
412    goto T144;
413  T144:;  T144:;
414          base[1]= (V41);          base[1]= (V41);
415          base[2]= (*(LnkLI13))((V43));          base[2]= (*(LnkLI13))((V43));
# Line 398  T144:; Line 435  T144:;
435          Lplus();          Lplus();
436          vs_top=sup;          vs_top=sup;
437          {object V60 = vs_base[0];          {object V60 = vs_base[0];
438          VMR5(V60)}}          VMR5(V60)}
439            va_end(ap);
440            base[0]=base[0];
441            return Cnil;}
442          }          }
443  static LnkT15(){ call_or_link(VV[15],&Lnk15);} /* GET-DECODED-TIME */  static void LnkT15(){ call_or_link(VV[15],(void **)&Lnk15);} /* GET-DECODED-TIME */
444  static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* LEAP-YEAR-P */  static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],(void **)&LnkLI14,1,ap);} /* LEAP-YEAR-P */
445  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* NUMBER-OF-DAYS-FROM-1900 */  static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],(void **)&LnkLI13,1,ap);} /* NUMBER-OF-DAYS-FROM-1900 */
446    
447  #ifdef SYSTEM_SPECIAL_INIT  #ifdef SYSTEM_SPECIAL_INIT
448  SYSTEM_SPECIAL_INIT  SYSTEM_SPECIAL_INIT

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

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