void signal_eof(int sig)
{
(void)sig;
ft_putchar('\n');
exit_term();
exit(0);
}
/*******************************************************************************
fatal_alloc_err()
******************************************************************************/
void fatal_alloc_err(char *s)
{
extern dyn_ptr_t Parent;
char msg[100];
sprintf(msg, "%s %s\n", s, OVERFLOW);
errmsg(msg);
exit_term();
exit(1);
}
/*******************************************************************************
alloc_err()
******************************************************************************/
void alloc_err(char *s)
{
extern dyn_ptr_t Parent;
char msg[100];
sprintf(msg, "%s %s\n", s, OVERFLOW);
errmsg(msg);
tty_pr_string(SEESTACK);
if(read_yes())
dump_ancestors(Parent);
exit_term();
exit(1);
}
/*******************************************************************************
check_object()
This should be used to check the internal consistency of the interpreter.
It doesnt make much sense on an IBM PC, because you can only meaningfully
compare pointers from the same segment.
******************************************************************************/
int check_object(char *objptr)
{
if(((objptr >= HighHeap_ptr)||(objptr < Heap_mem))
&& ((objptr >= HighDyn_ptr)||(objptr < Dyn_mem))
&& ((objptr >= HighTemp_ptr)||(objptr < Temp_mem))
&& ((objptr >= HighStr_ptr)||(objptr < Str_mem))
)
{
errmsg(WILDPOINTER);
#ifndef HUNTBUGS
exit_term();
exit(1);
#endif
return(0);
}
else
return(1);
}
void signal_quit(int sig)
{
(void)sig;
exit_term();
exit(0);
}
