[PD-cvs] externals/ext13 send13~.c,1.1.1.1,1.2 throw13~.c,1.1.1.1,1.2

[Tim Blechmann]

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