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; |
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) |
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 |