File: t5648.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 (32 lines) | stat: -rw-r--r-- 426 bytes parent folder | download 
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 """
  output: '''
ptr Foo
'''
joinable: false
"""
# not joinable because it causes out of memory with --gc:boehm

# issue #5648

import typetraits

type Foo = object
  bar: int

proc main() =
  var f = create(Foo)
  f.bar = 3
  echo f.type.name

  discard realloc(f, 0)

  var g = Foo()
  g.bar = 3

var
  mainPtr = cast[pointer](main)
  mainFromPtr = cast[typeof(main)](mainPtr)

doAssert main == mainFromPtr

main()