version 1.28, 2006/02/08 02:11:19 |
version 1.33, 2006/09/28 07:43:45 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.27 2004/06/15 00:56:52 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/main.c,v 1.32 2006/09/26 05:35:26 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 75 extern JMP_BUF main_env; |
|
Line 75 extern JMP_BUF main_env; |
|
double get_current_time(); |
double get_current_time(); |
void init_socket(); |
void init_socket(); |
void recover(); |
void recover(); |
|
void set_stacksize(); |
|
|
extern int mpi_nprocs,mpi_myid; |
extern int mpi_nprocs,mpi_myid; |
|
|
Line 104 main(int argc,char *argv[]) |
|
Line 105 main(int argc,char *argv[]) |
|
char *slash,*bslash,*binname,*p; |
char *slash,*bslash,*binname,*p; |
#endif |
#endif |
|
|
|
set_stacksize(); |
StackBottom = &tmp; |
StackBottom = &tmp; |
GC_init(); |
GC_init(); |
#if defined(MPI) |
#if defined(MPI) |
Line 222 main(int argc,char *argv[]) |
|
Line 224 main(int argc,char *argv[]) |
|
#endif |
#endif |
if ( SETJMP(main_env) ) |
if ( SETJMP(main_env) ) |
prompt(); |
prompt(); |
if ( SETJMP(asir_infile->jmpbuf) ) |
if ( !do_file ) { |
prompt(); |
if ( SETJMP(asir_infile->jmpbuf) ) |
else |
prompt(); |
asir_infile->ready_for_longjmp = 1; |
else |
|
asir_infile->ready_for_longjmp = 1; |
|
} |
restore_handler(); |
restore_handler(); |
read_eval_loop(); |
read_eval_loop(); |
} |
} |
Line 237 main(int argc,char *argv[]) |
|
Line 241 main(int argc,char *argv[]) |
|
void set_error(int code,char *reason,char *action) |
void set_error(int code,char *reason,char *action) |
{} |
{} |
#endif |
#endif |
|
|
|
void set_stacksize() |
|
{ |
|
#if !defined(VISUAL) |
|
struct rlimit rlim; |
|
int c,m; |
|
|
|
getrlimit(RLIMIT_STACK,&rlim); |
|
if ( rlim.rlim_cur < (1<<26) ) { |
|
rlim.rlim_cur = MIN(1<<26,rlim.rlim_max); |
|
setrlimit(RLIMIT_STACK,&rlim); |
|
} |
|
#endif |
|
} |