From 3cc77d0f383c8732228d6378f93c46e6e1233411 Mon Sep 17 00:00:00 2001
From: Tim Blechmann <timblech@users.sourceforge.net>
Date: Thu, 12 Aug 2004 17:12:23 +0000
Subject: denormal handling

svn path=/trunk/externals/ext13/; revision=1942
---
 send13~.c  | 12 +++++++++++-
 throw13~.c |  9 +++++++++
 2 files changed, 20 insertions(+), 1 deletion(-)

diff --git a/send13~.c b/send13~.c
index 4245b2d..3cfb204 100644
--- a/send13~.c
+++ b/send13~.c
@@ -27,7 +27,17 @@
     t_float *in = (t_float *)(w[1]);
     t_float *out = (t_float *)(w[2]);
     int n = (int)(w[3]);
-    while (n--) *out++ = *in++; 
+    while (n--)
+    {
+	/* TB: denormal handling in pd >0.37-2 */
+#ifdef PD_BIGORSMALL
+	*out = (PD_BIGORSMALL(*in) ? 0 : *in);
+	out++;
+	in++;
+#else
+	*out++ = *in++;
+#endif
+    }; 
     return (w+4);
 }
 
diff --git a/throw13~.c b/throw13~.c
index 347953e..c992d81 100644
--- a/throw13~.c
+++ b/throw13~.c
@@ -30,7 +30,16 @@
     if (out)
     {
     	while (n--)
+	{
+	/* TB: denormal handling in pd >0.37-2 */
+#ifdef PD_BIGORSMALL
+	    *out += (PD_BIGORSMALL(*in) ? 0 : *in);
+	    out++;
+	    in++;
+#else
 	    *out++ += *in++; 
+#endif
+	}
     }
     return (w+4);
 }
-- 
cgit v1.2.1