Print this page
11210 libm should be cstyle(1ONBLD) clean
*** 20,50 ****
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma weak __catanh = catanh
! /* INDENT OFF */
/*
* z := x + iy
* catanh(z) = -i catan(iz)
* = -i catan(-y+ix)
* = (Im(catan(-y+ix)), -Re(catan(-y+ix)))
*/
- /* INDENT ON */
#include "libm.h"
#include "complex_wrapper.h"
dcomplex
! catanh(dcomplex z) {
double x, y;
dcomplex ans, ct;
x = D_RE(z);
y = D_IM(z);
--- 20,51 ----
*/
/*
* Copyright 2011 Nexenta Systems, Inc. All rights reserved.
*/
+
/*
* Copyright 2006 Sun Microsystems, Inc. All rights reserved.
* Use is subject to license terms.
*/
#pragma weak __catanh = catanh
!
/*
* z := x + iy
* catanh(z) = -i catan(iz)
* = -i catan(-y+ix)
* = (Im(catan(-y+ix)), -Re(catan(-y+ix)))
*/
#include "libm.h"
#include "complex_wrapper.h"
dcomplex
! catanh(dcomplex z)
! {
double x, y;
dcomplex ans, ct;
x = D_RE(z);
y = D_IM(z);