/[gcl]/gcl/o/main.c
ViewVC logotype

Diff of /gcl/o/main.c

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

revision 1.67 by camm, Sun Nov 6 18:07:37 2005 UTC revision 1.68 by camm, Wed Nov 30 16:22:25 2005 UTC
# Line 775  FFN(siLcatch_fatal)(int i) { Line 775  FFN(siLcatch_fatal)(int i) {
775    return Cnil;    return Cnil;
776  }  }
777    
778  static void  /* static void */
779  reset_cstack_limit(int arg) {  /* reset_cstack_limit(int arg) { */
780  #if CSTACK_DIRECTION==-1  /* #if CSTACK_DIRECTION==-1 */
781    if (&arg > cs_base - cssize/sizeof(*cs_base) + 16)  /*   if (&arg > cs_base - cssize/sizeof(*cs_base) + 16) */
782  #else  /* #else */
783    if (&arg < cs_base + cssize/sizeof(*cs_base) - 16)  /*   if (&arg < cs_base + cssize/sizeof(*cs_base) - 16) */
784  #endif  /* #endif */
785      cs_limit = (void *)CSTACK_ADDRESS + CSTACK_DIRECTION * cssize + 1;  /*     cs_limit = (void *)CSTACK_ADDRESS + CSTACK_DIRECTION * cssize + 1; */
786    else  /*   else */
787        error ( "can't reset cs_limit" );  /*       error ( "can't reset cs_limit" ); */
788  }  /* } */
789    
790  LFD(siLreset_stack_limits)(void)  LFD(siLreset_stack_limits)(void)
791  {  {
# Line 822  LFD(siLreset_stack_limits)(void) Line 822  LFD(siLreset_stack_limits)(void)
822   }   }
823  #endif  #endif
824    
825    reset_cstack_limit(i);  /*   reset_cstack_limit(i); */
826    vs_base[0] = Cnil;    vs_base[0] = Cnil;
827  }  }
828    

Legend:
Removed from v.1.67  
changed lines
  Added in v.1.68

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