File: mstackframes.nim

package info (click to toggle)
nim 2.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 1,911,644 kB
  • sloc: sh: 24,603; ansic: 1,761; python: 1,492; makefile: 1,013; sql: 298; asm: 141; xml: 13
file content (38 lines) | stat: -rw-r--r-- 868 bytes parent folder | download | duplicates (4)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
import std/stackframes



# line 5
var count = 0

proc main1(n: int) =
  setFrameMsg $("main1", n)
  if n > 0:
    main1(n-1)

proc main2(n: int) =
  count.inc
  setFrameMsg $("main2", n, count)
  proc bar() =
    setFrameMsg $("bar ",)
    if n < 3: raise newException(CatchableError, "on purpose")
  bar()
  main2(n-1)

proc main() =
  var z = 0
  setFrameMsg "\n  z: " & $z, prefix = ""
  # multiple calls inside a frame are possible
  z.inc
  setFrameMsg "\n  z: " & $z, prefix = ""
  try:
    main2(5)
  except CatchableError:
    main1(10) # goes deep and then unwinds; sanity check to ensure `setFrameMsg` from inside
              # `main1` won't invalidate the stacktrace; if StackTraceEntry.frameMsg
              # were a reference instead of a copy, this would fail.
    let e = getCurrentException()
    let trace = e.getStackTrace
    echo trace

main()