home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 3
/
AACD03.BIN
/
AACD
/
Programming
/
sofa
/
archive
/
SmallEiffel.lha
/
SmallEiffel
/
sys
/
runtime
/
boost.c
< prev
next >
Wrap
C/C++ Source or Header
|
1999-06-08
|
1KB
|
46 lines
/*
-- This file is free software, which comes along with SmallEiffel. This
-- software is distributed in the hope that it will be useful, but WITHOUT
-- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. You can modify it as you want, provided
-- this header is kept unaltered, and a notification of the changes is added.
-- You are allowed to redistribute it and sell it, alone or as a part of
-- another product.
-- Copyright (C) 1994-98 LORIA - UHP - CRIN - INRIA - FRANCE
-- Dominique COLNET and Suzanne COLLIN - colnet@loria.fr
-- http://www.loria.fr/SmallEiffel
--
*/
/*
This file (boost.c) is automatically included when `run_control.boost' is
true (ie. only for mode -boost).
*/
void se_print_run_time_stack (void) {
fprintf(SE_ERR,"Eiffel program crash at run time.\n");
fprintf(SE_ERR,"No trace when using option \"-boost\"\n");
}
void sigrsp(int sig) {
printf("Received signal %d (man signal).\n",sig);
se_print_run_time_stack();
exit(1);
}
/*
* SAS/C global variables. We raise the I/O buffer size because the
* default (512) causes poor performance. You can also force a larger
* default stack size (use sc Def STACKSIZE=xxx) which comes handy
* when using NoStackCheck.
*/
#ifdef __SASC
int __buffsize = 4096;
#ifdef STACKSIZE
int __stack = STACKSIZE;
#else
int __stack = 8192;
#endif
#endif