2016-10-01 06:15:44 +08:00
|
|
|
macro_rules! pow {
|
2016-10-07 23:17:44 +08:00
|
|
|
($intrinsic:ident: $fty:ty, $ity:ident) => {
|
2016-10-01 06:15:44 +08:00
|
|
|
/// Returns `a` raised to the power `b`
|
|
|
|
#[cfg_attr(not(test), no_mangle)]
|
|
|
|
pub extern "C" fn $intrinsic(a: $fty, b: $ity) -> $fty {
|
|
|
|
let (mut a, mut b) = (a, b);
|
|
|
|
let recip = b < 0;
|
|
|
|
let mut r: $fty = 1.0;
|
|
|
|
loop {
|
|
|
|
if (b & 1) != 0 {
|
|
|
|
r *= a;
|
|
|
|
}
|
2016-10-07 23:17:44 +08:00
|
|
|
b = sdiv!($ity, b, 2);
|
2016-10-01 06:15:44 +08:00
|
|
|
if b == 0 {
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
a *= a;
|
|
|
|
}
|
|
|
|
|
|
|
|
if recip {
|
|
|
|
1.0 / r
|
|
|
|
} else {
|
|
|
|
r
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
pow!(__powisf2: f32, i32);
|
|
|
|
pow!(__powidf2: f64, i32);
|
|
|
|
|
|
|
|
#[cfg(test)]
|
|
|
|
mod tests {
|
2016-10-04 00:58:16 +08:00
|
|
|
use qc::{I32, F32, F64};
|
2016-10-01 06:15:44 +08:00
|
|
|
|
|
|
|
check! {
|
|
|
|
fn __powisf2(f: extern fn(f32, i32) -> f32,
|
2016-10-04 00:58:16 +08:00
|
|
|
a: F32,
|
|
|
|
b: I32) -> Option<F32> {
|
|
|
|
Some(F32(f(a.0, b.0)))
|
2016-10-01 06:15:44 +08:00
|
|
|
}
|
|
|
|
|
|
|
|
fn __powidf2(f: extern fn(f64, i32) -> f64,
|
2016-10-04 00:58:16 +08:00
|
|
|
a: F64,
|
|
|
|
b: I32) -> Option<F64> {
|
|
|
|
Some(F64(f(a.0, b.0)))
|
2016-10-01 06:15:44 +08:00
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|