zig

fork of https://codeberg.org/ziglang/zig
Log | Files | Refs | README | LICENSE

subtf3.zig (884B) - Raw

      1 const common = @import("./common.zig");
      2 const addf3 = @import("./addf3.zig").addf3;
      3 
      4 pub const panic = common.panic;
      5 
      6 comptime {
      7     if (common.want_ppc_abi) {
      8         @export(&__subtf3, .{ .name = "__subkf3", .linkage = common.linkage, .visibility = common.visibility });
      9     } else if (common.want_sparc_abi) {
     10         @export(&_Qp_sub, .{ .name = "_Qp_sub", .linkage = common.linkage, .visibility = common.visibility });
     11     }
     12     @export(&__subtf3, .{ .name = "__subtf3", .linkage = common.linkage, .visibility = common.visibility });
     13 }
     14 
     15 pub fn __subtf3(a: f128, b: f128) callconv(.c) f128 {
     16     return sub(a, b);
     17 }
     18 
     19 fn _Qp_sub(c: *f128, a: *const f128, b: *const f128) callconv(.c) void {
     20     c.* = sub(a.*, b.*);
     21 }
     22 
     23 inline fn sub(a: f128, b: f128) f128 {
     24     const neg_b = @as(f128, @bitCast(@as(u128, @bitCast(b)) ^ (@as(u128, 1) << 127)));
     25     return addf3(f128, a, neg_b);
     26 }