Update of /cvsroot/pure-data/externals/ext13 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23355
Modified Files: send13~.c throw13~.c Log Message: denormal handling
Index: send13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/send13~.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** send13~.c 9 Jul 2002 12:41:52 -0000 1.1.1.1 --- send13~.c 12 Aug 2004 17:12:23 -0000 1.2 *************** *** 28,32 **** t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); ! while (n--) *out++ = *in++; return (w+4); } --- 28,42 ---- t_float *out = (t_float *)(w[2]); int n = (int)(w[3]); ! 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); }
Index: throw13~.c =================================================================== RCS file: /cvsroot/pure-data/externals/ext13/throw13~.c,v retrieving revision 1.1.1.1 retrieving revision 1.2 diff -C2 -d -r1.1.1.1 -r1.2 *** throw13~.c 9 Jul 2002 12:41:52 -0000 1.1.1.1 --- throw13~.c 12 Aug 2004 17:12:23 -0000 1.2 *************** *** 31,35 **** --- 31,44 ---- { 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);