You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
103 lines
2.8 KiB
103 lines
2.8 KiB
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 */
|