mirror of
https://github.com/odin-lang/Odin.git
synced 2026-01-08 05:53:12 +00:00
104 lines
2.1 KiB
Odin
104 lines
2.1 KiB
Odin
package runtime
|
|
|
|
@require foreign import "system:int64.lib"
|
|
|
|
foreign import kernel32 "system:Kernel32.lib"
|
|
|
|
windows_trap_array_bounds :: proc "contextless" () -> ! {
|
|
DWORD :: u32;
|
|
ULONG_PTR :: uint;
|
|
|
|
EXCEPTION_ARRAY_BOUNDS_EXCEEDED :: 0xC000008C;
|
|
|
|
foreign kernel32 {
|
|
RaiseException :: proc "stdcall" (dwExceptionCode, dwExceptionFlags, nNumberOfArguments: DWORD, lpArguments: ^ULONG_PTR) -> ! ---
|
|
}
|
|
|
|
RaiseException(EXCEPTION_ARRAY_BOUNDS_EXCEEDED, 0, 0, nil);
|
|
}
|
|
|
|
windows_trap_type_assertion :: proc "contextless" () -> ! {
|
|
windows_trap_array_bounds();
|
|
}
|
|
|
|
@(private, require, link_name="_fltused") _fltused: i32 = 0x9875;
|
|
|
|
@(private, require, link_name="_tls_index") _tls_index: u32;
|
|
@(private, require, link_name="_tls_array") _tls_array: u32;
|
|
|
|
|
|
|
|
@(link_name="memcpy")
|
|
memcpy :: proc "c" (dst, src: rawptr, len: int) -> rawptr {
|
|
if dst == nil || src == nil || len == 0 || dst == src {
|
|
return dst;
|
|
}
|
|
d := uintptr(dst);
|
|
s := uintptr(src);
|
|
n := uintptr(len);
|
|
|
|
for i in 0..<n {
|
|
(^byte)(d+i)^ = (^byte)(s+i)^;
|
|
}
|
|
|
|
return dst;
|
|
}
|
|
|
|
@(link_name="memmove")
|
|
memmove :: proc "c" (dst, src: rawptr, len: int) -> rawptr {
|
|
if dst == nil || src == nil || len == 0 || dst == src {
|
|
return dst;
|
|
}
|
|
|
|
d := uintptr(dst);
|
|
s := uintptr(src);
|
|
n := uintptr(len);
|
|
|
|
if s < d && d < s+n {
|
|
// Overlap
|
|
for i := n-1; n >= 0; i -= 1 {
|
|
(^byte)(d+i)^ = (^byte)(s+i)^;
|
|
}
|
|
|
|
} else {
|
|
for i in 0..<n {
|
|
(^byte)(d+i)^ = (^byte)(s+i)^;
|
|
}
|
|
}
|
|
|
|
return dst;
|
|
}
|
|
|
|
@(link_name="memset")
|
|
memset :: proc "c" (ptr: rawptr, val: i32, len: int) -> rawptr {
|
|
if ptr == nil || len == 0 {
|
|
return ptr;
|
|
}
|
|
d := uintptr(ptr);
|
|
b := byte(val);
|
|
for i in 0..<uintptr(len) {
|
|
(^byte)(d+i)^ = b;
|
|
}
|
|
return ptr;
|
|
}
|
|
|
|
// @(link_name="memcmp")
|
|
// memcmp :: proc "c" (dst, src: rawptr, len: int) -> i32 {
|
|
// if dst == nil || src == nil {
|
|
// return 0;
|
|
// }
|
|
// if dst == src {
|
|
// return 0;
|
|
// }
|
|
// d, s := uintptr(dst), uintptr(src);
|
|
// n := uintptr(len);
|
|
|
|
// for i := uintptr(0); i < n; i += 1 {
|
|
// x, y := (^byte)(d+i)^, (^byte)(s+i)^;
|
|
// if x != y {
|
|
// return x < y ? -1 : +1;
|
|
// }
|
|
// }
|
|
// return 0;
|
|
// }
|