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

Diff of /gcl/lsp/gcl_mislib.c

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

revision 1.1.2.1 by camm, Sun Sep 14 02:30:35 2003 UTC revision 1.1.2.2 by camm, Tue Sep 23 18:39:19 2003 UTC
# Line 457  static void L6() Line 457  static void L6()
457          vs_top=(vs_base=base+4)+1;          vs_top=(vs_base=base+4)+1;
458          return;          return;
459  }  }
460  /*      function definition for COMPILE-FILE-PATHNAME   */  /*      local entry for function COMPILE-FILE-PATHNAME  */
461    
462  static void L7()  static object LI7(V63)
463  {register object *base=vs_base;  
464          register object *sup=base+VM7; VC7  object V63;
465          vs_reserve(VM7);  {        VMB7 VMS7 VMV7
         {object V62;  
         check_arg(1);  
         V62=(base[0]);  
         vs_top=sup;  
466          goto TTL;          goto TTL;
467  TTL:;  TTL:;
468          base[1]= VV[14];          base[0]= VV[14];
469          base[2]= (V62);          base[1]= (V63);
470          base[3]= VV[15];          base[2]= VV[15];
471          base[4]= VV[16];          base[3]= VV[16];
472          vs_top=(vs_base=base+1)+4;          vs_top=(vs_base=base+0)+4;
473          Lmake_pathname();          Lmake_pathname();
474          return;          vs_top=sup;
475          }          {object V64 = vs_base[0];
476            VMR7(V64)}
477            base[0]=base[0];
478            return Cnil;
479  }  }
480  /*      function definition for CONSTANTLY      */  /*      local entry for function CONSTANTLY     */
481    
482  static void L8()  static object LI9(V66)
483  {register object *base=vs_base;  
484          register object *sup=base+VM8; VC8  object V66;
485          vs_reserve(VM8);  {        VMB8 VMS8 VMV8
486          check_arg(1);          goto TTL;
487          base[0]=MMcons(base[0],Cnil);  TTL:;
488          vs_top=sup;          base[0]=MMcons((V66),Cnil);
489          base[1]=          {object V67 =
490          make_cclosure_new(LC10,Cnil,base[0],Cdata);          make_cclosure_new(LC12,Cnil,base[0],Cdata);
491          vs_top=(vs_base=base+1)+1;          VMR8(V67)}
492          return;          base[0]=base[0];
493            return Cnil;
494  }  }
495  /*      function definition for COMPLEMENT      */  /*      local entry for function COMPLEMENT     */
496    
497  static void L9()  static object LI11(V69)
498  {register object *base=vs_base;  
499          register object *sup=base+VM9; VC9  object V69;
500          vs_reserve(VM9);  {        VMB9 VMS9 VMV9
501          check_arg(1);          goto TTL;
502          base[0]=MMcons(base[0],Cnil);  TTL:;
503          vs_top=sup;          base[0]=MMcons((V69),Cnil);
504          base[1]=          {object V70 =
505          make_cclosure_new(LC11,Cnil,base[0],Cdata);          make_cclosure_new(LC13,Cnil,base[0],Cdata);
506          vs_top=(vs_base=base+1)+1;          VMR9(V70)}
507          return;          base[0]=base[0];
508            return Cnil;
509  }  }
510  /*      local function CLOSURE  */  /*      local function CLOSURE  */
511    
512  static void LC11(base0)  static void LC13(base0)
513  register object *base0;  register object *base0;
514  {       register object *base=vs_base;  {       register object *base=vs_base;
515          register object *sup=base+VM10; VC10          register object *sup=base+VM10; VC10
516          vs_reserve(VM10);          vs_reserve(VM10);
517          {object V63;          {object V71;
518          vs_top[0]=Cnil;          vs_top[0]=Cnil;
519          {object *p=vs_top;          {object *p=vs_top;
520           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
521          V63=(base[0]);          V71=(base[0]);
522          vs_top=sup;          vs_top=sup;
523          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
524          {object V65;          {object V73;
525          V65= (V63);          V73= (V71);
526           vs_top=base+2;           vs_top=base+2;
527           while(!endp(V65))           while(!endp(V73))
528           {vs_push(car(V65));V65=cdr(V65);}           {vs_push(car(V73));V73=cdr(V73);}
529          vs_base=base+2;}          vs_base=base+2;}
530          super_funcall_no_event(base[1]);          super_funcall_no_event(base[1]);
531          vs_top=sup;          vs_top=sup;
532          V64= vs_base[0];          V72= vs_base[0];
533          base[1]= ((V64)==Cnil?Ct:Cnil);          base[1]= ((V72)==Cnil?Ct:Cnil);
534          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;
535          return;          return;
536          }          }
537  }  }
538  /*      local function CLOSURE  */  /*      local function CLOSURE  */
539    
540  static void LC10(base0)  static void LC12(base0)
541  register object *base0;  register object *base0;
542  {       register object *base=vs_base;  {       register object *base=vs_base;
543          register object *sup=base+VM11; VC11          register object *sup=base+VM11; VC11
544          vs_reserve(VM11);          vs_reserve(VM11);
545          {object V66;          {object V74;
546          vs_top[0]=Cnil;          vs_top[0]=Cnil;
547          {object *p=vs_top;          {object *p=vs_top;
548           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}           for(;p>vs_base;p--)p[-1]=MMcons(p[-1],p[0]);}
549          V66=(base[0]);          V74=(base[0]);
550          vs_top=sup;          vs_top=sup;
551          base[1]= (base0[0]->c.c_car);          base[1]= (base0[0]->c.c_car);
552          vs_top=(vs_base=base+1)+1;          vs_top=(vs_base=base+1)+1;

Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.1.2.2

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