126 lines
2.2 KiB
Go
126 lines
2.2 KiB
Go
// Copyright (c) 2019 Alexander Medvednikov. All rights reserved.
|
|
// Use of this source code is governed by an MIT license
|
|
// that can be found in the LICENSE file.
|
|
|
|
module builtin
|
|
|
|
pub fn exit(code int) {
|
|
C.exit(code)
|
|
}
|
|
|
|
// isnil returns true if an object is nil (only for C objects).
|
|
pub fn isnil(v voidptr) bool {
|
|
return v == 0
|
|
}
|
|
|
|
fn on_panic(f fn (int) int) {
|
|
// TODO
|
|
}
|
|
|
|
pub fn print_backtrace() {
|
|
return
|
|
$if mac {
|
|
buffer := [100]voidptr
|
|
nr_ptrs := C.backtrace(buffer, 100)
|
|
C.backtrace_symbols_fd(buffer, nr_ptrs, 1)
|
|
}
|
|
}
|
|
|
|
// replaces panic when -debug arg is passed
|
|
fn _panic_debug(line_no int, file, mod, fn_name, s string) {
|
|
println('================ V panic ================')
|
|
println(' module: $mod')
|
|
println(' function: ${fn_name}()')
|
|
println(' file: $file')
|
|
println(' line: ' + line_no.str())
|
|
println(' message: $s')
|
|
println('=========================================')
|
|
print_backtrace()
|
|
C.exit(1)
|
|
}
|
|
|
|
pub fn panic(s string) {
|
|
println('V panic: $s')
|
|
print_backtrace()
|
|
C.exit(1)
|
|
}
|
|
|
|
pub fn println(s string) {
|
|
// Should never happen
|
|
if isnil(s.str) {
|
|
panic('println(NIL)')
|
|
}
|
|
$if windows {
|
|
C._putws(s.to_wide())
|
|
} $else {
|
|
C.printf('%.*s\n', s.len, s.str)
|
|
}
|
|
}
|
|
|
|
pub fn eprintln(s string) {
|
|
if isnil(s.str) {
|
|
panic('eprintln(NIL)')
|
|
}
|
|
$if mac {
|
|
C.fprintf(stderr, '%.*s\n', s.len, s.str)
|
|
}
|
|
// TODO issues with stderr and cross compiling for Linux
|
|
$else {
|
|
println(s)
|
|
}
|
|
}
|
|
|
|
pub fn print(s string) {
|
|
$if windows {
|
|
C.wprintf(s.to_wide())
|
|
} $else {
|
|
C.printf('%.*s', s.len, s.str)
|
|
}
|
|
}
|
|
|
|
__global total_m i64 = 0
|
|
//__global nr_mallocs int = 0
|
|
pub fn malloc(n int) byteptr {
|
|
if n < 0 {
|
|
panic('malloc(<0)')
|
|
}
|
|
//nr_mallocs++
|
|
/*
|
|
TODO
|
|
#ifdef VPLAY
|
|
if n > 10000 {
|
|
panic('allocating more than 10 KB is not allowed in the playground')
|
|
}
|
|
#endif
|
|
#ifdef DEBUG_ALLOC
|
|
total_m += n
|
|
println('\n\n\nmalloc($n) total=$total_m')
|
|
print_backtrace()
|
|
#endif
|
|
*/
|
|
ptr := C.malloc(n)
|
|
if isnil(ptr) {
|
|
panic('malloc($n) failed')
|
|
}
|
|
return ptr
|
|
}
|
|
|
|
pub fn calloc(n int) byteptr {
|
|
if n < 0 {
|
|
panic('calloc(<0)')
|
|
}
|
|
return C.calloc(n, 1)
|
|
}
|
|
|
|
pub fn free(ptr voidptr) {
|
|
C.free(ptr)
|
|
}
|
|
|
|
fn memdup(src voidptr, sz int) voidptr {
|
|
mem := malloc(sz)
|
|
return C.memcpy(mem, src, sz)
|
|
}
|
|
|
|
|
|
|