diff options
author | das <das@FreeBSD.org> | 2008-03-30 20:02:03 +0000 |
---|---|---|
committer | das <das@FreeBSD.org> | 2008-03-30 20:02:03 +0000 |
commit | b48d845e623ac1c3e470a91dec2dac88b0c57578 (patch) | |
tree | 233e4392d36fc0104a37f5916428afdec0bb4499 | |
parent | 927d9b1d58240086536e1fa782e3ca770b79813e (diff) | |
download | FreeBSD-src-b48d845e623ac1c3e470a91dec2dac88b0c57578.zip FreeBSD-src-b48d845e623ac1c3e470a91dec2dac88b0c57578.tar.gz |
Implement cabsl() in terms of hypotl().
Submitted by: Steve Kargl <sgk@troutmask.apl.washington.edu>
-rw-r--r-- | lib/msun/src/w_cabsl.c | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/lib/msun/src/w_cabsl.c b/lib/msun/src/w_cabsl.c new file mode 100644 index 0000000..b715e0c --- /dev/null +++ b/lib/msun/src/w_cabsl.c @@ -0,0 +1,20 @@ +/* + * cabs() wrapper for hypot(). + * + * Written by J.T. Conklin, <jtc@wimsey.com> + * Placed into the Public Domain, 1994. + * + * Modified by Steven G. Kargl for the long double type. + */ + +#include <sys/cdefs.h> +__FBSDID("$FreeBSD$"); + +#include <complex.h> +#include <math.h> + +long double +cabsl(long double complex z) +{ + return hypotl(creall(z), cimagl(z)); +} |