src/test/run-pass/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 std::mem;
   9 use libc::{c_double, c_int};
  10
  11 fn to_c_int(v: &mut isize) -> &mut c_int {
  12     unsafe {
  13         mem::transmute_copy(&v)
  14     }
  15 }
  16
  17 fn lgamma(n: c_double, value: &mut isize) -> c_double {
  18     unsafe {
  19         return m::lgamma(n, to_c_int(value));
  20     }
  21 }
  22
  23 mod m {
  24     use libc::{c_double, c_int};
  25
  26     #[link_name = "m"]
  27     extern {
  28         #[cfg(any(unix, target_os = "cloudabi"))]
  29         #[link_name="lgamma_r"]
  30         pub fn lgamma(n: c_double, sign: &mut c_int) -> c_double;
  31         #[cfg(windows)]
  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 }