summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ChangeLog9
-rw-r--r--LEGAL1
-rw-r--r--MANIFEST1
-rw-r--r--configure.in2
-rw-r--r--eval.c1
-rw-r--r--math.c19
-rw-r--r--missing.h5
7 files changed, 36 insertions, 2 deletions
diff --git a/ChangeLog b/ChangeLog
index 1d923f6..a2598f2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+Thu Jun 5 15:09:06 2003 Yukihiro Matsumoto <matz@ruby-lang.org>
+
+ * math.c (math_erf,math_erfc): new function. [ruby-list:37753]
+
Thu Jun 5 05:49:43 2003 why the lucky stiff <ruby-cvs@whytheluckystiff.net>
* ext/syck/rubyext.c: using GC nodes caused segfault. [ruby-core:1071]
@@ -11,6 +15,11 @@ Thu Jun 5 04:48:57 2003 why the lucky stiff <ruby-cvs@whytheluckystiff.net>
* ext/syck/handler.c, ext/syck/syck.c: ensure a fresh strtable between
parser iterations.
+Wed Jun 4 12:06:59 2003 Yukihiro Matsumoto <matz@ruby-lang.org>
+
+ * eval.c (ruby_finalize): no longer need to turn off $DEBUG in the
+ finalizer. (ruby-bugs-ja PR#473)
+
Tue Jun 3 22:20:49 2003 Yukihiro Matsumoto <matz@ruby-lang.org>
* eval.c (rb_call_super): should search superclass method based on
diff --git a/LEGAL b/LEGAL
index 8a87bfa..dce7c1a 100644
--- a/LEGAL
+++ b/LEGAL
@@ -134,6 +134,7 @@ st.[ch]:
x68/*:
missing/alloca.c:
missing/dup2.c:
+missing/erf.c:
missing/finite.c:
missing/hypot.c:
missing/isinf.c:
diff --git a/MANIFEST b/MANIFEST
index d7bb8df..f69aaab 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -262,6 +262,7 @@ missing/acosh.c
missing/alloca.c
missing/crypt.c
missing/dup2.c
+missing/erf.c
missing/file.h
missing/fileblocks.c
missing/finite.c
diff --git a/configure.in b/configure.in
index 7bf4e39..c922fab 100644
--- a/configure.in
+++ b/configure.in
@@ -371,7 +371,7 @@ AC_FUNC_FSEEKO
AC_CHECK_FUNCS(ftello)
AC_REPLACE_FUNCS(dup2 memmove mkdir strcasecmp strncasecmp strerror strftime\
strchr strstr strtoul crypt flock vsnprintf\
- isinf isnan finite hypot acosh)
+ isinf isnan finite hypot acosh erf)
AC_CHECK_FUNCS(fmod killpg wait4 waitpid syscall chroot fsync\
truncate chsize times utimes fcntl lockf lstat symlink readlink\
setitimer setruid seteuid setreuid setresuid setproctitle\
diff --git a/eval.c b/eval.c
index f4b4f89..4624536 100644
--- a/eval.c
+++ b/eval.c
@@ -1313,7 +1313,6 @@ ruby_finalize()
{
int state;
- ruby_debug = Qfalse;
PUSH_TAG(PROT_NONE);
if ((state = EXEC_TAG()) == 0) {
rb_trap_exit();
diff --git a/math.c b/math.c
index 77c0173..8d7bd8c 100644
--- a/math.c
+++ b/math.c
@@ -271,6 +271,22 @@ math_hypot(obj, x, y)
return rb_float_new(hypot(RFLOAT(x)->value, RFLOAT(y)->value));
}
+static VALUE
+math_erf(obj, x)
+ VALUE obj, x;
+{
+ Need_Float(x);
+ return rb_float_new(erf(RFLOAT(x)->value));
+}
+
+static VALUE
+math_erfc(obj, x)
+ VALUE obj, x;
+{
+ Need_Float(x);
+ return rb_float_new(erfc(RFLOAT(x)->value));
+}
+
void
Init_Math()
{
@@ -314,4 +330,7 @@ Init_Math()
rb_define_module_function(rb_mMath, "ldexp", math_ldexp, 2);
rb_define_module_function(rb_mMath, "hypot", math_hypot, 2);
+
+ rb_define_module_function(rb_mMath, "erf", math_erf, 1);
+ rb_define_module_function(rb_mMath, "erfc", math_erfc, 1);
}
diff --git a/missing.h b/missing.h
index df4cecc..5416500 100644
--- a/missing.h
+++ b/missing.h
@@ -54,6 +54,11 @@ extern double frexp _((double, int *));
extern double hypot _((double, double));
#endif
+#ifndef HAVE_ERF
+extern double erf _((double, double));
+extern double erfc _((double, double));
+#endif
+
#ifndef HAVE_ISINF
extern int isinf _((double));
#endif