55 lines
1.1 KiB
Nim

# Copyright (c) 2019-2020 Status Research & Development GmbH
# Licensed under either of
# * Apache License, version 2.0,
# * MIT license
# at your option.
# This file may not be copied, modified, or distributed except according to
# those terms.
import libbacktrace
import asyncdispatch
proc f3(i: int): int =
echo "getProgramCounters() and getDebuggingInfo():"
let
maxLength: cint = 128
res = getDebuggingInfo(getProgramCounters(maxLength), maxLength)
# old asyncdispatch's `$` can't handle our seq[StackTraceEntry]
try:
if res.len > 0 and res[0].procname != nil:
echo res
except Defect as e:
echo e.msg
echo "\n"
stderr.flushFile()
echo "writeStackTrace():"
writeStackTrace()
stderr.flushFile()
echo "\ngetBacktrace():"
echo getBacktrace()
stderr.flushFile()
if i == 3:
raise newException(CatchableError, "exception1")
return i + 4
proc f2(i: int): int =
try:
return f3(i + 2) + 2
except CatchableError as e:
raise e
proc f1(): int =
return f2(1) + 1
# echo "res = ", f1()
try:
echo "res = ", f1()
except CatchableError as e:
echo e.msg
echo getStackTraceEntries(e)