2 // ignore-wasm32-bare no libc to test ffi with
4 #![feature(rustc_private)]
8 use libc
::{c_double, c_int}
;
11 fn to_c_int(v
: &mut isize) -> &mut c_int
{
12 unsafe { mem::transmute_copy(&v) }
15 fn lgamma(n
: c_double
, value
: &mut isize) -> c_double
{
17 return m
::lgamma(n
, to_c_int(value
));
22 use libc
::{c_double, c_int}
;
25 #[cfg(all(unix, not(target_os = "vxworks")))]
26 #[link_name="lgamma_r"]
27 pub fn lgamma(n
: c_double
, sign
: &mut c_int
) -> c_double
;
29 #[link_name = "lgamma"]
30 pub fn lgamma(n
: c_double
, sign
: &mut c_int
) -> c_double
;
31 #[cfg(target_os = "vxworks")]
32 #[link_name = "lgamma"]
33 pub fn lgamma(n
: c_double
, sign
: &mut c_int
) -> c_double
;
39 let x
: &mut isize = &mut y
;
40 assert_eq
!(lgamma(1.0 as c_double
, x
), 0.0 as c_double
);