File: tobjfield_analysis.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 (51 lines) | stat: -rw-r--r-- 834 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
39
40
41
42
43
44
45
46
47
48
49
50
51
discard """
  output: '''works'''
"""

#  bug #11095

type
  MyVal[T] = object
    f: ptr T

proc `=destroy`[T](x: var MyVal[T]) =
  if x.f != nil:
    dealloc(x.f)

proc `=sink`[T](x1: var MyVal[T], x2: MyVal[T]) =
  if x1.f != x2.f:
    `=destroy`(x1)
    x1.f = x2.f

proc `=`[T](x1: var MyVal[T], x2: MyVal[T]) {.error.}

proc newVal[T](x: sink T): MyVal[T] =
  result.f = create(T)
  result.f[] = x

proc set[T](x: var MyVal[T], val: T) =
  x.f[] = val

proc sinkMe[T](x: sink MyVal[T]) =
  discard

var flag = false

proc main =
  var y = case flag
    of true:
      var x1 = newVal[float](1.0)
      var x2 = newVal[float](2.0)
      (newVal(x1), newVal(x2))

    of false:
      var x1 = newVal[float](1.0)
      var x2 = newVal[float](2.0)
      (newVal(x1), newVal(x2))

  sinkMe y[0]
  sinkMe y[1]
  echo "works"

main()