src/test/ui/issues/issue-2214.rs

   1 // run-pass
   2 // ignore-wasm32-bare no libc to test ffi with
   3 // ignore-sgx no libc
   4 #![feature(rustc_private)]
   5
   6 extern crate libc;
   7
   8 use libc::{c_double, c_int};
   9 use std::mem;
  10
  11 fn to_c_int(v: &mut isize) -> &mut c_int {
  12     unsafe { mem::transmute_copy(&v) }
  13 }
  14
  15 fn lgamma(n: c_double, value: &mut isize) -> c_double {
  16     unsafe {
  17         return m::lgamma(n, to_c_int(value));
  18     }
  19 }
  20
  21 mod m {
  22     use libc::{c_double, c_int};
  23
  24     extern "C" {
  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;
  28         #[cfg(windows)]
  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;
  34     }
  35 }
  36
  37 pub fn main() {
  38     let mut y: isize = 5;
  39     let x: &mut isize = &mut y;
  40     assert_eq!(lgamma(1.0 as c_double, x), 0.0 as c_double);
  41 }