src/test/run-pass/extern-call.rs

   1 // Copyright 2012 The Rust Project Developers. See the COPYRIGHT
   2 // file at the top-level directory of this distribution and at
   3 // http://rust-lang.org/COPYRIGHT.
   4 //
   5 // Licensed under the Apache License, Version 2.0 <LICENSE-APACHE or
   6 // http://www.apache.org/licenses/LICENSE-2.0> or the MIT license
   7 // <LICENSE-MIT or http://opensource.org/licenses/MIT>, at your
   8 // option. This file may not be copied, modified, or distributed
   9 // except according to those terms.
  10
  11 use std::libc;
  12
  13 mod rustrt {
  14     use std::libc;
  15
  16     extern {
  17         pub fn rust_dbg_call(cb: *u8, data: libc::uintptr_t)
  18                              -> libc::uintptr_t;
  19     }
  20 }
  21
  22 extern fn cb(data: libc::uintptr_t) -> libc::uintptr_t {
  23     if data == 1u {
  24         data
  25     } else {
  26         fact(data - 1u) * data
  27     }
  28 }
  29
  30 #[fixed_stack_segment] #[inline(never)]
  31 fn fact(n: uint) -> uint {
  32     unsafe {
  33         info!("n = %?", n);
  34         rustrt::rust_dbg_call(cb, n)
  35     }
  36 }
  37
  38 pub fn main() {
  39     let result = fact(10u);
  40     info!("result = %?", result);
  41     assert_eq!(result, 3628800u);
  42 }