mirror of
https://github.com/odin-lang/Odin.git
synced 2026-01-08 14:03:14 +00:00
e1ba69ea51
Having the OS/runtime provide a cryptographic entropy source is the right thing to do, and we need it to initialize the default random number generator.
33 lines
688 B
Odin
33 lines
688 B
Odin
#+build haiku
|
|
#+private
|
|
package runtime
|
|
|
|
foreign import libc "system:c"
|
|
|
|
_HAS_RAND_BYTES :: true
|
|
|
|
foreign libc {
|
|
@(link_name="write")
|
|
_unix_write :: proc(fd: i32, buf: rawptr, size: int) -> int ---
|
|
|
|
_errnop :: proc() -> ^i32 ---
|
|
|
|
arc4random_buf :: proc(buf: [^]byte, nbytes: uint) ---
|
|
}
|
|
|
|
_stderr_write :: proc "contextless" (data: []byte) -> (int, _OS_Errno) {
|
|
ret := _unix_write(2, raw_data(data), len(data))
|
|
if ret < len(data) {
|
|
err := _errnop()
|
|
return int(ret), _OS_Errno(err^ if err != nil else 0)
|
|
}
|
|
return int(ret), 0
|
|
}
|
|
|
|
_rand_bytes :: proc "contextless" (dst: []byte) {
|
|
arc4random_buf(raw_data(dst), len(dst))
|
|
}
|
|
|
|
_exit :: proc "contextless" (code: int) -> ! {
|
|
trap()
|
|
} |