/[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.8 by camm, Sun Jan 6 07:40:25 2002 UTC revision 1.9 by camm, Sun Feb 3 18:44:08 2002 UTC
# Line 221  char **argv, **envp; Line 221  char **argv, **envp;
221  #endif  #endif
222  #ifdef RLIMIT_STACK  #ifdef RLIMIT_STACK
223          getrlimit(RLIMIT_STACK, &rl);          getrlimit(RLIMIT_STACK, &rl);
224          if (rl.rlim_cur == RLIM_INFINITY ||          if (rl.rlim_cur == RLIM_INFINITY ||
225              rl.rlim_cur > MAX_STACK_SIZE)              rl.rlim_cur > MAX_STACK_SIZE)
226            rl.rlim_cur=MAX_STACK_SIZE;            rl.rlim_cur=MAX_STACK_SIZE;
227          cssize = rl.rlim_cur/4 - 4*CSGETA;          cssize = rl.rlim_cur/4 - 4*CSGETA;
# Line 279  char **argv, **envp; Line 279  char **argv, **envp;
279                  v_init_processes();                  v_init_processes();
280                  ovm_process_created = 1;                  ovm_process_created = 1;
281  #endif  #endif
282    #ifdef HAVE_READLINE
283                    init_readline_function();
284    #endif
285                again:                again:
286                  super_funcall(sStop_level);                  super_funcall(sStop_level);
287                  if (type_of(sSAmultiply_stacksA->s.s_dbind)==t_fixnum)                  if (type_of(sSAmultiply_stacksA->s.s_dbind)==t_fixnum)
# Line 575  va_dcl Line 578  va_dcl
578          RETURN(1,int,exit_code, 0);          RETURN(1,int,exit_code, 0);
579  }  }
580    
581    DEFUNO("QUIT",int,fLquit,LISP
582       ,0,1,NONE,II,OO,OO,OO,Lquit,"")(va_alist)
583    va_dcl
584    {       return fLbye(va_alist); }
585    
586    DEFUNO("EXIT",int,fLexit,LISP
587       ,0,1,NONE,II,OO,OO,OO,Lexit,"")(va_alist)
588    va_dcl
589    {       return fLbye(va_alist); }
590    
591    
592  c_trace()  c_trace()
593  {  {
594  #ifdef AOSVS  #ifdef AOSVS

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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