145 lines
3.7 KiB
V
145 lines
3.7 KiB
V
// Copyright (c) 2019-2022 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 vsyscall(id int
|
|
//
|
|
|
|
/*
|
|
pub const (
|
|
sys_write = 1
|
|
sys_mkdir = 83
|
|
)
|
|
const (
|
|
stdin_value = 0
|
|
stdout_value = 1
|
|
stderr_value = 2
|
|
)
|
|
*/
|
|
|
|
fn builtin_init() {
|
|
// Do nothing
|
|
}
|
|
|
|
fn print_backtrace_skipping_top_frames(xskipframes int) bool {
|
|
$if no_backtrace ? {
|
|
return false
|
|
} $else {
|
|
skipframes := xskipframes + 2
|
|
$if macos || freebsd || openbsd || netbsd {
|
|
return print_backtrace_skipping_top_frames_bsd(skipframes)
|
|
} $else $if linux {
|
|
return print_backtrace_skipping_top_frames_linux(skipframes)
|
|
} $else {
|
|
println('print_backtrace_skipping_top_frames is not implemented. skipframes: $skipframes')
|
|
}
|
|
}
|
|
return false
|
|
}
|
|
|
|
// the functions below are not called outside this file,
|
|
// so there is no need to have their twins in builtin_windows.v
|
|
fn print_backtrace_skipping_top_frames_bsd(skipframes int) bool {
|
|
$if no_backtrace ? {
|
|
return false
|
|
} $else {
|
|
$if macos || freebsd || netbsd {
|
|
buffer := [100]voidptr{}
|
|
nr_ptrs := C.backtrace(&buffer[0], 100)
|
|
if nr_ptrs < 2 {
|
|
eprintln('C.backtrace returned less than 2 frames')
|
|
return false
|
|
}
|
|
C.backtrace_symbols_fd(&buffer[skipframes], nr_ptrs - skipframes, 2)
|
|
}
|
|
return true
|
|
}
|
|
}
|
|
|
|
fn C.tcc_backtrace(fmt &char) int
|
|
fn print_backtrace_skipping_top_frames_linux(skipframes int) bool {
|
|
$if android {
|
|
eprintln('On Android no backtrace is available.')
|
|
return false
|
|
}
|
|
$if !glibc {
|
|
eprintln('backtrace_symbols is missing => printing backtraces is not available.')
|
|
eprintln('Some libc implementations like musl simply do not provide it.')
|
|
return false
|
|
}
|
|
$if no_backtrace ? {
|
|
return false
|
|
} $else {
|
|
$if linux && !freestanding {
|
|
$if tinyc {
|
|
C.tcc_backtrace(c'Backtrace')
|
|
return false
|
|
}
|
|
buffer := [100]voidptr{}
|
|
nr_ptrs := C.backtrace(&buffer[0], 100)
|
|
if nr_ptrs < 2 {
|
|
eprintln('C.backtrace returned less than 2 frames')
|
|
return false
|
|
}
|
|
nr_actual_frames := nr_ptrs - skipframes
|
|
mut sframes := []string{}
|
|
//////csymbols := backtrace_symbols(*voidptr(&buffer[skipframes]), nr_actual_frames)
|
|
csymbols := C.backtrace_symbols(voidptr(&buffer[skipframes]), nr_actual_frames)
|
|
for i in 0 .. nr_actual_frames {
|
|
sframes << unsafe { tos2(&byte(csymbols[i])) }
|
|
}
|
|
for sframe in sframes {
|
|
executable := sframe.all_before('(')
|
|
addr := sframe.all_after('[').all_before(']')
|
|
beforeaddr := sframe.all_before('[')
|
|
cmd := 'addr2line -e $executable $addr'
|
|
// taken from os, to avoid depending on the os module inside builtin.v
|
|
f := C.popen(&char(cmd.str), c'r')
|
|
if isnil(f) {
|
|
eprintln(sframe)
|
|
continue
|
|
}
|
|
buf := [1000]byte{}
|
|
mut output := ''
|
|
unsafe {
|
|
bp := &buf[0]
|
|
for C.fgets(&char(bp), 1000, f) != 0 {
|
|
output += tos(bp, vstrlen(bp))
|
|
}
|
|
}
|
|
output = output.trim_space() + ':'
|
|
if C.pclose(f) != 0 {
|
|
eprintln(sframe)
|
|
continue
|
|
}
|
|
if output in ['??:0:', '??:?:'] {
|
|
output = ''
|
|
}
|
|
// See http://wiki.dwarfstd.org/index.php?title=Path_Discriminators
|
|
// NB: it is shortened here to just d. , just so that it fits, and so
|
|
// that the common error file:lineno: line format is enforced.
|
|
output = output.replace(' (discriminator', ': (d.')
|
|
eprintln('${output:-55s} | ${addr:14s} | $beforeaddr')
|
|
}
|
|
}
|
|
}
|
|
return true
|
|
}
|
|
|
|
fn break_if_debugger_attached() {
|
|
unsafe {
|
|
mut ptr := &voidptr(0)
|
|
*ptr = voidptr(0)
|
|
//_ = ptr
|
|
}
|
|
}
|
|
|
|
// These functions are Windows specific - provide dummys for *nix
|
|
pub fn winapi_lasterr_str() string {
|
|
return ''
|
|
}
|
|
|
|
[noreturn]
|
|
pub fn panic_lasterr() {}
|