=================================================================== RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/eval.c,v retrieving revision 1.16 retrieving revision 1.19 diff -u -p -r1.16 -r1.19 --- OpenXM_contrib2/asir2000/parse/eval.c 2001/10/09 01:36:24 1.16 +++ OpenXM_contrib2/asir2000/parse/eval.c 2002/12/11 10:54:12 1.19 @@ -45,7 +45,7 @@ * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. * - * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.15 2001/09/20 04:08:21 noro Exp $ + * $OpenXM: OpenXM_contrib2/asir2000/parse/eval.c,v 1.18 2001/12/25 02:39:06 noro Exp $ */ #include #include "ca.h" @@ -58,7 +58,7 @@ #include "genpari.h" #endif -extern jmp_buf timer_env; +extern JMP_BUF timer_env; int f_break,f_return,f_continue; int evalstatline; @@ -182,7 +182,7 @@ pointer eval(FNODE f) expired = (Obj)eval((FNODE)FA2(f)); set_timer(interval); savepvs(); - if ( !setjmp(timer_env) ) + if ( !SETJMP(timer_env) ) val = eval((FNODE)FA1(f)); else { val = (pointer)expired; @@ -456,7 +456,7 @@ pointer evalf(FUNC f,FNODE a,FNODE opt) NODE tn,sn,opts,opt1; VS pvs; char errbuf[BUFSIZ]; - static int stack_size; + static unsigned int stack_size; static void *stack_base; if ( f->id == A_UNDEF ) { @@ -490,7 +490,7 @@ pointer evalf(FUNC f,FNODE a,FNODE opt) break; case A_USR: /* stack check */ -#if !defined(VISUAL) +#if !defined(VISUAL) && !defined(__CYGWIN__) if ( !stack_size ) { struct rlimit rl; getrlimit(RLIMIT_STACK,&rl);