version 1.25, 2001/12/21 08:23:15 |
version 1.26, 2001/12/25 02:39:06 |
|
|
* 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/glob.c,v 1.24 2001/10/09 01:36:24 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.25 2001/12/21 08:23:15 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "al.h" |
#include "al.h" |
Line 78 extern int GC_free_space_numerator; |
|
Line 78 extern int GC_free_space_numerator; |
|
extern FILE *asir_out; |
extern FILE *asir_out; |
|
|
INFILE asir_infile; |
INFILE asir_infile; |
jmp_buf main_env,debug_env,timer_env,exec_env; |
JMP_BUF main_env,debug_env,timer_env,exec_env; |
int little_endian,debug_mode; |
int little_endian,debug_mode; |
char *asir_libdir; |
char *asir_libdir; |
char *asir_pager; |
char *asir_pager; |
Line 206 void asir_terminate(int status) |
|
Line 206 void asir_terminate(int status) |
|
t = read_exec_file; |
t = read_exec_file; |
read_exec_file = 0; |
read_exec_file = 0; |
if ( t == 1 ) |
if ( t == 1 ) |
longjmp(main_env,status); |
LONGJMP(main_env,status); |
else |
else |
longjmp(exec_env,status); |
LONGJMP(exec_env,status); |
} else { |
} else { |
tty_reset(); |
tty_reset(); |
#if MPI |
#if MPI |
Line 399 void resetenv(char *s) |
|
Line 399 void resetenv(char *s) |
|
#if !defined(VISUAL) |
#if !defined(VISUAL) |
reset_timer(); |
reset_timer(); |
#endif |
#endif |
longjmp(main_env,1); |
LONGJMP(main_env,1); |
} |
} |
|
|
void fatal(int n) |
void fatal(int n) |
Line 540 void ill_handler(int sig) |
|
Line 540 void ill_handler(int sig) |
|
void alrm_handler(int sig) |
void alrm_handler(int sig) |
{ |
{ |
fprintf(stderr,"interval timer expired (VTALRM)\n"); |
fprintf(stderr,"interval timer expired (VTALRM)\n"); |
longjmp(timer_env,1); |
LONGJMP(timer_env,1); |
} |
} |
|
|
void bus_handler(int sig) |
void bus_handler(int sig) |
Line 616 void error(char *s) |
|
Line 616 void error(char *s) |
|
ExitAsir(); |
ExitAsir(); |
} |
} |
if ( debug_mode ) |
if ( debug_mode ) |
longjmp(debug_env,1); |
LONGJMP(debug_env,1); |
if ( CPVS != GPVS ) |
if ( CPVS != GPVS ) |
if ( do_server_in_X11 || isatty(0) ) |
if ( do_server_in_X11 || isatty(0) ) |
bp(error_snode); |
bp(error_snode); |