From 33b135d7fc381a22965586e0567ede4da11eade3 Mon Sep 17 00:00:00 2001 From: Hans-Christoph Steiner Date: Tue, 10 Nov 2009 20:59:05 +0000 Subject: use renamed header d_math.h -> e_sqrt.h svn path=/trunk/; revision=12748 --- externals/vanilla/d_math.c | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 externals/vanilla/d_math.c (limited to 'externals/vanilla/d_math.c') diff --git a/externals/vanilla/d_math.c b/externals/vanilla/d_math.c deleted file mode 100644 index eb011a4a..00000000 --- a/externals/vanilla/d_math.c +++ /dev/null @@ -1,32 +0,0 @@ -/* Copyright (c) 1997-2001 Miller Puckette and others. -* For information on usage and redistribution, and for a DISCLAIMER OF ALL -* WARRANTIES, see the file, "LICENSE.txt," in this distribution. */ - -/* sqrt-related functions from pd-vanilla's d_math.c */ - -#include "e_sqrt.h" - - /* these are used in externs like "bonk" */ - -t_float q8_rsqrt(t_float f) -{ - long l = *(long *)(&f); - if (f < 0) return (0); - else return (rsqrt_exptab[(l >> 23) & 0xff] * - rsqrt_mantissatab[(l >> 13) & 0x3ff]); -} - -t_float q8_sqrt(t_float f) -{ - long l = *(long *)(&f); - if (f < 0) return (0); - else return (f * rsqrt_exptab[(l >> 23) & 0xff] * - rsqrt_mantissatab[(l >> 13) & 0x3ff]); -} - - /* the old names are OK unless we're in IRIX N32 */ - -#ifndef N32 -t_float qsqrt(t_float f) {return (q8_sqrt(f)); } -t_float qrsqrt(t_float f) {return (q8_rsqrt(f)); } -#endif -- cgit v1.2.1