|
|
diff -dur gawk-3.1.5/builtin.c gawk-3.1.5-p/builtin.c
--- gawk-3.1.5/builtin.c 2005-07-26 20:07:43.000000000 +0200
+++ gawk-3.1.5-p/builtin.c 2006-05-30 21:53:45.000000000 +0200
@@ -161,7 +161,7 @@
d = force_number(tmp); free_temp(tmp); errno = 0;- res = exp(d);
+ res = 0.0i; /* exp(d); */
if (errno == ERANGE) warning(_("exp: argument %g is out of range"), d); return tmp_number((AWKNUM) res);@@ -430,9 +430,9 @@
double_to_int(double d) { if (d >= 0)- d = Floor(d);
+ d = /*Floor(*/d/*)*/;
else- d = Ceil(d);
+ d = /*Ceil(*/d/*)*/;
return d; } @@ -507,7 +507,7 @@
arg = (double) force_number(tmp); if (arg < 0.0) warning(_("log: received negative argument %g"), arg);- d = log(arg);
+ d = 0.0; /* log(arg); */
free_temp(tmp); return tmp_number((AWKNUM) d); }@@ -1303,7 +1303,7 @@
free_temp(tmp); if (arg < 0.0) warning(_("sqrt: called with negative argument %g"), arg);- return tmp_number((AWKNUM) sqrt(arg));
+ return tmp_number((AWKNUM) 0.0 /* sqrt(arg) */ );
} /* do_substr --- do the substr function */@@ -1895,7 +1895,7 @@
d2 = force_number(t2); free_temp(t1); free_temp(t2);- return tmp_number((AWKNUM) atan2(d1, d2));
+ return tmp_number((AWKNUM) 0.0 /* atan2(d1, d2) */ );
} /* do_sin --- do the sin function */@@ -1909,7 +1909,7 @@
tmp = tree_eval(tree->lnode); if (do_lint && (tmp->flags & (NUMCUR|NUMBER)) == 0) lintwarn(_("sin: received non-numeric argument"));- d = sin((double) force_number(tmp));
+ d = 0.0; /* sin((double) force_number(tmp)); */
free_temp(tmp); return tmp_number((AWKNUM) d); }@@ -1925,7 +1925,7 @@
tmp = tree_eval(tree->lnode); if (do_lint && (tmp->flags & (NUMCUR|NUMBER)) == 0) lintwarn(_("cos: received non-numeric argument"));- d = cos((double) force_number(tmp));
+ d = 0.0; /* cos((double) force_number(tmp)); */
free_temp(tmp); return tmp_number((AWKNUM) d); }diff -dur gawk-3.1.5/eval.c gawk-3.1.5-p/eval.c
--- gawk-3.1.5/eval.c 2005-07-26 20:07:43.000000000 +0200
+++ gawk-3.1.5-p/eval.c 2006-05-30 22:11:27.000000000 +0200
@@ -914,7 +914,7 @@
return (lx > 0) ? calc_exp_posint(x1, lx) : 1.0 / calc_exp_posint(x1, -lx); }- return (AWKNUM) pow((double) x1, (double) x2);
+ return (AWKNUM) 0.0; /* pow((double) x1, (double) x2); */
} /* r_tree_eval --- evaluate a subtree */@@ -1294,8 +1294,8 @@
#ifdef HAVE_FMOD return tmp_number(fmod(x1, x2)); #else /* ! HAVE_FMOD */- (void) modf(x1 / x2, &x);
- return tmp_number(x1 - x * x2);
+ /* (void) modf(x1 / x2, &x); */
+ return tmp_number( 0.0 /* x1 - x * x2 */ );
#endif /* ! HAVE_FMOD */ case Node_plus:@@ -1497,8 +1497,8 @@
{ AWKNUM t1, t2; - (void) modf(lval / rval, &t1);
- t2 = lval - rval * t1;
+ /* (void) modf(lval / rval, &t1); */
+ t2 = 0.0 /* lval - rval * t1; */
*lhs = make_number(t2); } #endif /* ! HAVE_FMOD */
|
