shithub: mc

ref: b2ca8481f37bccdd0488cf7de05ea79cd17ae5ed
dir: /lib/std/backtrace+x64.myr/

View raw version 
use "types"
use "fmt"

pkg std =
	const backtrace	: (pc	: void#[:] -> std.size)
;;

type stackrec = struct
	next	: stackrec#
	pc	: void#
;;

extern const getbp	: (-> stackrec#)
const backtrace = {pc
	var bp, i, len

	i = 0
	len = pc.len
	bp = getbp()
	while bp != (0 : stackrec#) && i < len
		pc[i++] = bp.pc
		bp = bp.next
	;;
	-> i
}