tests/destructor/t17198.nim


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

discard """
  cmd: '''nim c --gc:arc $file'''
  output: '''
other
'''
"""

import std/macros

macro bigCaseStmt(arg: untyped): untyped =
  result = nnkCaseStmt.newTree(arg)

  # try to change 2000 to a bigger value if it doesn't crash
  for x in 0 ..< 2000:
    result.add nnkOfBranch.newTree(newStrLitNode($x), newStrLitNode($x))

  result.add nnkElse.newTree(newStrLitNode("other"))

macro bigIfElseExpr(): untyped =
  result = nnkIfExpr.newTree()

  for x in 0 ..< 1000:
    result.add nnkElifExpr.newTree(newLit(false), newStrLitNode($x))

  result.add nnkElseExpr.newTree(newStrLitNode("other"))

proc test(arg: string): string =
  echo bigIfElseExpr()

  result = bigCaseStmt(arg)

discard test("test")