mirror of
https://codeberg.org/ziglang/zig.git
synced 2026-03-08 06:04:46 +01:00
74608293af
use the "symbol" helper function in all exports move all declarations from common.zig to compiler_rt.zig flatten the tree structure somewhat (move contents of tiny files into parent files) No functional changes.
90 lines
2.4 KiB
Zig
90 lines
2.4 KiB
Zig
const std = @import("std");
|
|
const builtin = @import("builtin");
|
|
const arch = builtin.cpu.arch;
|
|
const os = builtin.os.tag;
|
|
const abi = builtin.abi;
|
|
const compiler_rt = @import("../compiler_rt.zig");
|
|
const symbol = compiler_rt.symbol;
|
|
|
|
comptime {
|
|
if (compiler_rt.want_windows_x86_msvc_abi) {
|
|
// Don't let LLVM apply the stdcall name mangling on those MSVC builtins
|
|
symbol(&_allrem, "\x01__allrem");
|
|
symbol(&_aullrem, "\x01__aullrem");
|
|
}
|
|
}
|
|
|
|
pub fn _allrem(a: i64, b: i64) callconv(.{ .x86_stdcall = .{} }) i64 {
|
|
const s_a = a >> (64 - 1);
|
|
const s_b = b >> (64 - 1);
|
|
|
|
const an = (a ^ s_a) -% s_a;
|
|
const bn = (b ^ s_b) -% s_b;
|
|
|
|
const r = @as(u64, @bitCast(an)) % @as(u64, @bitCast(bn));
|
|
const s = s_a ^ s_b;
|
|
return (@as(i64, @bitCast(r)) ^ s) -% s;
|
|
}
|
|
|
|
pub fn _aullrem() callconv(.naked) void {
|
|
@setRuntimeSafety(false);
|
|
|
|
// The stack layout is:
|
|
// ESP+16 divisor (hi)
|
|
// ESP+12 divisor (low)
|
|
// ESP+8 dividend (hi)
|
|
// ESP+4 dividend (low)
|
|
// ESP return address
|
|
|
|
asm volatile (
|
|
\\ push %%ebx
|
|
\\ mov 0x14(%%esp),%%eax
|
|
\\ or %%eax,%%eax
|
|
\\ jne 1f
|
|
\\ mov 0x10(%%esp),%%ecx
|
|
\\ mov 0xc(%%esp),%%eax
|
|
\\ xor %%edx,%%edx
|
|
\\ div %%ecx
|
|
\\ mov 0x8(%%esp),%%eax
|
|
\\ div %%ecx
|
|
\\ mov %%edx,%%eax
|
|
\\ xor %%edx,%%edx
|
|
\\ jmp 6f
|
|
\\ 1:
|
|
\\ mov %%eax,%%ecx
|
|
\\ mov 0x10(%%esp),%%ebx
|
|
\\ mov 0xc(%%esp),%%edx
|
|
\\ mov 0x8(%%esp),%%eax
|
|
\\ 2:
|
|
\\ shr %%ecx
|
|
\\ rcr %%ebx
|
|
\\ shr %%edx
|
|
\\ rcr %%eax
|
|
\\ or %%ecx,%%ecx
|
|
\\ jne 2b
|
|
\\ div %%ebx
|
|
\\ mov %%eax,%%ecx
|
|
\\ mull 0x14(%%esp)
|
|
\\ xchg %%eax,%%ecx
|
|
\\ mull 0x10(%%esp)
|
|
\\ add %%ecx,%%edx
|
|
\\ jb 3f
|
|
\\ cmp 0xc(%%esp),%%edx
|
|
\\ ja 3f
|
|
\\ jb 4f
|
|
\\ cmp 0x8(%%esp),%%eax
|
|
\\ jbe 4f
|
|
\\ 3:
|
|
\\ sub 0x10(%%esp),%%eax
|
|
\\ sbb 0x14(%%esp),%%edx
|
|
\\ 4:
|
|
\\ sub 0x8(%%esp),%%eax
|
|
\\ sbb 0xc(%%esp),%%edx
|
|
\\ neg %%edx
|
|
\\ neg %%eax
|
|
\\ sbb $0x0,%%edx
|
|
\\ 6:
|
|
\\ pop %%ebx
|
|
\\ ret $0x10
|
|
);
|
|
}
|