denormal handling

svn path=/trunk/externals/ext13/; revision=1942

1 files changed, 9 insertions, 0 deletions

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);
 }